Проблема создания TServerSocket

← →
Klim © (2005-09-29 00:12) [0]

Здравствуйте уважаемые мастрера.
При создании TserverSocket происходит ошибка. Не могу понять в чем дело.
Вот исходный код:
Constructor TRegistrator.Create;
begin
Inherited Create;
Fportin:=portIn;
Foutdir:=OutDir;
Fcounter:=0;
FStreamList:=TList.Create;
FClientList:=TList.Create;
FTcpServer:=TServerSocket.Create(nil);
FTcpServer.OnClientConnect:=ClientConnect;
FTcpServer.OnClientDisconnect:=ClientDisConnect;
FTcpServer.OnClientRead:=ReadtheBuffer;
FTcpServer.Name:="TCPServer"+inttostr(portIn);
FTcpServer.ThreadCacheSize:=10;
FTcpServer.ServerType:=stNonBlocking;
FTcpServer.Port:=fportin;
FTcpServer.Open;//при вызове метода происходит исключение
end;

Ошибка: Windows socket error: получен недопустимый аргумент (10022), on Api"bind"
Заранее благодарен

← →
Digitman © (2005-09-29 08:35) [1]

fportin = ?

← →
Klim © (2005-09-30 11:21) [2]

portIn параметр передаваемый в конструктор, далее FportIn:=portin
Кстати, этот код у меня на работе работает а дома нет.

← →
Digitman © (2005-09-30 11:37) [3]

> Klim © (30.09.05 11:21) [2]

ЧЕМУ равно значение fportin ?
оно должно быть равно номеру свободного порта !

← →
Klim © (2005-10-01 17:16) [4]

FportIn=5002
Он свободен и не используется

← →
klim © (2005-10-01 17:19) [5]

Эксперементировал и с другими не используемыми значениями

FportIn=5002
Он свободен и не используется

WSAEINVAL (10022) The socket is already bound to an address.

Извините за отсутвие, был в отпуске. Спасибо за ответ, все работает нормально после переустановки системы и delphi.

Проблема создания TServerSocket Найти похожие ветки