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 в Инспекторе объектов. По другому все должно работать правильно

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