Webcam-Entwicklung: Brauche Eure Hilfe!

[Elite]

Zitat von JPSelter:

Delphi-Quellcode:

procedure TForm1.tsCap321Bitmap(Sender: TObject; Bitmap: TBitmap;
  msSinceFirstFrame: Cardinal);
var datei: string;
begin[/quote:6d56943b9b]
  Image1.Picture.Bitmap:=Bitmap;   <--------------------------- hier scheint der Speicher vollzulaufen
  datei:=Extractfilepath(Application.exename)+'/'+fname;
  with TJpegImage.Create do
  try
    Assign(Image1.Picture.Graphic);
    SaveToFile(datei);
  finally
    Free;
  end;
end;

Warum gehst du eigentlich solche Umwege. Hat das irgendeinen Hintergrund?
Sonst würde ich mal das vorschlagen:

Delphi-Quellcode:

 with TJpegImage.Create do
  begin
    Assign(Bitmap);
    SaveToFile('C:\Screens\ScreenShot.jpg');
    free;
  end;