Frames pro Sekunde auslesen von DVD mit DirectShow (DSPack)

[Paul0703]

Hallo,
vielleicht hat jemand eine Ahnung, wie man mithilfe von DirectShow und dem DSPack bei einer DVD die Frames pro Sekunde auslesen kann. Also ob es PAL oder NTSC ist.

Ich hoffe, jemand kann mir helfen!

Gruß
Paul

[Sunlight7]

Moin!

Versuchs mit dem IMediaDetector Interface, da kann man viele Informationen bekommen, aber ob das im DSPack gekapselt ist weiß ich nicht.

MfG, Sun

[Paul0703]

Danke erst mal fuer deine Antwort
Aber es kommt: Undefinierter Bezeichner: IMediaDetector.
Muss ich da noch eine Unit einbinden?

[lbccaleb]

Nee, die Interface Sektion ist nicht gekapselt im DSPack..

Aber so gehts:^^

Delphi-Quellcode:

uses
  DirectShow9;
var
  DVDInfo2: IDvdInfo2;
  TotalTime: TDVDHMSFTimeCode;
  Flags: ULONG;
  Frames: byte;


begin
  if Succeeded(QueryInterface(IDVDInfo2, DVDInfo2) then
    DVDInfo2.GetTotalTitleTime(TotalTime, Flags)) then
      Frames := TotalTime.bFrames;
end

On the fly.... Also eventuell noch bissel umbasteln..

Edit:

Nicht vergessen "QueryInterface" zu verwenden

[Paul0703]

Achso!! Einfach statt bSekundes oder bMinutes bBytes nehmen^^

Danke!!

[lbccaleb]

Zitat von Paul0703:

Achso!! Einfach statt bSekundes oder bMinutes bBytes nehmen^^

Danke!!

Vllt solltest du öfter mal nen Blick in die API werfen..

ausserdem gibts noch die MSDN: DVDInfo2

[Paul0703]

Ich hab jetzt noch nen Problem!
Und zwar hab ich jetzt die Frames wie im Beispiel von lbccaleb ermittelt und lasse sie in einem label anzeigen:

Delphi-Quellcode:

If Succeeded(FilterGraph1.QueryInterface(IID_IDVDInfo2, DVDInfo2)) then
  If Succeeded(DVDInfo2.GetTotalTitleTime(TitleTime, TimeCodeFlags)) then
  begin
    Label2.Caption := Format('%.6d', [TitleTime.bFrames]);
  end;

Aber da steht dann 10 oder auch 16 und solche Zahlen, das kann ja aber nicht sein.
Was habe ich denn im obigen Code falsch gemacht??