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



Вниз

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

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]

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

---

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

Наверх

Память: 0.72 MB
Время: 0.043 c