[Кодер]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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;

Код:

1 2 3 4 5 6 7 8

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

[Admin]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

[Кодер]

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