cp.Advice ruft jetzt in diese Methode hinein:
Delphi-Quellcode:
function TTafmoEventSink.QueryInterface(const IID: TGUID;
out Obj): HResult;
var
s : string;
begin
s := GuidToString(IID);
if GetInterFace(IID,Obj) then
Result:=S_OK
else if isEqualIID(IID,ISimpleEventServerEvents) then
Result:=QueryInterface(IDispatch,Obj)
else
Result:=E_NOINTERFACE;
if result <> S_OK then
OutputDebugString(s); // zu debugzwecken hinzu - hier unbedingt Breakpoint setzen
end;
Irgendwas ist da faul. Eigentlich dürfte ja nur das IDispatch Interface vom Server abgerufen werden.
Vielleicht will er ja ein weiteres/anderes Interface abrufen wie z.B. ISupportsErrorInfo...