[SOLVED] How do I get an image from clipboard?

[nsunny]

I have looked around the forum but did not find a working code.

Suppose, I have an image on the clipboard. I now want to retrieve the image from the clipboard on a TBitmap. And I want it to be drawn in a TBitmap (say... MyBitmap).

I have tried the following:

FOR COPYING (it worked):

Code: [Select]

 // MyBitmap is our TBitmap to be copied
  Clipboard.Assign(MyBitmap);

FOR PASTING (did not work):

Code: [Select]

if Clipboard.HasFormat(CF_Bitmap) then
begin
  MyBitmap.Assign(Clipboard);
end;

Little help from here: Basic Clipboard Operations (Cut/Copy/Paste) using the TClipboard object

[Leledumbo]

What about LoadFromClipboardFormat?

[nsunny]

I have tried:

(A)

Code: [Select]

MyBitmap.LoadFromClipboardFormat( Clipboard.FindPictureFormatID );
(B)

Code: [Select]

MyBitmap.LoadFromClipboardFormat( Clipboard.FindFormatID('image/bmp') );
both raises error.  

[Marc]

What error ?

[nsunny]

What error ?

both raises error. 

ooups! a little correction...

(A)

Code: [Select]

MyBitmap.LoadFromClipboardFormat( Clipboard.FindPictureFormatID );
The above code raises an error:

Project ZZZ raised exception class 'EInvalidGraphic' with message:
TBitmap: Unsupported MimeType:

But code (B) does not do anything. As if it was never written. 

[longbow767]

Does this help:
http://lists.lazarus.freepascal.org/pipermail/lazarus/2010-May/052693.html

[José Mejuto]

The above code raises an error:
Project ZZZ raised exception class 'EInvalidGraphic' with message:
TBitmap: Unsupported MimeType:
But code (B) does not do anything. As if it was never written. 

Hello,

In one of my programs I'm using:

Code: [Select]

ImageToEdit.Picture.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap));

It is working for me in Windows.

[nsunny]

In one of my programs I'm using:

Code: [Select]

ImageToEdit.Picture.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap));

It is working for me in Windows.

It worked for me too. Thanks.

I want to do something more. I want this code only be executed if there is an image in the clipboard (not when text is in clipboard). I have tried the code below but failed:

Code: [Select]

   if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) then
    begin

        MyBitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap));

    end;


[José Mejuto]

I want to do something more. I want this code only be executed if there is an image in the clipboard (not when text is in clipboard). I have tried the code below but failed:

Code: [Select]

   if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) then
    begin
 MyBitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap));
    end;


Hello,

I'm using:

Code: [Select]

  PictureAvailable:=false;
  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) then PictureAvailable:=true;
  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) then PictureAvailable:=true;
  if PictureAvailable then begin


[nsunny]

Hello,

I'm using:

Code: [Select]

  PictureAvailable:=false;
  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) then PictureAvailable:=true;
  if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) then PictureAvailable:=true;
  if PictureAvailable then begin


It worked!!!
Thanks JoshyFun.