VPF::Смена порта сервера TidTCPserver во время работы

sergu

Дата 25.12.2008, 23:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Делаю активный FTP клиент. Для канала данных я использую компонент indy TIdTCPServer.
Во время работы клиента, у TIdTCPServer должен меняться порт, т.е. по идее нужно остановить сервер, сменить порт и снова его запустить.
Делаю это так:

Код


if (IdTCPServer1.Active = true) then  IdTCPServer1.Active := false;
PortForData := PortForData+1;
IdTCPServer1.DefaultPort := PortForData;
 IdTCPServer1.Active := true;

При первой итерации это срабатывает. Но при последующих вызовах этого участка смены порта сервера не происходит.
Как быть?
Может мне стоит использовать TIdSimpleServer? Если да, то как мне его использовать?

Это сообщение отредактировал(а) sergu - 25.12.2008, 23:51

Romikgy

Дата 26.12.2008, 00:01 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

а разве у индейцев нет копонента ftp server ?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

sergu

Дата 26.12.2008, 00:16 (ссылка)

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

Загрузка ...

Новичок

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

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

Не, это лаба - нельзя использовать готовые компоненты.

dumb

Дата 26.12.2008, 05:49 (ссылка)

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

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

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

свойство DefaultPort определяет номер порта для добавляемого "биндинга". у тебя Bindings по дефлоту(т.е. пустая), поэтому при первом подключении автоматом создается один бинд - 0.0.0.0:DefaultPort. дальнейшие изменения DefaultPort уже не влияют на существующий бинд.

можно сделать примерно(могу ошибаться с синтаксисом) так:

Код


var
  bnd: TIdSocketHandle;
begin
  if IdTCPServer1.Bindings.Count then
    bnd := IdTCPServer1.Bindings.Items[0]
  else
    bnd := IdTCPServer1.Bindings.Add;
  bnd.Port := bnd.Port + 1;
  bnd.AllocateSocket;  // autocall CloseSocket
  bnd.Bind;
  bnd.Listen;
end;

Цитата(sergu @ 26.12.2008, 01:16

)

Не, это лаба - нельзя использовать готовые компоненты.

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