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