Ein Freund hat mir eine Source zukommen lassen. Ist aber irgendwie noch ein Fehler drin.
Vielleicht kommt einer von Euch drauf, was falsch ist:
VidInfo.pas downloaden
Wie man sie benutzt:
Einfach uses VidInfo.pas; zum Project hinzufügen und folgendes an einen button verknüpfen:
Delphi-Quellcode:
procedure TMainForm.Button3Click(Sender: TObject);
var Pfad : string;
vi: TVideoInfo;
begin
if not OpenD2V.execute then Exit;
vi := getVideoInfo(OpenD2V.filename);
vi := getVideoInfo(OpenD2V.filename);
Groupbox4.Caption := 'F: ' + FloatToStrF(vi.FPS,ffFixed,6,3)
+ ' - M.' + IntToStr(vi.MPEGversion)
+ ' - R: ' + IntToStr(vi.Width) + '*' + IntToStr(vi.Height)
+ ' - AR: ' + IntToStr(vi.AspectRatio)
+ ' - F: ' + IntToStr(vi.Frames)
+ ' - PD: ' + FloatToStrF(vi.PiDAR,ffFixed,6,5)
+ ' - S: ' + IntToStr(vi.Streams);
end;