VPF::TCP server на консоле??? - Форум программистов

Max_Rendel

Дата 19.3.2007, 20:38 (ссылка)

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

Загрузка ...

Новичок

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

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

Как сделать TCP server на консоле???

Для университета делаю сервер для орфоэпического словаря (орфоэпический словарь - словарь ударений).

Программа получает строку, ищет каждое слово по орфоэпическому словарю, а затем готовую строку посылает в виде ответа.

Программу сделал на IdTCPServer.

Теперь хочу на консоль перенести, а вот с TCP под консолем не получается работать.

Подскажите как это сделать.

Это сообщение отредактировал(а) Max_Rendel - 19.3.2007, 20:41

Alkash

Дата 20.3.2007, 11:23 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

Почему не получается? TidTCPServer.create......А там уже и работай с ним, в uses только надо будет добавить необходимые модули.

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

Подпись >> /dev/null

Max_Rendel

Дата 20.3.2007, 17:05 (ссылка)

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

Загрузка ...

Цитата(Alkash @ 20.3.2007, 17:23)

Вот что я делаю:

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, IdTCPServer;

var
  IdTCPServer1: TidTCPServer;
begin
  TidTCPServer.Create(); {Чего в эти скобки нужно?}
end.

А дальше что? Как например написать процедуру принятия строки от клиента? И как сделать, чтобы программа не закрывалась а постоянно могла работать с клиентом?
В режиме Connect --> Получение строки --> Обработка её --> Отправка ответа --> Disconnect.
А дальше ждёт новое соединение.

Подскажи пожалуйста по подробней.

Это сообщение отредактировал(а) Max_Rendel - 20.3.2007, 17:06

Max_Rendel

Дата 21.3.2007, 11:13 (ссылка)

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

Загрузка ...

Вот, что я теперь делаю:

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, IdTCPServer;

var
  IdTCPServer1: TIdTCPServer;

begin
  IdTCPServer1:= TIdTCPServer.Create(nil);
  with IdTCPServer1 do
  try
    IdTCPServer1.DefaultPort:= 1366;
    IdTCPServer1.Active:= True;
  finally
    Free;
  end;
end.

А как теперь сделать процедуру которая принемала бы строку, отправляла ответ и отсоединялась от клиента, но программа не закрывалась, а продолжала ожидать нового соединения, и т.д. по новой.

bartram

Дата 21.3.2007, 12:34 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

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

Цитата(Max_Rendel @ 21.3.2007, 11:13

)

Ну а как ты это раньше делал? Ты же ведь создал динамически компонент, вот и работай с ним как с обычным, как и работал раньше smile

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

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

Alkash

Дата 22.3.2007, 09:42 (ссылка)

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

Загрузка ...

коллекционер жизни

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

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

А чтоб прога не завершалась после твоих действий - юзай ReadLn-)

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

Подпись >> /dev/null

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