DVD Kapitel und Menu einlesen

[Cylence]

Hi, ich hab das auch mal ausprobiert, aber bei mir kommt nur eine Zugriffsverletzung und mehr tut sich nicht, was mach ich falsch??? Wann genau der Fehler kommt kann ich nich sagen, da in delphi mit debugger kein MPEG 2 abspielen möglich ist...kommt immer debugger detected und sense....

If succeeded(FilterGraph.QueryInterface(IDVDControl2, DVDControl)) then
begin
DVDControl.SetOption(DVD_NotifyParentalLevelChange ,false);
DVDControl.SetOption(DVD_HMSF_TimeCodeEvents,true) ;
DVDControl.QueryInterface(IDVDInfo2,DVDInfo2);
DVDInfo2.GetDVDTextNumberOfLanguages(AudioNrs); //Anzahl der AudioSprachen ermitteln
DVDInfo2.GetDVDVolumeInfo(VolNum, Volume, DiscSide, TitleNum); //Infos zur DVD...Volumes, Titles, DiscSeite....
DVDInfo2.GetCurrentAngle(AnglesAv, SelAngle); //aktuellen Sichtwinkel und verfügbare Sichtwinkel auslesen
DVDInfo2.GetCurrentAudio(AudioNrs, SelAudio); //aktuelle Sprache und verfügbare Sprachen einlesen
DVDInfo2.GetAudioLanguage(1, SelLanguage); //aktuell gewählte Sprache
DVDInfo2.GetSubpictureLanguage(1, SelLanguage); //aktuell gewählter Untertitel
DVDInfo2.GetMenuLanguages(Langu, MaxLangu, SelLangu); //Menüsprachen verfügbar, maximal, ausgewählt
DVDInfo2.GetDefaultMenuLanguage(SelLangu); //Default Menüsprache
DVDInfoform.Memo.Clear;
DVDInfoform.Memo.Lines.Add('AudioSpuren : '+PChar(AudioNrs));
DVDInfoform.Memo.Lines.Add('Volume Nr. : '+PChar(VolNum));
DVDInfoform.Memo.Lines.Add('Volume : '+PChar(Volume));
DVDInfoform.Memo.Lines.Add('DiscSide : '+PChar(DiscSide));
DVDInfoform.Memo.Lines.Add('TitleNr : '+PChar(TitleNum));
DVDInfoform.Memo.Lines.Add('AnglesAv : '+PChar(AnglesAv));
DVDInfoform.Memo.Lines.Add('SelAngle : '+PChar(SelAngle));
DVDInfoform.Memo.Lines.Add('SelLanguage : '+PChar(SelLanguage));
DVDInfoform.Memo.Lines.Add('SelMenuLang : '+PChar(SelLangu));
DVDInfoform.Memo.Lines.Add('DefMenuLang : '+PChar(SelLangu));
end;