如何从剪贴板中拷贝图像文件到image里面???谢谢(100分)

  • 主题发起人 主题发起人 阿曼
  • 开始时间 开始时间

阿曼

Unregistered / Unconfirmed
GUEST, unregistred user!
请问下面这段程序哪里错了,谢谢。我用的是7.0版的。
form1.Image1.Picture.Free;
form1.Image1.Picture := tpicture.Create;
form1.Image1.Picture.LoadFromClipboardFormat(CF_BITMAP,
clipboard.GetAsHandle(CF_BITMAP),
0);
 
image1.picture.Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0)

后面要加上一句:
image1.Refresh;
我试过的,没有问题,可以看得到,不管是*.bmp还是*.jpg
 
有时成功,有时出错啊。
用全屏拷贝的时候,第一次成功了,但第二次就出错了
out of system resources...........
 
form1.Image1.Picture.Free;
^^^^^^^^^^^^^^^^^^
form1.Image1.Picture := tpicture.Create;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
不要加这两行TRY以下
 
image1.PasteFromClipboard;
 
1.应确保剪切板里有屏幕拷贝,否则出错。
2.只要:
Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BITMAP,clipboard.GetAsHandle(CF_BITMAP),0);
 
[:(!]还是经常出错啊,
即使是新建一个project,什么都没有都不行啊:
只有一个image 和一个button,button的click代码是:
Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BITMAP,clipboard.GetAsHandle(CF_BITMAP),0);
运行时,我按了一下“Print Screen”键,接着就点击那个button。就出现了这个错误
[?]错误信息是:
Project Project1.exe raised exception class EOutOfResource with message 'Oout of system resourced'. Process stopped. Use Stop or Run to continue.


 
我反复试过多次,无问题,win2k for d5,你还是检查一下其他原因吧!

...
var
Form1: TForm1;

implementation

uses Clipbrd;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BITMAP,clipboard.GetAsHandle(CF_BITMAP),0);
end;
 
我试过了,还是不行,
我用的时2k+d7,是不是有问题呢???
 
在d7下也试过没问题!
 
后退
顶部