Тест на корректность 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