[Solved] Picture in the Windows clipboard- how to save it to a file?

[AlexTP]

User has a picture in clipboard. E.g. it's Win32.
Picture in usual format.
E.g. copied from Windows Paint.
How can one read this picture (from clipboard) and save it to a PNG or JPEG file?

[avk]

Something like this?

Code: Pascal  [Select][+][-]

1. ...
2. uses
3.   ..., Clipbrd, ...
4. ...
5. procedure TForm1.Button1(Sender: TObject);
6. begin
7.   if ClipBoard.HasPictureFormat then
8.     with TPicture.Create do
9.       try
10.         Assign(Clipboard);
11.         SaveToFile('Picture.png');
12.       finally
13.         Free;
14.       end;
15. end;
16.  

[lucamar]

Alternatively (cause avk's answer seems too simple ):

All format-specific images descend from TGraphic so you can probably just create the proper graphic (TPortableNetworkGraphic or TJPEGImage) and use its LoadFromClipboardFormat(), it there is such a format in the clipboard.

If that doesn't work (which is probable) just try the same trick with a compatible format (usually a TBitmap) or a TPicture.

Note that TClipboard has several methods that might help you to "divine" which is the format of the image it contains: FindPictureFormatID, HasPictureFormat, etc.

[AlexTP]

Thank you guys.