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

Вниз

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

 
Burmistroff ©   (2001-11-10 20:28) [0]

Ситуация такая: например запущен Apache (порт 80). Я пытаюсь TServerSocket открыть на том-же порту, на что получаю Access Violation. А нельзя ли более мирным способом проверить тот факт, что данный порт уже прослушивается?


 
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.


 
panov ©   (2001-11-12 13:00) [2]

Можно просто попытаться подключиться к этому порту, если удастся - порт уже прослушивается...



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
3-8752
VA
2001-12-31 01:52
2002.02.04
ADO


1-8818
DJ X
2002-01-19 15:55
2002.02.04
HTM Inside


14-8988
Pat
2001-12-08 14:45
2002.02.04
Глюк FAT32


1-8816
ev
2002-01-19 17:11
2002.02.04
Sender


1-8916
Лана Розанова
2002-01-17 15:39
2002.02.04
Memo