首页 > > 程序设计 > delphi >

一个实用的Delphi 屏幕拷贝程序的设

2008-04-09 04:30:30来源：互联网阅读 ()

一个实用的Delphi 屏幕拷贝程序的设计

宁波市游河巷贾学杰

---- Borland 公司（现改名为INPRISE 公司）的DELPHI 是当前最为方便的Windows 程序设
计工具之一。许多人以为DELPHI 是作为数据库开发工具出现的，其实用DELPHI
可以以极快的速度开发出高效的Windows 程序。

---- 现在我们就用DELPHI 来编写一个实用的屏幕拷贝程序。瞧瞧，下面的画面
就是所编程序运行后进行区域屏幕拷贝的例子，还不错吧！

---- Borland 公司的天才设计师们用画布（Tcanvas）对象封装了Windows 的大部分图形
输出功能，这使得我们可以通过他以更直观的方式和Windows 的屏幕打交道，
而不必关心令人头疼的Windows API 函数。下面的一小段程序就可以实现整个
屏幕的图象拷贝了。

  var     //变量声明
  Fullscreen:Tbitmap;  
  FullscreenCanvas:TCanvas;
  dc:HDC;
  //------------------------------------------------------------
  DC := GetDC (0);      //取得屏幕的 DC，参数0指的是屏幕
  FullscreenCanvas := TCanvas.Create;    //创建一个CANVAS对象
  FullscreenCanvas.Handle := DC;        //将屏幕的DC赋给HANDLE
  Fullscreen.Canvas.CopyRect 
  (Rect (0, 0, screen.Width,screen.Height),
  fullscreenCanvas,
  Rect (0, 0, Screen.Width, Screen.Height));
                            //把整个屏幕复制到BITMAP中
  FullscreenCanvas.Free;          //释放CANVAS对象
  ReleaseDC (0, DC);              //释放DC
  //SCREEN对象是DELPHI预先定义的屏幕对象，直接使用就行了。

---- 看了以上代码，你就会发现用DELPHI 写屏幕拷贝程序的确很简单。

---- 当然要写一个实用的屏幕拷贝程序，光靠上述代码是不够的，下面讲一
下主要的编程思路：

---- 1. 全屏幕拷贝的实现

---- 首先隐藏拷屏程序，延长一定时间后，利用上述的程序即可实现屏幕的
拷贝。

---- 2. 区域拷贝的实现

---- 要实现区域拷贝要用个小技巧，首先调用全屏幕拷贝程序把整个屏幕拷
贝下来，然后把拷贝下来的图象显示在屏幕上，之后就可以让用户在上面
选择需要的区域，最后才将用户选定的区域复制下来。

---- 编程实现：

---- 1. 首先用DELPHI3 开一个工程。

---- 2. 在FORM 上放置一个TPANEL 元件，设置ALIGN=ALTOP，再选部件条ADDITIONAL 上
的TSCROLLBOX，放到FORM 上，设置ALIGN=ALCLIENT，然后在SCROLLBOX 上放置一个
TIMAGE 对象。

---- 3. 在PANEL 上放置4 个按钮，分别为FULL SCREEN，REGIN，SAVE，EXIT。

---- 4. 容易干的先干，在EXIT 按钮的CLICK 事件里写下代码

procedure TForm1.ExitClick(Sender: TObject);
begin
    close;
end;

---- 5. 接着是实现全屏幕拷贝了，在FROM 上放置一个记时器TTIMER，ENABLED 设为
FALSE，INTERVAL 设为500，也就是半秒钟激活一次。双击TIMER 部件，写上如下的
代码。

procedure TForm1.Timer1Timer(Sender: TObject);
var
 Fullscreen:Tbitmap;
 FullscreenCanvas:TCanvas;
 dc:HDC;
begin
    timer1.Enabled:=false;   //取消时钟
    Fullscreen := TBitmap.Create;      //创建一个BITMAP来存放图象
    Fullscreen.Width := screen.width;
    Fullscreen.Height := screen.Height;
    DC := GetDC (0);   //取得屏幕的 DC，参数0指的是屏幕
    FullscreenCanvas := TCanvas.Create; //创建一个CANVAS对象
    FullscreenCanvas.Handle := DC;

Fullscreen.Canvas.CopyRect 
(Rect (0, 0, screen.Width, screen.Height), fullscreenCanvas,
Rect (0, 0, Screen.Width, Screen.Height));
            //把整个屏幕复制到BITMAP中
    FullscreenCanvas.Free;          //释放CANVAS对象
    ReleaseDC (0, DC);              //释放DC
    //*******************************
    image1.picture.Bitmap:=fullscreen;//拷贝下的图象赋给IMAGE对象
    image1.Width:=fullscreen.Width;
    image1.Height:=fullscreen.Height;
    fullscreen.free;                //释放bitmap
    form1.WindowState:=wsNormal;    //复原窗口状态
    form1.show;                     //显示窗口
    messagebeep(1);  //BEEP叫一声，报告图象已经截取好了。
end;

---- 6. 接下去FULLSCREEN 按钮上的代码就很简单了。

procedure TForm1.FullscreenClick(Sender: TObject);
begin
    form1.WindowState:=wsMinimized; //最小化程序窗口
    form1.hide;                     //把程序藏起来
    timer1.enabled:=true;           //打开记时器
end;

---- 7. 拷贝到了图象当然要存起来了，SAVE 按钮就有了用武之地，我们写下如

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有