怎样把数据库中存取的图片拷贝到剪贴板，然后把图片利用image显示出来？

Question

为什么要通过剪贴版呢？
直接用image就可以吧数据库中的图片取出了

Answer 1

哎，放假了，上网也不方便。
因为我用于显示图片的窗体，image（不是dbimage)等都是利用代码动态创建的

Answer 2

a:=TjpegImage.Create ;
  a.loadfromfile(''e:\aa.jpg'');
  a.SaveToClipboardFormat(MyFormat,AData,APalette);
  Clipboard.SetAsHandle(MyFormat,AData);
  image1.Picture.Assign(Clipboard);
  a.free;

Answer 3

var a:TjpegImage;
      MyFormat : Word;
      AData : THandle;
      APalette : HPALETTE;begin
  a:=TjpegImage.Create ;
  a.loadfromfile(''e:\aa.jpg'');
  a.SaveToClipboardFormat(MyFormat,AData,APalette);
  Clipboard.SetAsHandle(MyFormat,AData);
  image1.Picture.Assign(Clipboard);
  a.free;
end;