请问怎么实现从粘贴板粘贴图片（JPEG格式）到Image 中

Question

在网上找到这个程序，但是不支持粘贴JPEG的图像，请问应该怎么处理？
IF Clipboard.HasFormat(CF_BITMAP) THEN
  BEGIN
    Bitmap:=TBitmap.Create;
    Bitmap.Assign(Clipboard);
    Image1.Canvas.Draw(0,0,Bitmap);
    FreeAndNil(Bitmap);
  END;

Answer 1

uses Clipbrd;
{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if ClipBoard.HasFormat(cf_BitMap) then
    Image1.Picture.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
end;

Answer 2

To maozefa
测试了一下，还是不行啊

Answer 3

to guyunyuao(fly_dream) 我在继续测试,稍等!

Answer 4

to guyunyuao(fly_dream)测试没成功

Answer 5

to guyunyuao(fly_dream)
我看了JPEG.pas源代码,它只是调用TBitmap.LoadFromClipBoardFormat,也就是说,它本身不支持从裁剪板装入

Answer 6

谢谢 maozefa
那有其他的方法实现从粘贴板的功能吗

Answer 7

强烈鄙视问题解决后不结贴的人!
强烈鄙视技术问题解决后把贴子转移到非技术区的人!
鄙视你们!http://community.csdn.net/Expert/topic/5216/5216675.xml?temp=.9262659