Video/Audio Informationen aus diversen Formaten

[gee21]

Hi Ralph

Also ich dachte ich habe Ihn überall geändert. Habe deshalb mal kurz Copy / Paste verwendet aus meine FORM1

Delphi-Quellcode:

 private
 { Private-Deklarationen }
appdir: String;

FMediaFrames : Integer;
 FMediaLength : Integer;
 FMediaWidth : Integer;
 FMediaHeight : Integer;
 procedure GetProperties (const Filename : string);

function RunCaptured(const _dirName, _exeName, _cmdLine: string): Boolean;

public
    { Public-Deklarationen }
procedure WMSysCommand(var Msg: TWMSysCommand) ;
message WM_SYSCOMMAND;
end;


var
Form1: TForm1;
Edit1nurpfad: string;
Edit1Filmpfad: string;

type
   TCallBack = procedure(Position, Size: Longint); { export; }

   PRGBTripleArray = ^TRGBTripleArray;
   TRGBTripleArray = array[0..32767] of TRGBTriple;
procedure FastFileCopy(const InFileName, OutFileName: string;
   CallBack: TCallBack);

implementation

uses Optionen, Unit3, Unit5, Unit6, Unit7, Unit8, uFTPServer, Unit10, Unit11,
  Unit12, Unit13, Unit14;

{$R *.dfm}




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;

Nur meldet er bei der Procedure: [DCC Fehler] Unit1.pas(344): E2037 Deklaration von 'GetProperties' unterscheidet sich von vorheriger Deklaration
procedure TForm1.GetProperties (FileName : string);