-
-
[旧帖]
关于image控件的图片 TO 剪贴板的问题
0.00雪花
-
发表于:
2010-10-21 20:36
3103
-
[旧帖] 关于image控件的图片 TO 剪贴板的问题
0.00雪花
如果IMAGE1控件中的图片是BMP格式 这样代码就不会错 ，如果把IMAGE1控件中的图片更换成JPEG格式的 ，在图画中使用CTRL+V 就会报错
我原以为使用Bitmap.Assign(image1.Picture.Bitmap); 可以强行将JPEG更换成BMP 但是结果不对
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
APalette: HPALETTE;
AData: THandle;
AFormat: Word;
begin
bitmap:=tbitmap.Create ;
Bitmap.Assign(image1.Picture.Bitmap);
bitmap.SaveToClipboardFormat(aformat,adata,apalette);
OpenClipboard(0);
EmptyClipboard;
SetClipboardData(CF_BITMAP,adata);
CloseClipboard;
bitmap.Free ;
end;
[课程]Android-CTF解题方法汇总！
