[Кодер]

Выручайте, стандартно создаю 2 части клиентскую и серверную..Сервак висит на соседней машине. По ip отправляем на сервер команды и соответственно они выполняют те или иные действия. (чтото на подобии троя).

Загвоздка в чем:
Работает только запрос monitor.off
остальные не идут

Ниже привел отправку и обработку сообщений.

Код:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
if AThread.Connection.ReadLn=('monitor.off') then
  begin
  ShowMessage('monitor.off');
  end;
if AThread.Connection.ReadLn=('monitor.on') then
  begin
  ShowMessage('monitor.on');
  end;

AThread.Connection.Disconnect;
end;

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
idTCPClient1.Host:=ip.text;
idTCPClient1.Port:=8090;
idTCPClient1.Connect();
idTCPClient1.WriteLn(com.text);
idTCPClient1.Disconnect;
end;

[Admin]

Правильно будет один раз считать сообщение с клиента и потом уже сверять с условиями.

Код:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
 mes: string;
begin
 mes:=AThread.Connection.ReadLn;

if mes='monitor.off' then ShowMessage('monitor.off');
if mes='monitor.on' then ShowMessage('monitor.on');

AThread.Connection.Disconnect;
end;

[Кодер]

Огромное тебе. Тему можно считать закрытой