Hallo,
ich weiß, dass es dazu schon einige Beiträge im Forum gibt, doch bei funktioniert es nicht!
Wie der Titel sagt, möchte ich den Inhalt der Zwischenablage (Bitmap) abspeichern.
(
SwissDelphiCenter.ch habe ich nicht verstanden)
Momentan habe ich die Funktion einen Screenshot zu machen so gelöst:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_SNAPSHOT , 0, 0, 0);
keybd_event(VK_SNAPSHOT , 0, KEYEVENTF_KEYUP, 0);
end;
Soweit klappt das auch. Ich kann das Bild in Paint einfügen. Nun möchte ich es aber automatisch speichern lassen.
if Clipboard.HasFormat(CF_BITMAP) then begin
Image1.Picture.Assign(Clipboard);
Image1.Picture.SaveToFile('C:\temp\screenshot.bmp' );
end;
klappt nicht:
Fehlermeldung
Ich habe es auch mit
Delphi-Quellcode:
Image1.Picture.Bitmap.Assign(Clipboard);
Image1.Picture.Bitmap.SaveToFile('C:\temp\screenshot.bmp');
probiert.
Klappt alles nicht!
Würde mich freuen, wenn mir jemand helfen könnte. Ich finde hier im Forum und anderswo immer nur die obengenannte Funktion, die bei mir nicht klappt.
Ich benutze FreePascal Lazarus v0.9.28.2 Beta
Vielen Dank
Pascal95