RSS订阅 | 匿名投稿
您的位置:网站首页 > 图像 > 正文

Delphi Clipboard 截图后将图片数据复制到剪贴板

作者:admin 来源: 日期:2018/1/2 11:45:51 人气: 标签:Clipboard

今天需要用到一个功能。就是截图后,将图片数据复制到剪贴板。
然后到测试的时候,发现经常出现无法访问的问题。
然后通过一顿盲测,发现在调用前加上  clipboard.open; 就可以。先打开,然后就能设置了。

procedure TfrmUploadPic.GetScreenPic;
var
  bmp : TBitmap;
  can : TCanvas;
  dc: HDC;
begin
  Clipboard.Clear;
  Clipboard.Open;
  bmp := TBitmap.Create; 
  bmp.Width := Screen.Width;
  bmp.Height := Screen.Height; 
  dc := GetDC(0); 
  can := TCanvas.Create;
  can.Handle := dc;
  bmp.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),can,Rect(0,0,Screen.Width,Screen.Height));
//  Clipboard.Assign(bmp);
  Clipboard.SetAsHandle(CF_BITMAP,bmp.Handle);
  can.Free;
  ReleaseDC(0,dc);
end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料