Einzelnen Beitrag anzeigen

Benutzerbild von Cylence
Cylence

Registriert seit: 2. Sep 2004
Ort: Allgäu
246 Beiträge
 
Delphi 7 Enterprise
 
#7

AW: Ein paar fragen zu DSPack

  Alt 16. Feb 2011, 13:16
Hi,

beim DSPack Filtergraph gibt es die Events onGraphDVDChapterStart und onGraphDVDTitleChange
dort kann man das aktuelle Chapter usw rausfinden

Delphi-Quellcode:
procedure TMRDVD.DVDFilterGraphDVDTitleChange(sender: TObject;
  title: Integer);
begin
 try
  Label4.Caption := inttostr(title);
 except

 end;
end;


procedure TMRDVD.DVDFilterGraphDVDChapterStart(sender: TObject;
  chapter: Integer);
var
  DVDDuration: DVD_HMSF_TIMECODE;
  FrameRateFlag: ULONG;
begin
 try
   Label7.Caption := inttostr(chapter);
   if Succeeded (DVDFilterGraph.QueryInterFace (IDVDInfo2, DVDInfo2)) then begin
      DVDInfo2.GetTotalTitleTime (DVDDuration, FrameRateFlag);
      with DVDDuration do begin
           Label8.Caption := format('%2.2d:%2.2d:%2.2d',[bHours, bMinutes ,bSeconds]);
      end;
   end;
  except

  end;
end;
Tom
Just DO it

Geändert von Cylence (16. Feb 2011 um 13:42 Uhr)
  Mit Zitat antworten Zitat