Delphi图象截取编程示例(2)
2004-11-02 10:37
288 查看
(四)创建抓取图象的单元文件ScrnCpt
unit ScrnCpt;
interface
uses windows,forms,controls,classes,Graphics;
function CaptureScreenRect(ARect:TRect):TBitmap;
function CaptureScreen:TBitmap;
function CaptureClientImage(Control:TControl):TBitmap;
function CaptureControlImage(Control:TControl):TBitmap;
function CaptureWindowImage(Wnd:HWND):TBitmap;
implementation
function CaptureScreenRect(ARect:TRect):TBitmap;
var ScreenDC:HDC; //设备描述表的句柄
begin
result:=TBitmap.Create ;
with Result,ARect do
begin
Width :=Right-left;
Height:=Bottom-Top;
ScreenDC:=GetDC(0); //获取一个窗口的设备描述表的句柄,0参数返回屏幕窗口设备描述表的句柄
try
//BOOL BitBlt(hdcDest,nXDest,nYDest,nWidth,nHeight,hdcSrc,nXSrc,nYSrc,dwRop)
//把位图从源设备描述表hdcSrc复制到目标设备描述表hdcDest,
//光栅操作码dwRop指定了 源图的组合方式
BitBlt(Canvas.Handle ,0,0,Width,Height,ScreenDC,left,top,SRCCOPY);
finally
ReleaseDC(0,ScreenDC);
end;
end;
end;
//全屏抓图
function CaptureScreen:TBitmap;
begin
with Screen do
result:=CaptureScreenRect(Rect(0,0,width,height));
end;
//抓取一个窗体或控件的客户区图象
function CaptureClientImage(Control:TControl):TBitmap;
begin
//Control.ClientOrigin是控件客户区的左上角位置。x,y是 ClientOrigin的变量
with Control,Control.ClientOrigin do
result:=CaptureScreenRect(Bounds(x,y,ClientWidth,ClientHeight));
end;
// 抓取一整个窗体或控件
function CaptureControlImage(Control:TControl):TBitmap;
begin
with Control do
if Parent=nil then //无父窗体,根据它的位置,直接抓取
result:=CaptureScreenRect(Bounds(left,top,width,height))
else //有父窗体,把它转化为相对于屏幕坐标,再 抓取
with Parent.ClientToScreen(Point(Left,top))do
result:=CaptureScreenRect(Bounds(x,y,width,height));
end;
//根据窗体句柄进行抓取
function CaptureWindowImage(Wnd:HWND):TBitmap;
var R:TRect;
begin
GetWindowRect(wnd,R); //把窗口句柄指定的窗口坐标放入TRect
result:=CaptureScreenRect(R);
end;
end.
unit ScrnCpt;
interface
uses windows,forms,controls,classes,Graphics;
function CaptureScreenRect(ARect:TRect):TBitmap;
function CaptureScreen:TBitmap;
function CaptureClientImage(Control:TControl):TBitmap;
function CaptureControlImage(Control:TControl):TBitmap;
function CaptureWindowImage(Wnd:HWND):TBitmap;
implementation
function CaptureScreenRect(ARect:TRect):TBitmap;
var ScreenDC:HDC; //设备描述表的句柄
begin
result:=TBitmap.Create ;
with Result,ARect do
begin
Width :=Right-left;
Height:=Bottom-Top;
ScreenDC:=GetDC(0); //获取一个窗口的设备描述表的句柄,0参数返回屏幕窗口设备描述表的句柄
try
//BOOL BitBlt(hdcDest,nXDest,nYDest,nWidth,nHeight,hdcSrc,nXSrc,nYSrc,dwRop)
//把位图从源设备描述表hdcSrc复制到目标设备描述表hdcDest,
//光栅操作码dwRop指定了 源图的组合方式
BitBlt(Canvas.Handle ,0,0,Width,Height,ScreenDC,left,top,SRCCOPY);
finally
ReleaseDC(0,ScreenDC);
end;
end;
end;
//全屏抓图
function CaptureScreen:TBitmap;
begin
with Screen do
result:=CaptureScreenRect(Rect(0,0,width,height));
end;
//抓取一个窗体或控件的客户区图象
function CaptureClientImage(Control:TControl):TBitmap;
begin
//Control.ClientOrigin是控件客户区的左上角位置。x,y是 ClientOrigin的变量
with Control,Control.ClientOrigin do
result:=CaptureScreenRect(Bounds(x,y,ClientWidth,ClientHeight));
end;
// 抓取一整个窗体或控件
function CaptureControlImage(Control:TControl):TBitmap;
begin
with Control do
if Parent=nil then //无父窗体,根据它的位置,直接抓取
result:=CaptureScreenRect(Bounds(left,top,width,height))
else //有父窗体,把它转化为相对于屏幕坐标,再 抓取
with Parent.ClientToScreen(Point(Left,top))do
result:=CaptureScreenRect(Bounds(x,y,width,height));
end;
//根据窗体句柄进行抓取
function CaptureWindowImage(Wnd:HWND):TBitmap;
var R:TRect;
begin
GetWindowRect(wnd,R); //把窗口句柄指定的窗口坐标放入TRect
result:=CaptureScreenRect(R);
end;
end.
相关文章推荐
- Delphi图象截取编程示例(3)
- Delphi图象截取编程示例(1)
- Delphi图象截取编程示例(4)
- Delphi图象截取编程示例(5)
- Delphi图象截取编程示例(6)
- Delphi图象截取编程示例(7)
- Delphi图象截取编程示例(8)
- 多线程编程之PV操作示例代码
- Android编程示例之——人像检测
- 多线程Java Socket编程示例
- Socket编程指南及示例程序
- Shell脚本编程及示例和例题解析
- CGI编程入门--GET与POST示例
- Muduo 网络编程示例之八:用 Timing wheel 踢掉空闲连接
- ES6学习——元数据(meta)编程:代理(Proxies)应用示例
- Linux Shell 示例精解(第七章 gawk编程)转载
- vb.net利用system.data.sqlite.dll实现sqlite数据库编程示例
- Android编程实现的首页左右滑动切换功能示例
- Go语言网络编程示例-客户端篇
- timesten ODBC编程示例代码