Форум: "Сети";
Поиск по всему сайту: 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.71 MB
Время: 0.013 c
1-8825            Yuraz                 2002-01-19 16:53  2002.02.04  
Вопрос не столько по графике, сколько об написании кода


1-8873            Turalyon              2002-01-15 09:44  2002.02.04  
Динамические объекты


4-9022            diasm                 2001-12-06 18:21  2002.02.04  
Анимированные иконки


1-8925            Dmitriy_R             2002-01-15 10:49  2002.02.04  
Создание файла?


1-8844            Vovochka_guest        2002-01-21 08:53  2002.02.04  
Какой компонент для создания отчетов лучше?