hallo,

ich habe diesen code hier irgendwo in der DP entdeckt:

zusammenfalten · markieren

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

Moin Mario,

also bei mir, unter XP Pro, funktioniert HasFormat wie gewünscht.
Der Fehler muss woanders liegen.

Ruf' doch mal über Start\Ausführen das Clipboard auf (clipbrd.exe), und schau mal nach, ob nach dem Druck auf die [DRUCK] Taste tatsächlich eine Bitmap in der Zwischenablage liegt.