Главная страница
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.026 c
1-1081952668
{bas}
2004-04-14 18:24
2004.05.02
BlockWrite пишет всякую еренду


1-1082151596
Dionnis
2004-04-17 01:39
2004.05.02
Переход по закладкам элемента PageControl


7-1079237234
$tranger
2004-03-14 07:07
2004.05.02
Запись звука через микрофон


14-1081772853
Инкогнито
2004-04-12 16:27
2004.05.02
А вы верите в чудеса? :)


1-1082108875
msgipss
2004-04-16 13:47
2004.05.02
помогите ламеру добавить в свой класс событие