Delphi图象截取编程示例(4)

原创 2004年11月02日 10:41:00

(六)TMainForm的 (抓图)Action 事件
1)全屏抓图
[Capture Desktop]  Action 事件
procedure TMainForm.cptDesktopExecute(Sender: TObject);
begin
  inc(CaptureNum,1);
  Application.Minimize ;  //窗体最小化
  Delay(500);             //最小化后延时,为了全屏抓图不把自身抓进图中
  FileName:='Capture'+IntToStr(CaptureNum)+'.bmp';
  FileName:=DefaultDirectory+FileName;
  CreateMDIChild(FileName,true);
  StatusBar.SimpleText := FileName;
  with ActiveMDIChild as TMDIChild do begin
    Image1.Picture.Bitmap := CaptureScreen;         //抓图
    HorzScrollBar.Range := Image1.Picture.Width;
    VertScrollBar.Range := Image1.Picture.Height;
  end;
  Child.Image1.Hint := 'Height:'+intToStr(child.Image1.Picture.Height)+'pixels'
                     + ' Width:'+intToStr(child.Image1.Picture.Width)+'pixels';
  application.Restore ;
end;

2)区域抓图
   抓取区域图片,即要用到一个新的Form1,参见《Delphi图象截取编程示例(6)》  .
   在Main单元implementation的uses中添加Capture1。
   在Main单元添加私有过程CaptureArea :

procedure TMainForm.CaptureArea;
begin
  with TForm1.Create(Application) do
  try
    if ShowModal=mrOK then
    with fRect do begin
      if (Right>Left)and(Bottom>Top) then begin
        Delay(400);
        ABitmap:=TBitmap.Create;
        ABitmap.Assign(CaptureScreenRect(fRect));
        Child.Image1.Picture.Bitmap:=ABitmap;
        Child.ClientWidth := Child.Image1.Picture.Width ;
        Child.ClientHeight:= Child.Image1.Picture.Height;
        Child.HorzScrollBar.Range:=Child.Image1.Picture.Width ;
        Child.VertScrollBar.Range:=Child.Image1.Picture.Height;
        ABitmap.Free ;
      end else begin
        MessageDlg('选择图片区域错误,请重新选择!',mtInformation,[mbOK],0);
        Child.Close ;
        Form1.Free ;
        exit;
      end;
    end;
  finally
    Free;
  end;
end;

[Capture Area]区域抓图的Action 事件
procedure TMainForm.cptAreaExecute(Sender: TObject);
begin
  Inc(CaptureNum,1);
  Application.Minimize ;
  Delay(500);
  FileName:='Capture'+IntToStr(CaptureNum)+'.bmp';
  FileName:=DefaultDirectory+FileName;
  { Create MDI Child Window }
  CreateMDIChild(FileName,true);
  StatusBar.SimpleText := FileName;

  { Capture Area of screen }
  CaptureArea;
  Child.Image1.Hint := 'Height:'+intToStr(child.Image1.Picture.Height)+'pixels'
                     + ' Width:'+intToStr(child.Image1.Picture.Width)+'pixels';
  application.Restore ;
end;

 

DELPHI 控制摄像头拍照,截取任意矩形区域,保存成图片 源码,(原创)

  • 2009年09月28日 18:48
  • 921KB
  • 下载

Delphi图象截取编程示例(7)

(七)抓取窗体或控件图片窗体创建一个新的Form2,保存为Capture2.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,FormStyle设为...
  • LuckyJan
  • LuckyJan
  • 2004年11月02日 10:45
  • 6225

Delphi图象截取编程示例(6)

(六)区域抓图窗体创建一个新的Form1,保存为Capture1.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,Cursor设为crCross,...
  • LuckyJan
  • LuckyJan
  • 2004年11月02日 10:44
  • 6130

Delphi写的摄像头拍照载图程序

  • 2013年08月13日 23:47
  • 661KB
  • 下载

两句代码搞定安卓拍照,选取照片,截取照片的所有操作

如何使用GitHub 地址1.下载此工程中的 SystemPhotoUtil.java文件,并且添加到你的安卓项目里面2.下面你就可以开始用他来选一张照片,或者拍摄一张照片了你可以这样使用: ...
  • qq_31340657
  • qq_31340657
  • 2017年07月14日 17:49
  • 388

Delphi图象截取编程示例(1)

注意,本例在 Delphi7.0下调试通过///////////////////////////////////////////////////////////(一)建立项目  new Items--...
  • LuckyJan
  • LuckyJan
  • 2004年11月02日 10:35
  • 1984

Delphi图象截取编程示例(3)

(五)TMainForm的事件和函数 和 TPrinter打印应用////////// 打印知识[菜单项file/打印] 事件:procedure TMainForm.filePrintItemCli...
  • LuckyJan
  • LuckyJan
  • 2004年11月02日 10:39
  • 1792

Delphi图象截取编程示例(5)

3)抓取窗体或控件图片   抓取窗体或控件图片,即要用到一个新的Form2,参见《Delphi图象截取编程示例(7)》   在Main单元implementation的uses中添加Capture2。...
  • LuckyJan
  • LuckyJan
  • 2004年11月02日 10:43
  • 1763

Delphi图象截取编程示例(8)

(七)抓取图标(ICON)的窗体创建一个新的Form3,保存为Capture3.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,FormStyle...
  • LuckyJan
  • LuckyJan
  • 2004年11月02日 10:47
  • 3377
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi图象截取编程示例(4)
举报原因:
原因补充:

(最多只允许输入30个字)