Почему tIdTCPServer железно цепляется к порту

[Altera]

Всем привет!
Это что, очередной глюк или что?

procedure Tmain_wnd.con_btnClick(Sender: TObject);
var
port: string;
begin
   if length(addr_edit.Text) = 0 then
      port := '45678'
   else
      port := addr_edit.Text;

   disCon_btnClick(Sender);

   server.DefaultPort := strToInt(port);
   server.Active := true;
   addr_edit.Color := $E1FFE1;
end;

procedure Tmain_wnd.disCon_btnClick(Sender: TObject);
begin
   if server.Active then
   begin
      server.StopListening;
      addr_edit.Color := $DEDDFF;
   end;
end;

Короче порт остаётся тот, который назначается при первом подключении. Потом хоть 50 раз отключись и подключись назначаю порт ни хрена не меняется: При последующих подключениях порт остаётся тот же что и при первом.

[TwiX]

Имхо, проблема в остановке сервера инди.
Например, создаём сервер, в onExeceute пишем beep;, коннектимся к серву. Начинет пикать. Вырубаем проект - продолжает переодически пикать =\ По крайней мере у меня так.

[Altera]

Ну и как тогда мне быть?
Я вообще не уверен, что после active := false он полностью останавливается...

[Lime]

Сообщение от Altera

Ну и как тогда мне быть?
Я вообще не уверен, что после active := false он полностью останавливается...

Какая версия делфи?

[Altera]

Code gear 2009

[Lime]

Сообщение от Altera

Code gear 2009

У меня в ней сплошные глюки с интернет компонентами... те-же проекты компилю в д7 и всё отчлино работает.
Так-же проблемы с юникодом ...

[Квэнди]

после active:=false работа останавливается, но активными еще будут потоки приема сообщений.
для начала делайте idiohandler-у tcp-сервера close , а затем active:=false
defaultport не лучшее место для изменения порта, надо менять именно binding( по-мойму в cmdсервер он есть)

[Altera]

Сообщение от Квэнди

после active:=false работа останавливается, но активными еще будут потоки приема сообщений.
для начала делайте idiohandler-у tcp-сервера close , а затем active:=false
defaultport не лучшее место для изменения порта, надо менять именно binding( по-мойму в cmdсервер он есть)

Ничего я не понял.
Нету у tIdTCPServer.ioHandler метода Close.
Может реализацию в примерчике объясните?

[raxp]

почему-бы вам не попробовать destroy компонента? а когда надо создайте его заново...

[Altera]

Ага, ещё какой быдлокодеровский метод посоветуете?