Существует метод на сервере TAAA, который должен возвращать интерфейс на TAutoIntfObject который поддерживает интерфейс IConnectInfo;
IConnectInfo = interface(IDispatch)
{########-############-###########-#}
function GetParams(const AName: WideString): OleVariant; safecall;
end;
function TAAA.GetConnection(Index: Integer): IDispatch;
begin
//FConnectInfo — интерфейс на необходимый объект
Result := FConnectInfo as IDispatch;
end;
На клиенте:
Var
AI : IDispatch;
V : OleVariant;
begin
AI := SockectConnection.AppServer.GetConnection(#####);
V := AI;
V.GetParams('AAA'); <--- вот тут происходит ошибка
Method "GetParams" not supported by automation object
end;
Подскажите пожалуйста — чего я неправильно делаю.
А если точно не знаете, то может мысли какие-нить есть по этому поводу.