用Delphi實作遠端螢幕抓取[網摘]

用Delphi實作遠端螢幕抓取

---- 在網絡管理中，有時需要通過監視遠端計算機螢幕來了解網上微機的使用情況。雖然，市面上有很多軟體可以實作該功能，有些甚至可以進行遠端控制，但在使用上缺乏靈活性，如無法指定遠端計算機螢幕區域的大小和位置，進而無法在一屏上同時監視多個螢幕。其實，可以用Delphi自行編制一個靈活的遠端螢幕抓取工具，簡述如下。

---- 一、軟硬體要求。

---- Windows95/98對等網，用來監視的計算機（以下簡稱主要機）和被監視的計算機（以下簡稱受控機）都必須裝有TCP/IP 協定，并正确配置。如沒有網絡，也可以在一台計算機上進行調試。

---- 二、實作方法。

---- 編制兩個應用程式，一個為VClient.exe，裝在受控機上，另一個為VServer.exe，裝在主要機上。VServer.exe指定要監視的受控機的IP位址和将要在受控機螢幕上抓取區域的大小和位置，并發出螢幕抓取指令給VClient.exe，VClient.exe得到指令後，在受控機螢幕上選取指定區域，生成資料流，将其發回主要機，并在主要機上顯示出抓取區域的BMP圖象。由以上過程可以看出，該方法的關鍵有二：一是如何在受控機上進行螢幕抓取，二是如何通過TCP/IP協定在兩台計算機中傳輸資料。

---- UDP(User Datagram Protocol，意為使用者封包協定)是Internet上廣泛采用的通信協定之一。與TCP協定不同，它是一種非連接配接的傳輸協定，沒有确認機制，可靠性不如TCP，但它的效率卻比TCP高，用于遠端螢幕監視還是比較适合的。同時，UDP控件不區分伺服器端和用戶端，隻區分發送端和接收端，程式設計上較為簡單，故選用UDP協定，使用Delphi 4.0提供的TNMUDP控件。

---- 三、建立示範程式。

---- 第一步，編制VClient.exe檔案。建立Delphi工程，将預設窗體的Name屬性設為“Client”。加入TNMUDP控件，Name屬性設為“CUDP”；LocalPort屬性設為“1111”，讓控件CUDP監視受控機的1111端口，當有資料發送到該口時，觸發控件CUDP的OnDataReceived事件；RemotePort屬性設為“2222”，當控件CUDP發送資料時，将資料發到主要機的2222口。

---- 在implementation後面加入變量定義 
 

const BufSize=2048;{ 發送每一筆資料的緩沖區大小 }
 
var
 
  BmpStream:TMemoryStream;
 
  LeftSize:Longint;{ 發送每一筆資料後剩餘的位元組數 }
 

為Client的OnCreate事件添加代碼：
 
procedure TClient.FormCreate(Sender: TObject);
 
begin
 
  BmpStream:=TMemoryStream.Create;
 
end;
 

為Client的OnDestroy事件添加代碼：
 
procedure TClient.FormDestroy(Sender: TObject);
 
begin
 
  BmpStream.Free;
 
end;
 

為控件CUDP的OnDataReceived事件添加代碼：
 
procedure TClient.CUDPDataReceived(Sender: TComponent;
 
  NumberBytes: Integer; FromIP: String);
 
var
 
  CtrlCode:array[0..29] of char;
 
  Buf:array[0..BufSize-1] of char;
 
  TmpStr:string;
 
  SendSize,LeftPos,TopPos,RightPos,BottomPos:integer;
 
begin
 
  CUDP.ReadBuffer(CtrlCode,NumberBytes);{ 讀取控制碼 }
 
  if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]=show then
 
  begin { 控制碼前4位為“show”表示主要機發出了抓屏指令 } 
 
if BmpStream.Size=0 then { 沒有資料可發，必須截屏生成資料 }
 
    begin
 
TmpStr:=StrPas(CtrlCode);
 
TmpStr:=Copy(TmpStr,5,Length(TmpStr)-4);
 
LeftPos:=StrToInt(Copy(TmpStr,1,Pos(:,TmpStr)-1));
 
TmpStr:=Copy(TmpStr,Pos(:,TmpStr)+1,Length(TmpStr)
 
-Pos(:,TmpStr));
 
TopPos:=StrToInt(Copy(TmpStr,1,Pos(:,TmpStr)-1));
 
TmpStr:=Copy(TmpStr,Pos(:,TmpStr)+1,Length(TmpStr)-
 
Pos(:,TmpStr));
 
RightPos:=StrToInt(Copy(TmpStr,1,Pos(:,TmpStr)-1));
 
