Скачать: CL | DM;

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

← →
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 другого способа незнаю, может есть компонент для делфи который пинг делает?????

---

← →
Rouse_ ©   (2003-11-17 16:19) [6]

idICMP

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

---

← →
Rouse_ ©   (2003-11-17 16:34) [7]

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

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;

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

---

← →
Alex_x ©   (2003-11-17 16:41) [8]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c