Avi im Panel.. Sound aber kein Video!

[Noobinator]

Hy leute heute nur mal ein kleineres Problem, oder eher ne Fehlersuche.

Ich möchte mit dem Tmediaplayer eine *.Avi datei wiedergeben, und das auf einem Panel.
Die Datei wähle ich mit einem Opendialog aus, und füge sie in einer Listbox als Wiedergabeliste zu.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, StdCtrls,shellapi, ComCtrls, Spin,MMSystem, Gauges, ExtCtrls,
  Menus;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    PopupMenu1: TPopupMenu;
    lschen1: TMenuItem;
    Label1: TLabel;
    PopupMenu2: TPopupMenu;
    Sound1: TMenuItem;
    F1: TMenuItem;
    ColorDialog1: TColorDialog;
    CheckBox2: TCheckBox;
    TrackBar1: TTrackBar;
    ProgressBar1: TProgressBar;
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure IdleHandler(Sender: TObject; var finish:boolean);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure abspielen1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure lschen1Click(Sender: TObject);
    procedure Sound1Click(Sender: TObject);
    procedure F1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  weiter:boolean = true;

implementation

uses Unit2, Unit3;


{$R *.DFM}

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
if Button=btPlay then
   With MediaPlayer1 do begin
     filename:=listbox1.items[listbox1.itemindex];
     Open;
     display:=form3.Panel1;
     Play;
     end;

if Button=btStop then
MediaPlayer1.Pause;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if OpenDialog1.Execute then
for i:=0 to OpenDialog1.Files.Count-1 do
begin
listbox1.items.add(openDialog1.Files.Strings[i]);
listBox1.ItemIndex:=listBox1.ItemIndex+1;
end;

end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
    FileName:=listbox1.Items[listbox1.ItemIndex];
    Open;
    display:=form3.Panel1;
    Play;

end;                                      
end;
......
end.

So nun geht alles, bis auf die Anzeige des videos... was fehlt?
Der Sound kommt, aber kein Video;

[Daniel G]

Ist der Codec für das Video installiert?

[CK_CK]

Hi!
Ich schätze, das hat was mit dem Codec zu tun. Welcher ist in dem Video denn verwendet?

EDIT: Upps, zu spät

[Noobinator]

hmm wie findet man raus, welchen codec man benötigt, und welcher installiert ist?
ist dies die einzige Fehlermöglichkeit?
Mein quelltext stimmt?

[igel457]

Probiere mal das setzen des Panels vor das "Open" zu machen. Ich glaube, da war irgendwas, bin mir aber nicht sicher. Einen Versuch ist es aber wert!

[Daniel G]

Zitat von Noobinator:

Mein quelltext stimmt?

Imho ja.

Lade dir mal GSpot herunter, da kannst du sehen, welchen Codec die AVI benötigt. Kann der "normale" WMP das denn abspielen?

//Edit:
@igel457: Stimmt, das könnte auch eine mögliche Fehlerquelle sein...

[Noobinator]

Zitat von igel457:

Probiere mal das setzen des Panels vor das "Open" zu machen. Ich glaube, da war irgendwas, bin mir aber nicht sicher. Einen Versuch ist es aber wert!

danke das wars...
achja und ich brauchte divx codecs
muss ich schnell installieren.

[Muddy]

Du versuchst beim MediaPlayer1.CLick die Datei wiederzugeben.

Aber erst wenn du bei der Meidaplayer-Komponente auf Play drückst, wird die Datei auf den Mediaplayer übertragen und dann abgespielt. Du musst die Datei aber bevor du auf den Playbtn drückst schon in der Filename stehen haben.

[Muddy]

Vergiss was ich geagt habe...