VPF::TIdCmdTCPServer и TIdCmdTPCClient - Форум программистов

dvamaster

Дата 11.4.2007, 05:16 (ссылка)

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

Загрузка ...

Опытный

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

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

Доброго времени суток!

Что делать после коннекта в TIdCmdTCPServer и TIdCmdTPCClient.

из TIdCmdTPCClient передаю команду но вылетает мессага с надписью Welcome.
такое в печатление что TIdCmdTCPServer передает Welcome после коннекта.

Вообще можете показать пример как работать с ними, используя TIdCommandHandler

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

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Snowy

Дата 11.4.2007, 11:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Вызываешь редактор хэндлера.
Сознаёшь новый элемент.
Там прописываешь комманду, по которой он срабатывает и евент при получении этой комманды.
В книжке по Indy всё расписано подробней и с примерами

Добавлено через 33 секунды

Цитата(dvamaster @ 11.4.2007, 05:16

)

передает Welcome после коннекта.

Это тоже настраивается в проперти Greeting

salik

Дата 29.1.2011, 20:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Начал разбираться с Indy и столкнулся с тойже проблемой.

Запускаю сервер:

Код


procedure TForm1.Button4Click(Sender: TObject);
begin
   IdCmdTCPServer1.Active := True;
   CheckBox3.Checked :=  IdCmdTCPServer1.Active;
end;

подключаю клиента:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  IdCmdTCPClient1.Connect;
end;

Получаю следующий лог:

Код


CEvent подключен
SEvent192.168.1.2:50250 Stat Connected.
SEvent192.168.1.2:50250 Sent 29.01.2011 19:57:37: 200 Welcome<EOL>

Как и написал "dvamaster" - сервер посылает сообщение.
Я так понимаю клиент должен его принять, но как, когда и где?!

Клиент находится в состоянии приема данных. Это следует из ошибки по "ReadTimeout", если сие запустить со значением отличным от -1.

Snowy

Дата 1.2.2011, 02:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Комманды принимает CommandHandler.
Комманды прописываешь сам - на какие реагировать.
Найди в свойствах хэндлер и добавь в него комманды.
Что касается Welcome - Это Greating - настраивается в свойствах сервера.

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