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

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

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