Probleme mit einer Unit

[DRPEnc]

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;

[Luckie]

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

[DRPEnc]

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

[himitsu]

Dir ist doch hoffentlich auch aufgefallen, das

Delphi-Quellcode:

vi := getVideoInfo(OpenD2V.filename);

doppelt drin ist...