Главная страница
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-1081771553
tytus
2004-04-12 16:05
2004.05.02
Как в процедуру из библиотеки передать TStringList?


3-1080979672
Belkova
2004-04-03 12:07
2004.05.02
Как обновить д-е во всех приложениях


1-1081997359
an-na2002
2004-04-15 06:49
2004.05.02
лишняя пустая строка


1-1081951805
Plt
2004-04-14 18:10
2004.05.02
Как не допустить повторную загрузку формы?


3-1080918463
}|{yk
2004-04-02 19:07
2004.05.02
ОК, а как получит всех детей любого поддерева не имеющих потомков