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




