Тест на корректность GUID и интерфейсов

Previous  Top  Next

    
 

 

 

Автор: Nomadic

 

Как осуществить минимальный тест на корректность глобального идентификатора (GUID), и интерфейсов, унаследованных от IDispatch (и, следовательно, поддерживающих методы автоматизации)?

 

Вызовите CreateRemoteComObject, передав GUID интерфейса и имя компьютера, к которому Вы пытаетесь подключиться. Если функция вернет ошибку, то наличествует проблема сервера, иначе возможная проблема относится к клиенту.

 

Code:

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;

 

 

 

 

 

 

Если этот кусок кода работает, а проблема остается, то Вам требуется шаг за шагом пройти через код клиента и найти, где он дает трещину. Если не сможете этого обнаружить, Вам придется запустить сервер под отладчиком и установить связь с клиентом, чтобы Вы могли произвести отладку рядом со местом, дающем слабину.

 

©Drkb::04340

       

Взято с http://delphiworld.narod.ru