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

2008-04-09 04:24:53来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

究竟是谁来拜访? 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
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:大自然的BUG、人的BUG、软件的疑难杂症

下一篇:delphi部分学习笔记