Нужно узнать доступенли комп в сети с заданым именем

← →
Alex_x © (2003-11-17 13:30) [0]

у меня есть функция которая определяте естли щас в сети комп с заданым именем, но она очень медлено работает. Может есть чтонибуть побистрее?

вот такой пользуюсь:
Function Connect:boolean;
var
FServerName : string;
ntr : NETRESOURCE;
code : DWORD;
buf : array[0..99] of char;
begin
FServerName := "comp";
StrPCopy(buf, "\\" + FServerName);
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
.................
.................

← →
pasha_golub © (2003-11-17 13:33) [1]

Банальный ping чем Вам не угодил?

← →
Anatoly Podgoretsky © (2003-11-17 13:36) [2]

Тем что не рабочее, может быть блокировано, может не быть доступа до ресурсов, ну второе не важно по задаче.

← →
Alex_x © (2003-11-17 13:52) [3]

запустить Пинг с делфи я смогу, а как получить обратно результат????? мне в процесе работы программы нужно проверять наличие определённого компа в сети

← →
Rouse_ © (2003-11-17 15:56) [4]

А как ты пинг отправляешь, почему не можешь получить результат?

← →
Alex_x © (2003-11-17 16:10) [5]

Я из Делфи кроме как запустить ping.exe другого способа незнаю, может есть компонент для делфи который пинг делает?????

idICMP

Желаю успехов

В качестве примера:

procedure TForm1.FormCreate(Sender: TObject); begin IdIcmpClient1.Host := "www.delphimaster.ru"; IdIcmpClient1.Ping; end; procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: TReplyStatus); begin Caption := AReplyStatus.FromIpAddress; end;

Желаю успехов

Спасибо, работает. Только плохо что если нет компа в сети то ошибка генерируется.

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