Frames pro Sekunde auslesen von DVD mit DirectShow (DSPack)

[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