Video/Audio Informationen aus diversen Formaten

[gee21]

HI Volker

Hui, schon schwer deine Nachricht richtig zu lesen und jetzt noch zu beantworten

Also vielleicht habe ich vorhin etwas falsch geschrieben. Ich habe den Code auf meiner Form1 eingefügt. Auf der wollte ich Ihn auch aufrufen.

also habe ich einfach ein Teil abgeändert auf: Tform1

Delphi-Quellcode:

 procedure [COLOR="Red"]Tform1[/COLOR].GetProperties(FileName: string;
   var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer);
begin
   MediaPlayer.FileName := FileName;
   MediaPlayer.Wait     := False;
   MediaPlayer.Open;
   MediaPlayer.TimeFormat := tfFrames;
   MediaFrames := MediaPlayer.Length;
   MediaPlayer.TimeFormat := tfMilliseconds;
   MediaLength := MediaPlayer.Length;
   MediaPlayer.DisplayRect := Rect(1, 1, 0, 0); {"0, 0" forces resolution autodetect}
   MediaWidth  := MediaPlayer.DisplayRect.Right;
   MediaHeight := MediaPlayer.DisplayRect.Bottom;
   if (MediaWidth <= 0) or (MediaHeight <= 0) then
   begin {invalid values mean not video}
     MediaWidth  := 0;
     MediaHeight := 0;
   end;
   MediaPlayer.Close;
end;

Dies habe ich nun auf Form1 bei Private drinn:

Delphi-Quellcode:

 private
 { Private-Deklarationen }
appdir: String;
function RunCaptured(const _dirName, _exeName, _cmdLine: string): Boolean;
procedure GetProperties(FileName: string; var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer);

public
    { Public-Deklarationen }

Wie / wo pflanze ich den das Memo nun ein?