Доступность порта

[_-Re@l-_]

Есть TServerSocket и TClientSocket. Нужно проверить доступность порта(а вдруг он занят? ). Перебор портов начинается с 1025 до 2049, далее можно не проверять. Как?

[mss]

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

[_-Re@l-_]

Нашёл другое решение, поизящнее:

var SockAddrIn : TSockAddrIn;
    FSocket    : TSocket;

  ...

  If  bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 Then
  begin
    обрабатываем WSAGetLastError
  end;

[mss]

Сообщение от _-Re@l-_

Нашёл другое решение, поизящнее:

Ну вызвал ты бинд, занял порт при этом.
Далее ты активируешь TServerSocket и он обламывается, потому что в ходе активации он вызывает тот же самый бинд для порта, который ты перед этим занял явным биндом.

А для клиента бинд нафих не нужен.

[_-Re@l-_]

mss, я протестил, работает - так что вот не надо тут разводить.

[veniside]

Рил, у тебя взаимоисключающие параграфы. То тебе надо перебирать порты строго из 1025 до 2049 (заметь, обычно этот диапазон отдают системе, юзверям тут делать нечего), то вдруг теперь ты открыл для себя команду bind(), которая прибиндит тебя к первомому попавшемуся порту (а как же "строго из 1025 до 2049"? уже не строго?), ну или к тому порту, который ты руками задал в SockAddrIn. Где логика? Ещё и споришь со знающим человеком. Для начала запусти TcpView и разберись, куда твой сервер в результате забиндился.

[_-Re@l-_]

То тебе надо перебирать порты строго из 1025 до 2049 (заметь, обычно этот диапазон отдают системе, юзверям тут делать нечего)

Это ограничение отпало, просто теперь пользуюсь любыми портами.

Ещё и споришь со знающим человеком.

Знающим? Маловероятно.

Рил,

Учи английский. Во-первых, real читается как "риал"(естественно, со всякими английскими призвуками), а в моём случае - "Реал".

[veniside]

> Это ограничение отпало

да уж, "изящное" решение, нечего сказать. Естественно, мы должны были сами догадаться, что ограничение на диапазон с 1025 до 2049 нафиг отпало.

> просто теперь пользуюсь любыми портами

речь про сервер, я надесь. Было бы интересно взглянуть на код, который назначает порт серверу из SockAddrIn, после того как bind() успешно отработал.

[mss]

не надо тут разводить

Что ж ты за бестолочь-то, а ?)

Еще раз повторяю - используя напрямую WinSock ты :
1. Создал ОТДЕЛЬНЫЙ сокет (никак не связанный с сокетом, который создает TServerSocket при его активации, не раньше и не позже !!).
2. Хендл этого сокета ты передал параметром в вызов ф-ции Bind(). Она вернула, к примеру, успех, т.е. порт не занят.
3. Если СРАЗУ после этого ты будешь активировать TServerSocket с указанеим порта, к которому ты в п.2 забиндился, то он пошлет тебя в пень, ибо своим биндом ты занял этот порт.
4. Если перед активацией TServerSocket к этому порту ты вызовешь CloseSocket для того сокета, который ты создал в п.1 чтобы забиндиться к проверяемому порту, то нет НИКАКОЙ ГАРАНТИИ, что в промежуток времени между между CloseSocket() и TServerSocket.Open кто-то кроме тебя не успеет занять только что проверенный тобой на незянятость порт.

Знаний-то ноль, а гонору выше крыши)