🚀 go-pugleaf

Może rzeczywiście zbyt mało opisałem, przepraszam. Już to naprawiam.

Mam API, dzięki któremu łączę się kamerą i otrzymuję z niej obraz. SDK to zestaw plików DLL oraz API oparte na klasach i interfejsach. Obraz jest 
prezentowany w kontrolce ActiveX (i to jest mój OLE server).
Wczytuje się pliki *.TLB i powstaje całe API. Dysponuję działającymi przykładami w C#, które należy przenieść do Delphi (D2007). Oczywiście nieco inne API powstaje w C#, a nieco inne w Delphi.

Interesuje mnie fragment, za pomocą którego przeprowadza się wyszukiwanie historycznych nagrań (kamera ma swoja pamięć). W C# jest to zrealizowane następująco:
Jest obiekt za pomocą którego wykonuje się poszukiwanie:
  SearchSession f_trackSearch;
przy czym typ SearchSession to typ dzieddziczący po 2 interfejsach:
  public interface SearchSession : ISearchSession, 
                                   _ISearchSessionEvents_Event
drugi z nich ma metody istotne dla procesu poszukiwania:
  public interface _ISearchSessionEvents_Event
  {
  ...
  // czy już wszystko znalazl, wtedy Progress = 100
  event _ISearchSessionEvents_ProgressEventHandler Progress; 
  // jeśli są dostępne nagrania to program tu wchodzi, można je pobrać
  event _ISearchSessionEvents_TrackAvailableEventHandler TrackAvailable; 
  ..
  }

W C# akcja jest prosta:
tworzony jest obiekt do poszukiwania:
  f_trackSearch = mdb.CreateSearchSession(steTrack);
a metody z interfejsu _ISearchSessionEvents_Event są podpięte jako zdarzenia:
  f_trackSearch.TrackAvailable += new Bosch.VideoSDK.GCALib._ISearchSessionEvents_TrackAvailableEventHandler(OnTrackAvailable);
  f_trackSearch.Progress += new Bosch.VideoSDK.GCALib._ISearchSessionEvents_ProgressEventHandler(OnProgress);
uruchom poszukiwanie:
  f_trackSearch.Start();
	

Teraz przenoszę ww. kod do Delphi.
Mam obiekt za pomocą ktorego wykonuje się poszukiwanie:
  f_trackSearch: SearchSession;
przy czym SearchSession to interfejs:
  ISearchSession = interface(IDispatch)
    ['{7EA4139D-5EFE-4BD2-9EF7-211F199DA18C}']
    ...
  end;
W C# mieliśmy:
public interface SearchSession : ISearchSession, _ISearchSessionEvents_Event
a więc brakuje nam podpięcia _ISearchSessionEvents_Event, który zawiera istotne metody Progress() i TrackAvailable()
w powstałym w Delphi po wczytaniu plików *.TLB API jest odpowiadający mu interfejs (istotny fragment):
  _ISearchSessionEvents = dispinterface
    ['{E421B6DF-86ED-47ED-8EFE-54D69BFA4D7D}']
    procedure Progress(Progress: Integer; const pSearchSession: 
    ISearchSession); dispid 1;
    procedure TrackAvailable(Type_: SearchTypeEnum; const pResult: ITrack; 
    const pSearchSession: ISearchSession); dispid 4;
    ...
  end;

Proszę zauważyć, że jest to nie jest interface tylko dispintertface.

Teraz analogiczny kod jak w c#.
Tworzymy obiekt poszukiwania:
  f_trackSearch := mdb.CreateSearchSession(steTrack);
dla 
  var
    f_dispinterface: _ISearchSessionEvents; 
    // interfejs z naszymi brakującymi metodami Progress i TrackAvailable
    // wykonujemy sprzężenie IDispatch z dispinterface wykonując:		
    f_dispinterface := _ISearchSessionEvents(f_trackSearch);
	
I w tym miejscy jest pytanie. Co zrobić, aby wykonały się metody z interfejsu _ISearchSessionEvents: Progress() i TrackAvailable()?
W jaki sposób podpiać je do moich obiektów? Jak z nich skorzytać?