Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Смена порта сервера TidTCPserver во время работы

Автор: sergu 25.12.2008, 23:49

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

Код


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

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

Автор: Romikgy 26.12.2008, 00:01

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

Автор: sergu 26.12.2008, 00:16

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

Автор: dumb 26.12.2008, 05:49

свойство 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

)

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