Bild aus der zwischenablage

[Pseudemys Nelsoni]

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

[Christian Seehase]

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.