[Кодер]

Выручайте, стандартно создаю 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;