BottomPos:=StrToInt(Copy(TmpStr,Pos(:,TmpStr
 
)+1,Length(TmpStr)-Pos(:,TmpStr)));
 
ScreenCap(LeftPos,TopPos,RightPos,BottomPos); {
 
截取螢幕 }
 
    end;
 
if LeftSize>BufSize then SendSize:=BufSize
 
else SendSize:=LeftSize;
 
BmpStream.ReadBuffer(Buf,SendSize);
 
LeftSize:=LeftSize-SendSize;
 
if LeftSize=0 then BmpStream.Clear;{ 清空流 }
 
CUDP.RemoteHost:=FromIP; { FromIP為主要機IP位址 }
 
CUDP.SendBuffer(Buf,SendSize); { 将資料發到主要機的2222口 }
 
  end;
 
end;      

其中ScreenCap是自定義函數，截取螢幕指定區域，

代碼如下：

procedure TClient.ScreenCap(LeftPos,TopPos,
 
RightPos,BottomPos:integer);
 
var
 
  RectWidth,RectHeight:integer;
 
  SourceDC,DestDC,Bhandle:integer;
 
  Bitmap:TBitmap;
 
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);
 
  Bitmap:=TBitmap.Create;
 
  Bitmap.Handle:=BHandle;
 
  BitMap.SaveToStream(BmpStream);
 
  BmpStream.Position:=0;
 
  LeftSize:=BmpStream.Size;
 
  Bitmap.Free;
 
  DeleteDC(DestDC);
 
  ReleaseDC(Bhandle,SourceDC);
 
end;      

存為“C:/VClient/ClnUnit.pas”和“C:/VClient/VClient.dpr”，

并編譯。

---- 第二步，編制VServer.exe檔案。建立Delphi工程，将窗體的Name屬性設為“Server”。加入TNMUDP控件，Name屬性設為“SUDP”；LocalPort屬性設為“2222”，讓控件SUDP監視主要機的2222端口，當有資料發送到該口時，觸發控件SUDP的OnDataReceived事件；RemotePort屬性設為“1111”，當控件SUDP發送資料時，将資料發到受控機的1111口。加入控件Image1，Align屬性設為“alClient”；加入控件Button1，Caption屬性設為“截屏”；加入控件Label1，Caption屬性設為“左：上：右：下”；加入控件Edit1，Text屬性設為“0:0:100:100”；加入控件Label2，Caption屬性設為“受控機IP位址”；加入控件Edit2，Text屬性設為“127.0.0.1”；

在implementation後面加入變量定義

const BufSize=2048;
 
var
 
  RsltStream,TmpStream:TMemoryStream;      

為Server的OnCreate事件添加代碼：

procedure TServer.FormCreate(Sender: TObject);
 
begin
 
  RsltStream:=TMemoryStream.Create;
 
  TmpStream:=TMemoryStream.Create;
 
end;      

procedure TServer.FormDestroy(Sender: TObject);
 
begin
 
  RsltStream.Free;
 
  TmpStream.Free;
 
end;      

procedure TServer.Button1Click(Sender: TObject);
 
var ReqCode:array[0..29] of char;ReqCodeStr:string;
 
begin
 
  ReqCodeStr:=show+Edit1.Text;
 
  StrpCopy(ReqCode,ReqCodeStr);
 
  TmpStream.Clear;
 
  RsltStream.Clear;
 
  SUDP.RemoteHost:=Edit2.Text;
 
  SUDP.SendBuffer(ReqCode,30);
 
end;
 

為控件SUDP的OnDataReceived事件添加代碼：
 
procedure TServer.SUDPDataReceived(Sender: TComponent;
 
  NumberBytes: Integer; FromIP: String);
 
var ReqCode:array[0..29] of char;ReqCodeStr:string;
 
begin
 
  ReqCodeStr:=show+Edit1.text;
 
  StrpCopy(ReqCode,ReqCodeStr);
 
  SUDP.ReadStream(TmpStream);
 
  RsltStream.CopyFrom(TmpStream,NumberBytes);
 
  if NumberBytes< BufSize then { 資料已讀完 }
 
  begin
 
RsltStream.Position:=0;
 
Image1.Picture.Bitmap.LoadFromStream(RsltStream);
 
TmpStream.Clear;
 
RsltStream.Clear;
 
  end
 
  else
 
  begin
 
TmpStream.Clear;
 
ReqCode:=show;
 
SUDP.RemoteHost:=Edit2.Text;
 
SUDP.SendBuffer(ReqCode,30);
 
  end;
 
end;