Video/Audio Informationen aus diversen Formaten

[Volker Z.]

Hallo Robert,

also die GetProperties ist ja nun einen Methode Deiner TForm1. Wenn Du das Memo auf Dein TForm1 "pflanzt", in Deiner private Deklaration noch folgendes einfügst / änderst:

Delphi-Quellcode:

  TForm1 = class (TForm)
  private
    FMediaFrames : Integer;
    FMediaLength : Integer;
    FMediaWidth  : Integer;
    FMediaHeight : Integer;
    procedure GetProperties (const Filename : string);
  end;

und dann die Parameter der Methode noch anpasst

Delphi-Quellcode:

procedure TForm1.GetProperties (FileName : string);
begin
   MediaPlayer.FileName := FileName;
   MediaPlayer.Wait := False;
   MediaPlayer.Open;
   MediaPlayer.TimeFormat := tfFrames;

   FMediaFrames := MediaPlayer.Length;

   MediaPlayer.TimeFormat := tfMilliseconds;

   FMediaLength := MediaPlayer.Length;

   MediaPlayer.DisplayRect := Rect(1, 1, 0, 0); {"0, 0" forces resolution autodetect}

   FMediaWidth := MediaPlayer.DisplayRect.Right;
   FMediaHeight := MediaPlayer.DisplayRect.Bottom;

   if (FMediaWidth <= 0) or (FMediaHeight <= 0) then
   begin {invalid values mean not video}
     FMediaWidth := 0;
     FMediaHeight := 0;
   end;
   MediaPlayer.Close;
end;

kannst Du mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetProperties (Form1.FileListBox1main.Items[0]);
  Memo1.Text := Format ('Frames %d Länge %d Breite %d Höhe %d', [FMediaFrames, FMediaLength, FMediaWidth, FMediaHeight])
end;

ins Memo schreiben.

Ich hoffe es hilft.

Gruß, und sorry, dass meine Antwort schwer verdaulich war