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:

zusammenfalten · markieren

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;

Verräts du uns auch den Fehler, der da, deiner Meinung nach, noch drin ist?

Danke! Mann. Ich hab nochmal mit meinem Freund gesprochen. Es liegt an was anderem.

Dir ist doch hoffentlich auch aufgefallen, das vi := getVideoInfo(OpenD2V.filename); doppelt drin ist...