Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.10;
Скачать: CL | DM;

Вниз

Проверить, используется ли уже данный UDP порт.   Найти похожие ветки 

 
DVM ©   (2007-05-24 14:48) [0]

Для TCP делал так:


function TestTCPPort(Port: integer): boolean;
var
 WSA : TWSAData;
 ListenSocket: TSocket;
 SockAddr : TSockAddr;
begin
 result := false;
 if WSAStartup($101, WSA) <> 0 then exit;
 try
   ListenSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
   if ListenSocket = INVALID_SOCKET then exit;
   try
     FillChar(SockAddr, SizeOf(TSockAddr), 0);
     SockAddr.sin_family := AF_INET;
     SockAddr.sin_port := htons(Port);
     SockAddr.sin_addr.S_addr := INADDR_ANY;
     if bind(ListenSocket, SockAddr, SizeOf(TSockAddr)) <> 0 then exit;
     if listen(ListenSocket, SOMAXCONN) <> 0 then exit;
     result := true;
   finally
     Closesocket(ListenSocket);
   end;
 finally
   WSACleanup;
 end;
end;


Для UDP так не проходит, если я просто заменяю

SOCK_STREAM на SOCK_DGRAM.

Что неправильно?


 
Сергей М. ©   (2007-05-24 14:59) [1]


> Что неправильно?


Ответ - прямо в справке:

listen applies only to sockets that are connection oriented, for example, those of type SOCK_STREAM


 
DVM ©   (2007-05-24 15:05) [2]


> Сергей М. ©   (24.05.07 14:59) [1]

Спасибо.


 
Сергей М. ©   (2007-05-24 15:15) [3]

Более того, для определения "занятости" порта вызов listen() вообще не нужен - ни при SOCK_STREAM, ни при SOCK_DGRAM.

Если порт занят, bind() вернет отказ.


 
DVM ©   (2007-05-24 15:19) [4]


> Если порт занят, bind() вернет отказ.

Ясно. Буду справку внимательнее читать. :)



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

Текущий архив: 2008.02.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
15-1199931425
дучф_ч
2008-01-10 05:17
2008.02.10
ошибка при открытии Progecta


4-1183388569
Углук
2007-07-02 19:02
2008.02.10
Xук на сообщение WM_SYSCOMMAND:SC_MAXIMIZE


2-1200463740
repus
2008-01-16 09:09
2008.02.10
Вопрос по написанному мной коду :)


15-1199808776
VAD*Anti Gopn!k
2008-01-08 19:12
2008.02.10
NVIDIA 7600GS


15-1199963354
Layner
2008-01-10 14:09
2008.02.10
Люди, объясните в чем подвох, сам разобрать не могу