сокеты - ошибка 10013 (delphi)

[dyonysos]

при запуске программы из реестра читается значение порта который присваивается serversocket-у,потом serversocket активируется.
проблема в том что если такой порт уже открыт другой программой то вылетает такая ошибка:



подумал что можно при подобном случае увеличить значение port на единицу и снова попытатся активировать сервер:

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  if ErrorCode = 10013 then begin
    serversocket1.Close;
    serversocket1.Port:=serversocket1.port+1;
    serversocket1.Open;
  end;
end;

но не помогает! в чем проблема?
если это неправильный подход то как по другому избежать этой ошибки?

[ImmortalAlexSan]

Ну... возможно вам нужно активировать обработчик ошибок (какие-то два английских слова перед частью кода и после неё). Если не изменяет память то эти два слова: exept и finally, но я могу ошибаться, ибо не профи и точно не помню И если это правильно, то возможно такой подход не подходит к сетевым приложениям.

[W0LF]

Перед заданием порта, проверяйте его используется ли он уже или нет...
ImmortalAlexSan уже создал топик по этому поводу))

[Blourid]

Есть и еще вариант, фаер тоже блокирует порты, отключите на время фаерволл

[ImmortalAlexSan]

Проблема не решена ещё? Если нет, то, dyonysos, покажите весь код программы пожалуйста.

[Пепел Феникса]

перед изменением состояния сокета обнулите переменную ErrorCode что будет означать что вы обработали ошибку(и не покажет ошибку)