Определить, занят ли порт сокета
01.01.2007
var SockAddrIn : TSockAddrIn;
FSocket : TSocket;
...
If bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 Then
begin
обрабатываем WSAGetLastError
end;
Взято с https://delphiworld.narod.ru
var SockAddrIn : TSockAddrIn;
FSocket : TSocket;
...
If bind(FSocket, SockAddrIn, SizeOf(SockAddrIn)) <> 0 Then
begin
обрабатываем WSAGetLastError
end;
Взято с https://delphiworld.narod.ru