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

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.

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