........................
//Отправляет строку
ClientSocket1.Socket.SendText( 'здесь какую-нибудь строку-команду' );
.......................
cmd or Telnet
А если кто не юзал то ... Как зделать при помощи TServerSocket и TClientSocket передачу команнды cmd анпример клиент шлёт команду cmd а сервер её обрабатывает и посылает ответ клиенту !
В клиентской пишешь
Код:
На сервере
Код:
//Cобытие у ServerSocket ClientRead - сообщение пришло
procedure TForm1.ServerSocket1ClientRead(Sender:TObject;
Socket:TCustomWinSocket);
var
s:string;
begin
.................
s:=Socket.ReceiveText;
case s of
//а здесь в зависимости от того, что пришло, делать то-то
end;
................
end;
procedure TForm1.ServerSocket1ClientRead(Sender:TObject;
Socket:TCustomWinSocket);
var
s:string;
begin
.................
s:=Socket.ReceiveText;
case s of
//а здесь в зависимости от того, что пришло, делать то-то
end;
................
end;
Нужно что-то Перенаправление вывода консольни