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:

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;

Probleme mit einer Unit

Probleme mit einer Unit

Forumregeln