Video/Audio Informationen aus diversen Formaten

[gee21]

Oops hätte wohl etwas besser suchen müssen...

Habe soeben etwas bei SwissDelphiCenter gefunden.

http://www.swissdelphicenter.ch/de/showcode.php?id=1746


Was hier jetzt noch fehlt ist jedoch die Audio Informationen.
Zudem kriege ich den Code noch nicht zum laufen.

Ich versuch Ihn so aufzurufen:
memo1.Lines[0]:=GetProperties(form1.FileListBox1main.Items[0], MediaLength); Warum motzt er: "Undeklarierter Bezeichner: MediaLength"? Ich hab den ja bei private und in der Procedure drin

[Aphton]

Entweder für jedes Format nen Loader finden mit der du zumindest die gewünschten Informationen extrahieren kannst oder du ermittelst die Informationen selbst:
http://wotsit.org/
Ist ne gute Anlaufstelle um mehr über Dateiformate zu erfahren.

Den Medienplayer kannst du verwenden; das ist aber eher suboptimal.

Edit: Außerdem ist das Extrahieren von Metadaten nicht allzu schwer.

[silver-moon-2000]

Oder man nimmt ein "externes Programm", das für exakt diesen Zweck geschaffen wurde: MediaInfo
Das Teil beinhaltet auch eine DLL, die man einbinden und darüber so ziemlich alles, was an Audio / Video Formaten kreucht und fleucht, auslesen kann.

Aber das kann, wenn man wirklich "nur" ein einfaches Format auslesen will, ein wenig Overkill sein, das muss aber jeder für sich entscheiden.

[p80286]

Zitat von gee21:

Ich versuch Ihn so aufzurufen:
memo1.Lines[0]:=GetProperties(form1.FileListBox1main.Items[0], MediaLength); Warum motzt er: "Undeklarierter Bezeichner: MediaLength"? Ich hab den ja bei private und in der Procedure drin

Ein kleines bischen mehr an Sourcecode wäre jetzt hilfreich.
Compiler irren im allgemeinen seltener als Programmierer.

Gruß
K-H

[gee21]

HI all

Und danke für die Tipps.
Mal schauen ob ich das noch hinkriege ;-D

Zitat:

Ein kleines bischen mehr an Sourcecode wäre jetzt hilfreich.

Dies ist der SourceCode von SwissDelphiCenter. Ich habe Ihn so beim mir im Prog übernommen. Nur bin ich nicht fähigihn richtig aufzurufen...

Delphi-Quellcode:

unit MPlayerUnit;

interface

 uses
   Forms, Classes, Controls, MPlayer;

type
   THiddenForm = class(TForm)
     MediaPlayer: TMediaPlayer;
   public
     procedure GetProperties(FileName: string;
       var MediaFrames, MediaLength, MediaWidth, MediaHeight: Integer);
   end;

var 
   HiddenForm: THiddenForm;

implementation

{$R *.dfm}

procedure THiddenForm.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;

end.