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

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: ;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!