Скачать: CL | DM;

Проблема создания 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]

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

---

← →
Klim ©   (2005-10-01 17:22) [6]

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

---

← →
Digitman ©   (2005-10-03 08:09) [7]

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

---

← →
Klim ©   (2005-10-23 22:21) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c