| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DCOMconnection
Alex_x © (2003-10-14 18:04:00)
Как в DCOMconnection проверить доступен сервер в сети к которому он подключается или нет???
me (2003-10-15 16:42:00) [1]
Проверь, не установлено ли DCOMconnection conected=true в Инспекторе объектов. По другому все должно работать правильно
Alex_x (2003-10-15 09:44:00) [2]
Такой вариант работает, но если сервер недоступен то я хочу работать в автономном режиме, но во время создания формы или инициализации компонента DCOMconnection если нет конекта з сервером начинают вискакивать ошибки, даже если DCOMconnection conected=false;
me (2003-10-14 21:28:00) [3]
В DCOMconnection никак, сначала нужно подключиться. Но можно просто проверить наличие и доступность сервера в локальной сети - примерно так:
var
FServerName : string;
ntr : NETRESOURCE;
code : DWORD;
buf : array[0..99] of char;
...
FServerName := "my_server_name";
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
raise Exception.Create(Format("Cannot find server "%s".", [FServerName]));
...
| |
