| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нужно узнать доступенли комп в сети с заданым именем
Alex_x © (2003-11-17 13:30:00)
у меня есть функция которая определяте естли щас в сети комп с заданым именем, но она очень медлено работает. Может есть чтонибуть побистрее?
вот такой пользуюсь:
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
.................
.................
Alex_x (2003-11-17 16:41:00) [1]
Спасибо, работает. Только плохо что если нет компа в сети то ошибка генерируется.
Rouse_ (2003-11-17 16:34:00) [2]
В качестве примера:
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;
Желаю успехов
Rouse_ (2003-11-17 16:19:00) [3]
idICMP
Желаю успехов
Alex_x (2003-11-17 16:10:00) [4]
Я из Делфи кроме как запустить ping.exe другого способа незнаю, может есть компонент для делфи который пинг делает?????
Rouse_ (2003-11-17 15:56:00) [5]
А как ты пинг отправляешь, почему не можешь получить результат?
Alex_x (2003-11-17 13:52:00) [6]
запустить Пинг с делфи я смогу, а как получить обратно результат????? мне в процесе работы программы нужно проверять наличие определённого компа в сети
Anatoly Podgoretsky (2003-11-17 13:36:00) [7]
Тем что не рабочее, может быть блокировано, может не быть доступа до ресурсов, ну второе не важно по задаче.
pasha_golub (2003-11-17 13:33:00) [8]
Банальный ping чем Вам не угодил?
| |
