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

[Chris92 .A]

Also ich schreib dir mal wie ich es gemacht habe :

Install Component --> Into new package --> in die Unit File die 4 Dateien ausgewählt(FileUtils,MemUtils,Monitor und MPEG2Lib) --> Package File name: C:\Program Files\Borland\Delphi5\Lib\mpeg.dpk --> OK klicken

Dann kommt eine Fehlermeldung wenn ich versuche die 4 Dateien zu kompilieren :[Hint] Package 'mpeg' does not use or export 'MemUtils.FastFillChar'

Und ich weis nicht ob ich irgendwas falsch gemacht habe, denn es ist das erstemal wo ich sowas mache sry wenn ich mich blöd anstelle.

MFG Chris92 .A

[Satty67]

[Hint]= Hinweis scheint mir keine Fehlermeldung zu sein, sondern nur ein gut gemeinter Hinweis.

Ignorieren und mit Installieren weitermachen versucht?

[Chris92 .A]

ok und was soll ich jetzt genau da machen?

[Satty67]

Nichts weiter, es sollte installiert sein trotz des Hinweises (Kontrolle unter Projekt -> Optionen -> Packages, dort müsste in der Liste dein mpeg.bpl aufgeführt sein).

Wie Du es jetzt verwendest? Im ausgepackten Archiv von MPEG2Lib ist eine Demo.