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

case intCommand of

TCP_NETIMAGE: // 1.1原来是TNetImage，

netCommand:=TNetImage.Create; // “主随客便”干脆换上TNetImage的行头

TCP_NETSYSTEMINFO:

netCommand:=TNetSystemInfo.Create;

TCP_NETPROCESS:

netCommand:=TNetProcess.Create;

TCP_NETFILE:

netCommand:=TNetFile.Create;

{

//if you have new class ,you can do like this

TCP_NETEXITWINDOWS:

netCommand:=TNetExitWindows.Create;

TCP_NETMOUSE:

netCommand:=TNetMouse.Create;

}

TCP_QUIT:

Disconnect;

else

exit;

end;

end;

// Server : 1.2总要招待一下客人，问问需要些什么

netCommand.WriteData(AThread.Connection);

end;

Client端请求得到对方屏幕

标签：

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