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

function WriteImage(Server: TIdTCPServerConnection): Boolean;

end;

const

CM_GETSCREEN=101;

implementation

{

********************************** TNetImage ***********************************

}

constructor TNetImage.Create;

begin

inherited Create;

ImageStream:=TMemoryStream.Create;

JpegImage:=TJpegImage.Create;

RemoteJpegImage:=TJpegImage.Create;

RemoteImageStream:=TMemoryStream.Create;

end;

destructor TNetImage.Destroy;

begin

ImageStream.Free;

JpegImage.Free;

RemoteJpegImage.Free;

RemoteImageStream.Free;

inherited Destroy;

end;

function TNetImage.ReadData(Client: TIdTCPClient): Boolean;

begin

result:=true;

//

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

RemoteCommandTime:=Client.ReadLn();

Client.WriteInteger(CommandType); // Client 2. 看看老兄的屏幕

case CommandType of //

// Client: 3.

标签：

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