Форум: "Сети";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Как узнать, прослушивается ли уже данный порт?   Найти похожие ветки 

← →
paul_shmakov   (2001-11-11 03:37) [1]

вот написал сейчас небольшой примерчик

program portuse;

uses Windows, Sysutils, Winsock;

{$APPTYPE CONSOLE}

function IsPortInUse(Port: Smallint): Boolean;
var
S: TSocket;
Sin: sockaddr_in;
WSAData: TWSAData;
begin
Result := false;

WSAStartup($0101, WSAData);
try
S := socket(AF_INET, SOCK_STREAM, 0);
if S <> INVALID_SOCKET then
try
ZeroMemory(@Sin, SizeOf(Sin));
Sin.sin_family := AF_INET;
Sin.sin_port := htons(Port);
Sin.sin_addr.s_addr := INADDR_ANY;

if (bind(s, TSockAddr(Sin), SizeOf(Sin)) = SOCKET_ERROR) or
(listen(s, SOMAXCONN) = SOCKET_ERROR)
then
Result := WSAGetLastError = WSAEADDRINUSE;

finally
closesocket(s);
end;
finally
WSACleanup;
end;
end;

var
I: Integer;
begin
if ParamCount > 0 then
begin
for I := 1 to ParamCount do
if IsPortInUse(StrToInt(ParamStr(I))) then
WriteLn(ParamStr(I) + " port in use")
else
WriteLn(ParamStr(I) + " port unused");
end
else
WriteLn("usage: portuse.exe port [port ... ]");
end.


---

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

Форум: "Сети";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.014 c