Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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]

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



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

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

Наверх





Память: 0.45 MB
Время: 0.004 c
1-8910
Eraser
2002-01-16 10:59
2002.02.04
потоки текут-2 или получилось наполовину


6-8966
Dup
2001-11-12 10:37
2002.02.04
IP юзера


4-9029
irq
2001-12-04 17:49
2002.02.04
Процессы


1-8806
f0rm
2002-01-15 12:32
2002.02.04
Перевод юниксовского времени в нормальное виндовое


7-9002
Dmitry V. Averuanov
2001-10-22 11:16
2002.02.04
Нужно определить уровень сигнала на входе звуковой карты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский