COM-Object mit Events

[shmia]

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...