|
Как осуществить минимальный тест на корректность глобального идентификатора
(GUID), и интерфейсов, унаследованных от IDispatch (и, следовательно,
поддерживающих методы автоматизации)?
Вызовите CreateRemoteComObject, передав GUID интерфейса и имя компьютера, к
которому Вы пытаетесь подключиться. Если функция вернет ошибку, то наличествует
проблема сервера, иначе возможная проблема относится к клиенту.
const
MyGUID = '{444...111}'; //Whatever the guid is...
var
Unk: IUnknown;
Disp: IDispatch;
begin
{ Make sure this line works correctly }
Unk := CreateRemoteComObject('server1',
StringToGUID(MyGUID));
{ If it does, then cast it to a IDispatch }
Disp := Unk as IDispatch;
end;
Если этот кусок кода работает, а проблема остается, то Вам требуется шаг за
шагом пройти через код клиента и найти, где он дает трещину. Если не сможете
этого обнаружить, Вам придется запустить сервер под отладчиком и установить
связь с клиентом, чтобы Вы могли произвести отладку рядом со местом, дающем
слабину.
Автор: Nomadic
| 
