DVD Kapitel und Menu einlesen

[Gerhard]

Hi Delphi

Habe das Orakel befragt und nach längerem Suchen etwas gefunden das auch funktioniert. Anbei habe den von mir verwendeten Teil eingefügt. Wenn es jemand braucht...

Delphi-Quellcode:

If succeeded(FilterGraph.QueryInterface(IDVDControl2,DVDControl)) then
begin
  DVDControl.SetOption(DVD_NotifyParentalLevelChange,false);
  DVDControl.SetOption(DVD_HMSF_TimeCodeEvents,true);
  DVDControl.QueryInterface(IDVD_Info2,DVDInfo);
  DVDInfo.GetDVDVolumeInfo(numvolumes,pulvolume,DiskSide,Titlecount)

  for i:=1 to Titlecount do begin
    node:=treeView1.items.add(nil,'Titel '+inttostr(i));
    DVDInfo.GetNumberOfChapters(i,ChapterPerTitle);
    forj:=1 to ChapterPerTitle do begin
      with treeview1.items.AddChild(node,'Chapter '+inttostr(j)) do begin
        data:=pointer(j);
      end;
    end;
  end
end;

Gruß Gerhard

[edit=r_kerber]Delphi-Tags eingefügt. Beim nächsten bitte selbst machen! Mfg, r_kerber[/edit]