Problem mit COM Event Automation - EventSinkImp

[megaplage]

Einfaches Testprogramm

Session erstellen (automatisch in Demo-Konto einloggen) :

Delphi-Quellcode:

  var session :SessionFacade;
    login   :LoginSettings;

  coinitialize(nil);
  session:=CoSessionFacade.Create;
  login:=session.GetLoginSettings(0);
  login.setLoginData('555555555','12345','');
  session.AutoLoginWithAddOnName('Test',false,login);

dann kann man alles was das session-Objekt hergibt machen ... z.B.

if session.isLoggedIn ... dann z.B. das Event für Logout-Erkennung einrichten

Delphi-Quellcode:

  var ev : SessionLogoutSubscription;

  ev:=session.GetSessionLogoutSubscription;

oder für eine Push-Quote (Wertpapierkurs/Umsatz)

Delphi-Quellcode:

var qk :quoteKey; 
    qs :quoteSubscription;

  qk:=session.CreateQuoteKey;
  qk.Set_SecurityCode('710000');
  qk.Set_StockexchangeId('ETR');
  qs:=session.GetQuoteSubscription(qk);

und diese Ereignisse dann zu empfangen ist mein Problem (ev oder qs bieten dann diese Add_OnXXX / Remove_OnXXX Methoden die wohl der Schlüssel dazu sind) ?!

Im Tray ist das API-Symbol da kann man über das Kontextmenü den Status verfolgen und z.B. sehen wie Quotenereignisse ankommen