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

var

netImage: TNetImage;

begin

netImage:=TNetImage.Create;

netImage.CommandType:=CM_GETSCREEN; // 事件 Client: 想看看老兄的屏幕

netImage.Compress:=netImageCompress;

if not netImage.ReadData(cpcClient) then

begin

ShowMessage(''''截取屏幕失败!'''');

end

else begin

imgScreen.Picture.Assign(netImage.RemoteJpegImage);

sbInfo.Panels[0].Text:=''''截取屏幕成功'''';

end;

netImage.Free;

end;

TNetCommand世界中的礼仪

事件 Client: 想看看老兄的屏幕

netImage.CommandType:=CM_GETSCREEN; netImage.ReadData(cpcClient)

Client:

1. 通知主人，是我来拜访Client.WriteInteger(TCP_NETIMAGE);

Server:

1.