hallo,
ich habe diesen code hier irgendwo in der
DP entdeckt:
Delphi-Quellcode:
Procedure Bild_Speichern;
Var Zeit :TDateTime;
name :String;
img: TPicture;
Jpg: TJPEGImage;
clip: TClipboard;
Begin
Zeit := now;
Clip := Clipboard;
if clip.HasFormat(CF_BITMAP) then
begin
img := TPicture.create;
Jpg := TJPEGImage.create;
img.LoadFromClipboardFormat(CF_Bitmap,clip.GetAsHandle(CF_Bitmap),0);
jpg.Assign(img.bitmap);
jpg.CompressionQuality := 50;
jpg.ProgressiveEncoding := true;
jpg.Compress;
name := ('c:\bl.jpg');
jpg.SaveToFile(name);
clip.clear;
img.Free;
jpg.Free;
end;
end;
wieso funktioniert der nicht nachdem bzw bevor ich die PRINT taste drücke? ich habe herausgefunden das diese bedingung: if clip.HasFormat(CF_BITMAP) then nicht true wird