基于阻塞Socket(Indy)的远程控制类库-TNetComman…

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有