Тест порта

← →
Yuri Btr © (2001-12-18 10:36) [0]

Как протестировать порт, перед открытием сокета на нём...
Не хочется ловить ошибки, если порт занят.
Спасибо.

← →
Fellomena (2001-12-18 16:13) [1]

Вообще-то при попытке открытия сокета на уже "занятом" порте ты получишь исключение.
А что бы твоя программа грамотно себя повела, то можно сделать следующее:
... try ... // попытка открыть сокет на порту n ... except // в случае ошибки меняешь порт на n+1 PortNumber:=PortNumber+1 end;
это можно как-то в цикл приладить, что бы если порт+1 занят, то пробовать следующий.

а можно так:
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1005413316&n=4

Тест порта Найти похожие ветки