delphi – 如何创建特定区域的屏幕截图？

发布时间：2020-12-15 04:27:35 所属栏目：大数据来源：网络整理

导读：我有代码,它接收在服务器端之前已经定义的特定区域,并在客户端的Form上创建一个孔.而不是这样,我想要得到这个相同区域的屏幕截图,但是没有出现我的Form在最终的结果,像一个正常的桌面捕获,但在这种情况下只会被捕获,这个小区域. 那么,我可以如何调整我的这个

我有代码,它接收在服务器端之前已经定义的特定区域,并在客户端的Form上创建一个孔.而不是这样,我想要得到这个相同区域的屏幕截图,但是没有出现我的Form在最终的结果,像一个正常的桌面捕获,但在这种情况下只会被捕获,这个小区域.

那么,我可以如何调整我的这个代码呢？

procedure TForm1.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  X1,X2,Y1,Y2: Integer;
  List: TStrings;
  FormRegion,HoleRegion: HRGN;
  StrCommand: String;
begin
  StrCommand := Socket.ReceiveText;

  if Pos('§',StrCommand) > 0 then
  begin
    List := TStringList.Create;
    try
      FormRegion := CreateRectRgn(0,Form12.Width,Form12.Height);
      ExtractStrings(['§'],[],PChar(StrCommand),List);

      X1 := StrToIntDef(List[0],0) - Form12.Left - 2;
      Y1 := StrToIntDef(List[1],0) - Form12.Top - 2;
      X2 := StrToIntDef(List[2],0) - Form12.Left - 2;
      Y2 := StrToIntDef(List[3],0) - Form12.Top - 2;

      HoleRegion := CreateRectRgn(X1,Y2);
      CombineRgn(FormRegion,FormRegion,HoleRegion,RGN_DIFF);
      SetWindowRgn(Form12.Handle,True);
    finally
      List.Free;
    end;
  end;
end;

解决方法

我没有所有的无关信息,但我可以告诉你如何将一个地区的内容捕获到位图中.当然,您需要适当调整坐标以适应您的需要.您可能希望看到GetRgnBox在组合它们之后如何获取总区域的边界矩形.我的例子不这样做,因为我有一个地区.

该示例在表单上需要两个TButtons和一个TImage.我已经在表单中定义了这三个组件,并将它们放在代码中,因此不需要包含一个DFM.但是,您需要将组件放在表单上并连接事件处理程序.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!