Tmediaplayer xe 2

[bernhard_LA]

ich möchte div. AVI#s mit verschiedner Codierung, fps und Auflösung hintereinander mit einem Tmediaplayer abspielen. ( Habe leider kein Programm gefunden was hier aus den Mini AVIs ein gesamtes AVI erstellen kann)

Wenn ich die Dateien einzeln lade klappt die Wiedergabe, wenn ich die Files in einer Schleife durchlaufen lasse kommt die AV : "there is no driver in your system" ...., muss ich TMediaPlayer vorm laden des nächsten *.avi aufräumen ?

[Luckie]

Zitat:

Zitat von bernhard_LA (Beitrag 1165066)

muss ich TMediaPlayer vorm laden des nächsten *.avi aufräumen ?

Warum fragst du das? Probiere es doch einfach aus. Und es wäre auch hilfreich, wenn du uns deinen Code zeigen würdest.

[bernhard_LA]

anbei der code .... ein File OK, dass ganze in einer Schleife -> ACCESS VIOLATION

Delphi-Quellcode:

unit SimpleMovieplayer;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.MPlayer,
  Vcl.StdCtrls, Vcl.Buttons;

type
  TMediaPlayerForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    MediaPLayerStatusBar: TStatusBar;
    MediaPlayer1: TMediaPlayer;
    BitBtn1: TBitBtn;
    PlayBitBtn: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure PlayBitBtnClick(Sender: TObject);
  private
    procedure PlayFile(s: string);
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    playList: TStringList;

  end;

var
  MediaPlayerForm: TMediaPlayerForm;

implementation

{$R *.dfm}

uses UnitSelectAVIFiles;

procedure TMediaPlayerForm.BitBtn1Click(Sender: TObject);
begin
  SelectMediaFilesForm.playList := playList;
  SelectMediaFilesForm.Showmodal;
  if SelectMediaFilesForm.ModalResult = mrOK then
  begin
    playList := SelectMediaFilesForm.playList;
  end;

end;

procedure TMediaPlayerForm.PlayBitBtnClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to playList.Count - 1 do
  begin
    MediaPLayerStatusBar.SimpleText := IntToStr(i) + ' now playing mediafile ->'
      + playList[i];
    PlayFile(playList[i]);
  end;
end;

procedure TMediaPlayerForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  playList.Free;
end;

procedure TMediaPlayerForm.FormCreate(Sender: TObject);
begin
  playList := TStringList.Create;

end;

procedure TMediaPlayerForm.PlayFile(s: string);
begin
  if (FileExists(s)) then
  begin
    MediaPlayer1.Display := Panel1;
    MediaPlayer1.FileName := s;
    MediaPlayer1.Wait := true;
    MediaPlayer1.Open;
    MediaPlayer1.play;
  end;
end;

end.

[Luckie]

Suche hilft: delphi tmediaplayer playlist

[bernhard_LA]

ich kann alle Videos mit IRVANVIEW anschauen, alle Videos liegen im *.avi Format vor. (Die Bildgröße und Codierung sind jedoch nicht immer gleich) TMediaPlayer kann einige Dateien nicht öffnen AV " THERE IS NO DRIVER INSTALLED ON YOUR SYSTEM". Ich hättet erwartet von der MediaPlayer von IRVANVIEW mein Files abspielen kann, dann sollte dies doch auch der TMediaplayer von DELPHI heraus schaffen? Wenn IRVANVIEW einen DRIVER findet sollte TMEDIAPLAYER in auch finden könenn :evil:

[Klaus01]

Hallo,

der TMediaplayer kapselt den mplayer von Windows.
Kann dieser die Dateien nicht abspielen - kann das TMediaplayer auch nicht.

Grüße
Klaus

[bernhard_LA]

verstanden, Datei RECHTSKLICK und PLAY und dann die *.avi datei im Mediaplayer ansehen geht aber

[Klaus01]

zur Beachtung:

mplayer != Windows Media Player

Grüße
Klaus

[jaenicke]

Es gibt aber auch die Möglichkeit einfach das Windows Media Player Control in Delphi einzubinden. (Komponente --> Komponente importieren...)

Zudem gibt es auch Komponenten zur Videowiedergabe zum Download.

[lbccaleb]

http://www.delphipraxis.net/140677-d...iedergabe.html