如何捕捉桌面上指定范围的图象,并存为图片文件(30)

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

Unregistered / Unconfirmed
GUEST, unregistred user!
如何捕捉桌面上指定范围的图象,并存为图片文应该怎样写语句
 
一,取得屏幕DC ,二,再从这个DC 上取你所需要的图像部分
 
给分如此少 真抠门 function ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer):TBitmap;function ScreenCap(LeftPos, TopPos, RightPos, BottomPos: integer): TBitmap;var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; // Bitmap:TBitmap; myjpeg:tjpegimage;begin RectWidth:=RightPos-LeftPos; RectHeight:=BottomPos-TopPos; SourceDC:=CreateDC('DISPLAY','','',nil); DestDC:=CreateCompatibleDC(SourceDC); Bhandle:=CreateCompatibleBitmap(SourceDC,RectWidth,RectHeight); SelectObject(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,LeftPos,TopPos,SRCCOPY); result:=TBitmap.Create; result.Handle:=BHandle; DeleteDC(DestDC); ReleaseDC(Bhandle,SourceDC);end;
 
zkktom,呵呵,理解一下了.我分少啊.如果你想拿分的我还有很多待答问题,你挂个名字我都会送你分的.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
771
import
I
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部