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

Вниз

Как проверить доступен-ли удаленный компьютер по имени   Найти похожие ветки 

 
AlexS76   (2004-03-11 10:16) [0]

Необходимо выяснить доступен ли в данный момент компьютер по сети.
Есть ли какие-то способы кроме ping


 
Reindeer Moss Eater ©   (2004-03-11 10:23) [1]

Какой смысл вложен в "компьютер доступен" и когда считается что "он недоступен" ?


 
Rezya ©   (2004-03-11 10:42) [2]

А чем тебя Ping не устраивает?.
На мой взгляд это самое лучшее средство которым обладает Win32 (и не только) для достижения товоей цели. Если у тебя с этим проблема то почитай к примеру "Реализация ping с помощью ICMP API" на этом сайте.
Если так подумать то для того чтобы обойтись без Ping то тебе нужно знать какой не будь постоянно открытый порт на удаленном компе, после чего если соединение с этим компом на этот порт прошло удачно без всяких там SOCKET_ERROR, то комп в сети если нет то ....


 
Reindeer Moss Eater ©   (2004-03-11 10:51) [3]

Ну вот стоит рядом со мной компьютер доступный мне по самое нехочу.
Но нет на нем TCP/IP. Вообще нет.

Что дальше?


 
just me   (2004-03-11 18:01) [4]

Можно так:
var
 ntr      : NETRESOURCE;
 code     : DWORD;
 buf      : array[0..99] of char;
 Host     : string;
begin
 Host := "my_servrt_name";
 StrPCopy(buf, "\\" + Host);
 with ntr do
 begin
   dwType       := RESOURCETYPE_ANY;
   lpLocalName  := nil;
   lpRemoteName := buf;
   lpProvider   := nil;
 end;
 code := WNetAddConnection2(ntr, "", "", 0);
 WNetCancelConnection2(buf, 0, True);
 if NO_ERROR <> code then
   raise Exception.Create(Format("Cannot access "%s".",Host]));



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
1-1081762869
Alexey Chekmezov
2004-04-12 13:41
2004.05.02
Delphi+TComponent


6-1078175716
ser_ega
2004-03-02 00:15
2004.05.02
Explorer


1-1081978534
BAY
2004-04-15 01:35
2004.05.02
OpenGL


14-1081333588
syte_ser78
2004-04-07 14:26
2004.05.02
Аська


1-1081848210
Cyxapeff
2004-04-13 13:23
2004.05.02
FindText