基于阻塞Socket(Indy)的远程控制类库-TNetCommand世界中的礼仪-02

核心提示：TNetImage类源代码// uNetImge .pas 屏幕图像相关操作 {{作者：蛐蛐时间：2004.5.26 }unit uNetImage; interfaceuses Classes, Windows, Graphics, Forms, Jpeg, SysUtils, IdTCPServer, IdT

TNetImage类

源代码

// uNetImge .pas 屏幕图像相关操作

{{

作者：蛐蛐

时间：2004.5.26

}

unit uNetImage;

 

interface

uses

  Classes, Windows, Graphics, Forms, Jpeg, SysUtils,

  IdTCPServer, IdTCPClient,uNetCommand;

type

  TNetImage = class (TNetCommand)

  public

　  ComPRess: Integer;

　  ImageStream: TMemoryStream;

　  ImageTime: string;

　  JpegImage: TJpegImage;

　  RemoteImageStream: TMemoryStream;

　  RemoteJpegImage: TJpegImage;

　  constructor Create;

　  destructor Destroy; override;

　 

　  function ReadData(Client: TIdTCPClient): Boolean; override;

function ReadImage(Client: TIdTCPClient): Boolean;

 

　  // : 截取屏幕到Bitmap

　  {{

　  function SnapScreen.

　  BmpScreen 返回值.

　  Returns: 调用成功为true,否则为false.

　  }

function SnapScreen(var BmpScreen: TBitmap): Boolean; overload;

 

　  // : 截取屏幕到JPEG

　  {{

　  function SnapScreen.

　  JpegScreen 返回值 , JpegCompress 图像压缩比.

　  Returns: 调用成功为true,否则为false.

　  }

　  function SnapScreen(var JpegScreen: TJpegImage; JpegCompress: integer=100):

　　　  Boolean; overload;

 

　  // : 截取屏幕到Stream

　  {{

　  function SnapScreenToStream.

　  Stream 返回值, JpegCompress　图像压缩比.

　  Returns: 调用成功为true,否则为false.

　  }

　  function SnapScreenToStream(var Stream: TMemoryStream; JpegCompress:

　　　  integer=100): Boolean;

　  function WriteData(Server: TIdTCPServerConnection): Boolean; override;

　  function WriteImage(Server: TIdTCPServerConnection): Boolean;

  end;

 

const

  CM_GETSCREEN=101;

 

implementation

{

********************************** TNetImage ***********************************

}

constructor TNetImage.Create;

begin

  inherited Create;

  ImageStream:=TMemoryStream.Create;

　JpegImage:=TJpegImage.Create;

  RemoteJpegImage:=TJpegImage.Create;

  RemoteImageStream:=TMemoryStream.Create;

end;

 

destructor TNetImage.Destroy;

begin

  ImageStream.Free;

  JpegImage.Free;

  RemoteJpegImage.Free;

  RemoteImageStream.Free;

  inherited Destroy;

end;

 

function TNetImage.ReadData(Client: TIdTCPClient): Boolean;

begin

  result:=true;

  //

  Client.WriteInteger(TCP_NETIMAGE);　  // Client: 1. 通知主人，是我来拜访

  RemoteCommandTime:=Client.ReadLn();

  Client.WriteInteger(CommandType);  // Client 2. 看看老兄的屏幕

 

  case CommandType of　  //

// Client: 3. 收到了，把它装到RemoteJpegImage

　  CM_GETSCREEN: Result:=ReadImage(Client);

　  {  预留操作项

　  1: ;

　  2: ;

　  3: ;

　  }

  end;　  // case

end;

 

function TNetImage.ReadImage(Client: TIdTCPClient): Boolean;

var

  Size: Integer;

begin

  result:=true;

  try

  with Client do

  begin

　  WriteInteger(Compress);　 // 2  compress

　  Size:=ReadInteger();　　  // 3  StreamSize

　  ReadStream(RemoteImageStream,Size);

　  RemoteImageStream.Position:=0;

　  RemoteJpegImage.LoadFromStream(RemoteImageStream);

  end;

  except

　  result:=false;

  end;

end;

 

function TNetImage.SnapScreen(var BmpScreen: TBitmap): Boolean;

var

  FullScreenCanvas: TCanvas;

  dc: HDC;

  SourceRect, DestRect: TRect;

begin

  result := true;

 

　try

　  dc := GetDC(0);

　  FullScreencanvas := Tcanvas.Create;

　  FullScreencanvas.Handle := dc;

 

　  BmpScreen.Width := Screen.Width;

　  BmpScreen.Height := Screen.Height;

　  SourceRect := Rect(0, 0, Screen.Width, Screen.Height); ;

　  DestRect := Rect(0, 0, Screen.Width, Screen.Height); ;

　  BmpScreen.Canvas.CopyRect(SourceRect, FullScreenCanvas, DestRect);

  except

　　 result := false;

  end;

end;

 

function TNetImage.SnapScreen(var JpegScreen: TJpegImage; JpegCompress:

　  integer=100): Boolean;

begin

{… }

end;

 

function TNetImage.SnapScreenToStream(var Stream: TMemoryStream; JpegCompress: 

　  integer=100): Boolean;

begin

{… }

end;

 

function TNetImage.WriteData(Server: TIdTCPServerConnection): Boolean;

begin

  result:=true;

 

  Server.WriteLn(TimeToStr(GetTime));  // Send Time

  case Server.ReadInteger of　  //  Get Commandtype

　  // Server: 2. 小事一桩，把屏幕传给你，准备接受

　  CM_GETSCREEN: Result:=WriteImage(Server) ;

　  1: ;

　  2: ;

　  3: ;

  end;　  // case

 

end;

 

function TNetImage.WriteImage(Server: TIdTCPServerConnection): Boolean;

var

  Stream: TMemoryStream;

begin

  Stream:= TMemorySTream.Create;

 

  Compress:=Server.ReadInteger();　  // 1  compress

 

  if SnapScreenToStream(Stream,Compress) then

  begin

　  with Server do

　  begin

　　  WriteInteger(Stream.Size);

　　  WriteStream(Stream);

　  end;

　  result:=true;

  end

  else

　  result:= false;

 

  Stream.Free;

end;

 

end.

 

 

Server端核心程序

procedure TFrmServer.cpsServerExecute(AThread: TIdPeerThread);

var

  intCommand: Integer;

  netCommand: TNetCommand;

begin

  With AThread.Connection do

  begin

　  intCommand:=ReadInteger();　　  //  Server: 1. 究竟是谁来拜访

　  case intCommand of

　　  TCP_NETIMAGE:　　 //  1.1原来是TNetImage，

　  netCommand:=TNetImage.Create;  // “主随客便”干脆换上TNetImage的行头

　　  TCP_NETSYSTEMINFO:

　  netCommand:=TNetSystemInfo.Create;

　　  TCP_NETPROCESS:

　  netCommand:=TNetProcess.Create;

　　  TCP_NETFILE:

　  netCommand:=TNetFile.Create;

　　  {

　　  //if you have new class ,you can do like this

　　  TCP_NETEXITWINDOWS:

　  netCommand:=TNetExitWindows.Create;

　　  TCP_NETMOUSE:

　  netCommand:=TNetMouse.Create;

 

　　  }

　　  TCP_QUIT:

　  Disconnect;

　  else

　　  exit;

　  end;

  end;

// Server : 1.2总要招待一下客人，问问需要些什么

  netCommand.WriteData(AThread.Connection);

end;

 

Client端请求得到对方屏幕

procedure TFrmClient.aNetImageGetScreenExecute(Sender: TObject);

var

  netImage: TNetImage;

begin

  netImage:=TNetImage.Create;

netImage.CommandType:=CM_GETSCREEN; // 事件 Client: 想看看老兄的屏幕

  netImage.Compress:=netImageCompress;

  if not netImage.ReadData(cpcClient) then

  begin

　  ShowMessage('截取屏幕失败!');

  end

  else begin

　  imgScreen.Picture.Assign(netImage.RemoteJpegImage);

 

　  sbInfo.Panels[0].Text:='截取屏幕成功';

  end;

  netImage.Free;

end;

 

TNetCommand世界中的礼仪

 

事件 Client: 想看看老兄的屏幕

netImage.CommandType:=CM_GETSCREEN; netImage.ReadData(cpcClient)

 

　 

Client:

　  1. 通知主人，是我来拜访Client.WriteInteger(TCP_NETIMAGE);

Server:

　  1. 究竟是谁来拜访？ intCommand:=ReadInteger(); 

　  1.1原来是TNetImage，“主随客便”干脆换上TNetImage的行头

　  netCommand:=TNetImage.Create;

　  1.2总要招待一下客人，问问需要些什么

　  netCommand.WriteData(AThread.Connection);

　  1.3嘘寒问暖，一笔带过吧

　  Server.WriteLn(TimeToStr(GetTime));…

　　　　　 

Client:

　  2. 看看老兄的屏幕

　  Client.WriteInteger(CommandType); // CommandType:=CM_GETSCREEN

　  Server:

　  2. 小事一桩，把屏幕传给你，准备接受

　  case Server.ReadInteger of　 

　　　  CM_GETSCREEN: Result:=WriteImage(Server) ;

　  end; 

　　

Client:

　  3. 收到了，把它装到RemoteJpegImage

　  case CommandType of　

　　　  CM_GETSCREEN: Result:=ReadImage(Client);

　  end;　 

 

得到屏幕图像….