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;