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

DCOMconnection   Найти похожие ветки 

← →
Alex_x ©   (2003-10-14 18:04) [0]

Как в DCOMconnection проверить доступен сервер в сети к которому он подключается или нет???

---

← →
me   (2003-10-14 21:28) [1]

В 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]));
...

---

← →
Alex_x ©   (2003-10-15 09:44) [2]

Такой вариант работает, но если сервер недоступен то я хочу работать в автономном режиме, но во время создания формы или инициализации компонента DCOMconnection если нет конекта з сервером начинают вискакивать ошибки, даже если DCOMconnection conected=false;

---

← →
me   (2003-10-15 16:42) [3]

Проверь, не установлено ли DCOMconnection conected=true в Инспекторе объектов. По другому все должно работать правильно

---

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

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



Память: 0.45 MB
Время: 0.027 c