🚀 go-pugleaf

Jeszcze raz podsumowanie:
Cel, który chcę osiągnąć to przeniesienie kodu z C# do Delphi.

W C# wygląda to tak, że jeżeli chciałbym sprawdzić jakiego rodzaju dane są przechowywane na karcie pamięci, to wykonuję to w następujący sposób (celowo zamieszczam tylko wybrane fragmenty kodu żeby nie komplikować problemu dodatkowo. Przyjmijmy, że mam już połączenie, widzę obraz, teraz muszę tylko z istniejącej sesji połączenia pobrać te dodatkowe informacje)
Najpierw analiza w C#:

[1]
private void StartTrackSearch(Bosch.VideoSDK.MediaDatabase.MediaDatabase mdb)
{
  if(mdb != null)
  {
    // do f_trackSearch poniższa metoda zwraca mi obiekt klasy SearchSession
    f_trackSearch = mdb.CreateSearchSession(Bosch.VideoSDK.MediaDatabase.SearchTypeEnum.steTrack);
	
    // podepnij obsluge zdarzeń TrackAvailable() i Progress()
    f_trackSearch.TrackAvailable += new Bosch.VideoSDK.GCALib._ISearchSessionEvents_TrackAvailableEventHandler(OnTrackAvailable);
    f_trackSearch.Progress += new Bosch.VideoSDK.GCALib._ISearchSessionEvents_ProgressEventHandler(OnProgress);
    
	// uruchom mechanizm poszukiwania, UWAGA: automatycznie wywoła OnTrackAvailable i OnProgress
	f_trackSearch.Start();
  }
}
	
f_trackSearch jest typu public Bosch.VideoSDK.MediaDatabase.SearchSession, a dokładnie:
public interface SearchSession : ISearchSession, _ISearchSessionEvents_Event
{
}
przy czym 
public interface ISearchSession
{
...
}
a _ISearchSessionEvents_Event zawiera te dwa potrzebne do obsługi poszukiwania zdarzenia
public interface _ISearchSessionEvents_Event
{
  ...
  event _ISearchSessionEvents_ProgressEventHandler Progress;
  event _ISearchSessionEvents_TrackAvailableEventHandler TrackAvailable;
  ...
}
ich realizacja jest następująca (fragment):
[2]
private void OnProgress(int progress, Bosch.VideoSDK.MediaDatabase.SearchSession searchSession)
{
  if (progress == 100)
  {
	// zatrzymaj proces poszukiwania nagrań
    f_trackSearch.Stop();

	// odepnij obsługę zdarzeń
    f_trackSearch.TrackAvailable -= new Bosch.VideoSDK.GCALib._ISearchSessionEvents_TrackAvailableEventHandler(OnTrackAvailable);
    f_trackSearch.Progress -= new Bosch.VideoSDK.GCALib._ISearchSessionEvents_ProgressEventHandler(OnProgress);  
    ...
  }
 }
Najważniejsze jest wywołanie OnTrackAvailable(), jeżeli w karcie pamięci znajduje się nagranie to poniżej jest ono w track i wstawiane jest do listy f_tracks
(cały kod):
[3]
private void OnTrackAvailable(Bosch.VideoSDK.MediaDatabase.SearchTypeEnum se, Bosch.VideoSDK.MediaDatabase.Track track, Bosch.VideoSDK.MediaDatabase.SearchSession searchSession)
{
  f_tracks.Add(track);
}
ta lista to:
  public System.Collections.Generic.List<Bosch.VideoSDK.MediaDatabase.Track> f_tracks = new System.Collections.Generic.List<Bosch.VideoSDK.MediaDatabase.Track>();
przyjmijmy, że to jest:
lista typu Track, gdzie klasa Track ma już wszystkie informacje o nagraniu, stąd można pobrać nazwę, id, i samo nagranie

---------------------------------------------------------------

No i teraz próba przeniesienia tego fragmentu do Delphi.
Wywołujemy StartTrackSearch()

[A]
procedure MBosch.StartTrackSearch(mdb: MediaDatabase);
begin
  f_SearchSession := mdb.CreateSearchSession(steTrack);
  f_dispinterface := _ISearchSessionEvents(f_SearchSession);

  f_SearchSession.Start(3000);
end;

Przy czym f_SearchSession: SearchSession i tutaj podobnie jak w c# SearchSession = ISearchSession
  ISearchSession = interface(IDispatch)
  	...
  end;
natomiast f_dispinterface: _ISearchSessionEvents; 
  _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;
Jak widać próba przeniesienia tego konkretnie fragmentu kodu z c# natrafia na podstawowy problem, taki, że nie możemy w łatwy sposób podpiąć obsługi zdarzeń Progress() i TrackAvailable(). Metody te (ale nie zdarzenia) implementuje dispinterfejs _ISearchSessionEvents.
Jednak kod z [A] (StartTrackSearch(mdb: MediaDatabase)) nie sprawi, że można pobrać z nich wartości.
Rzeczywiście moglibyśmy te metody wywołać ręcznie:
  // tutaj mogło by być np.
  f_dispinterface.Progress(...);
ale to nie ma sensu, ponieważ w C# poprzez podpięcie zdarzeń wystarczyło użyć
  f_trackSearch.Start();
żeby te zdarzenia uruchomiły się automatycznie. W Delphi takiej konstrukcji nie mamy do dyspozycji. Czyli potrzebny jest teraz kod który umożliwi mi odczytanie wartości już po wywołaniu Progress() i TrackAvailable()

Proszę zauważyć, że w [A], we fragmencie
  f_SearchSession := mdb.CreateSearchSession(steTrack);
my otrzymujemy już w f_SearchSession obiekt typu ISearchSession
a kod
  f_dispinterface := _ISearchSessionEvents(f_SearchSession);
"nakłada na niego" wiedzę o  Progress() i TrackAvailable()
Tylko co dalej? Co zrobić żebyśmy mogli otrzymać kod jak w C# w [2] i [3]


Pozdrawiam
MW