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

究竟是谁来拜访？ 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);

标签：

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