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


3-1080886281
Blick
2004-04-02 10:11
2004.05.02
Проблемы кодировки в БД


3-1080915769
}|{yk
2004-04-02 18:22
2004.05.02
По деревьям. Получения количесва детей всех уровней


14-1081278369
Игорь Шевченко
2004-04-06 23:06
2004.05.02
Упражение из книжки Таненбаума (Современные операционные системы)


9-1069057084
knstantun
2003-11-17 11:18
2004.05.02
-как работать с dfx в delphi?