mpg in Delphi abspielen

[Chris92 .A]

Hallo ich bins mal wieder,

und zwar versuche ich dieses mal ein Video in einem Panel abzuspielen. Doch wenn ich versuche das Video abzuspielen stürtzt das Programm ab.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, ExtCtrls,mmsystem, StdCtrls;

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.FileName:='BKDMDL.mpg';
  MediaPlayer1.open;
  MediaPlayer1.Display:=panel1;
  MediaPlayer1.DisplayRect:=Panel1.ClientRect;
  MediaPlayer1.Play;
end;

Leider finde ich nicht heraus woran es liegen könnte

MFG Chris92 .A

[mkinzler]

Mach mal die Panelzuweisung vor dem Öffnen

[Chris92 .A]

Ändert nichts, hier is mal ein screenshot von der Fehlermeldung.

[hansklok]

Hallo,

schaue dir das mal an: http://www.logicnet.dk/lib/. Da gibts die MPEG2Lib, die genau für solche Dinge gedacht ist.

Gruß hansklok

[Chris92 .A]

Danke aber leider weis ich nicht wie ich die lib unter delphi installiere

[hansklok]

...das sollte eigentlich kein Problem sein. Lege einfach ein neues Package an und füge die vier Dateien, die sich im Ordner "DelphiSource" befinden hinzu. Kompilieren und anschließend Installieren klicken!

Gruß
hansklok