Format ermitteln und z.B. MediPlayer zum abspielen öffnen

[Nils_13]

Hi,

ich möchte das Format ermitteln (z.B. '*.mpg') und will eine Form öffnen, in der z.B. der MediaPlayer vorhanden ist und es mir abspielt. Wie mach ich das ? [nur Video Formate, alle anderen macht die bass.dll]

[dahead]

Sehr komplexes Thema...

hier könntest du fündig werden: http://www.wotsit.org/search.asp?s=music

[Die Muhkuh]

Ich glaube er meint sowas:

Delphi-Quellcode:

var
  Ext: String;
begin
  if OpenDialog1.Execute then
  begin
    Ext := ExtractFileExt(OpenDialog1.FileName);
    if Ext = '.mpg' then
    begin
      Form := TFormMitMediaPlayer.Create(Application);
      Form.LoadVideo(OpenDialog1.FileName);
    end
    else
    begin
      Form2 := TFormMitBassDll.Create(Application);
      Form2.LoadMusic(OpenDialog1.FileName);
    end;
  end;
end;

[Micha88]

Ich mache es viel einfacher:

Ich speichere den kompletten Dateipfad (lw:pfad1\video.avi) in einer Datei mit der Endung "m3u".

Diese rufe ich per ShellExecute oder CreateProcess oder wie auch immer auf, und schon öffnet sich der damit verknüpfte Player.

[DeddyH]

Ob das Thema nach 5 Jahren noch akut ist?

[mkinzler]

Sehr akut

[Gausi]

...und noch dazu ist die neue Lösung nicht besonders gut. Das geht zum Beispiel in die Hose, wenn das Playlistformat m3u mit einem reinen Audioplayer verknüpft ist. Dann doch lieber das Video direkt per Shellexecute öffnen.