VPF::прием-передача пакетов по IdTCPClient/Server

DICa

Дата 25.2.2007, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 25.2.2007

Репутация: нет
Всего: нет

Здравствуйте!
Есть две формы,-одна Клиент, другая -Сервер, - на одной форме idTCPclient1. а на другой idTCPServer1 соответственно.
Принимать сообщения от клиента получается по OnExecute, но Клиент не хочет принимать сообщения от сервера. Не могу понять как это реализовать.
Помогите, плиииииз.

Это сообщение отредактировал(а) DICa - 26.2.2007, 19:42

KEM

Дата 26.2.2007, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 152
Регистрация: 28.1.2005

Репутация: нет
Всего: 2

В примерах к инди есть, простое TCP_IP клиент серверное приложение

--------------------

Мы растворяем сознание жизни, реальностью стал бешеный ритм...

Max_Rendel

Дата 20.3.2007, 07:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 24.2.2007
Где: г.Благовещенск

Репутация: нет
Всего: нет

Работа с клиентом:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    IdTCPClient1.Host:= txtIP.Text;                 {Host сервера}
    IdTCPClient1.Port:= StrToInt(txtPort.Text);     {Port сервера}
    IdTCPClient1.Connect;

    IdTCPClient1.WriteLn('Command');                {Отправляем строку серверу}
  except                                            {Отработа исключительных ситуаций}
    on E: Exception do
    begin
      IdTCPClient1.Disconnect;
      MessageDlg ('Error while connecting to Server:'+#13+E.Message, mtError, [mbOk], 0);
    end;
  end;
end;

Работа с сервером:

Код


procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
  sTempString: String;
begin
  try
    sTempString:= AThread.Connection.ReadLn;       {Принетая строка от клиента}
    if sTempString = 'Command' then                {Проверяем её содержимое}
      sTempString:= ProcessingString(sTempString); {Делаем с ней что небудь}
    AThread.Connection.WriteLn(sTempString);       {Посылаем ответ клиенте}
  finally
    AThread.Connection.Disconnect;                 {Отсоединяемся от клиента}
  end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »