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

Как осуществить минимальный тест на корректность глобального идентификатора (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;

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

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru