Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема создания TServerSocket [D7, WinXP]

Klim © (2005-09-29 00:12:00)
Здравствуйте уважаемые мастрера.
При создании 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'
Заранее благодарен

Klim (2005-10-23 22:21:00) [1]
Извините за отсутвие, был в отпуске. Спасибо за ответ, все работает нормально после переустановки системы и delphi.

Digitman (2005-10-03 08:09:00) [2]
WSAEINVAL (10022) The socket is already bound to an address.

Klim (2005-10-01 17:22:00) [3]
FportIn=5002
Он свободен и не используется

klim (2005-10-01 17:19:00) [4]
Эксперементировал и с другими не используемыми значениями

Klim (2005-10-01 17:16:00) [5]
FportIn=5002
Он свободен и не используется

Digitman (2005-09-30 11:37:00) [6]

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

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

Klim (2005-09-30 11:21:00) [7]
portIn параметр передаваемый в конструктор, далее FportIn:=portin
Кстати, этот код у меня на работе работает а дома нет.

Digitman (2005-09-29 08:35:00) [8]
fportin = ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »