Код

function TAddInObject.CallEventProcedure(ProcedureName: string): Integer;
var MethodID: Integer;
    DispParams: TDispParams;
    ExcepInfo: TExcepInfo;
    Status: HResult;
    VarResult, obj, t: Variant;
begin
   CallEventProcedure := 1;

   obj := OleVariant(pCurrentConnection).AppDispatch;
   IDispatch(obj)._AddRef;
   //t := obj.OnTimer;
   MethodID := 0;
   if IDispatch(obj).GetIDsOfNames(GUID_NULL, @ProcedureName, 1, LOCALE_USER_DEFAULT, @MethodID) = S_OK then
	begin

	   DispParams.rgvarg:= nil;
	   DispParams.rgdispidNamedArgs := nil;
	   DispParams.cArgs := 0;
	   DispParams.cNamedArgs := 0;

	   t := obj.MethodFounded;
	   Status := IDispatch(obj).Invoke(MethodID, GUID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, DispParams, @VarResult, @ExcepInfo, nil);
	   if Status <> S_OK then
	   begin
		DispatchInvokeError(Status, ExcepInfo);
	   end;
	end
   else
	begin
	   t := obj.MethodNotFounded(OleVariant(ProcedureName), OLEVariant(MethodID));
	end;

   obj := Unassigned;
end;
 

Код

function TAddInObject.Init(pConnection: IDispatch): HResult; stdcall;
var iRes : Integer;
begin
     ...
     pCurrentConnection := pConnection;

     Init := S_OK;
end;