Mpg abspielen

[citybreaker]

Hallo,

ich spiele folgendermaßen eine Mpg Datei ab.

Delphi-Quellcode:

  If Mediaplayer.Mode = mpOpen then Mediaplayer.close;
  Mediaplayer.FileName := 'datei.mpeg';
  Mediaplayer.Open;
  MediaPlayer.Display := Main.Panel1;
  MediaPlayer.DisplayRect := Main.Panel1.ClientRect;
  Mediaplayer.Play;

Alerdings soll das Viedo nicht mehr angezeit werden wenn
es zu Ende ist. Zur Zeit wird noch immer der letzte Frame
angezeigt. Mit Panel1.Visible := false; geht es leider nicht.

[Basic-Master]

versuch mal

Delphi-Quellcode:

var eDC:HDC;
    eCanvas:TCanvas;
begin
eDC := GetDC(Panel1.Handle);
eCanvas := TCanvas.Create;
eCanvas.Handle := eDC;
eCanvas.Brush.Color := clblack;
eCanvas.Pen.Color := clblack;
eCanvas.FillRect(Rect(0,0, panel1.Width, panel1.Height));

[citybreaker]

Hab inzwischen ne andere Lösung gefunden.
Trortzdem danke. Werde deine Idee trotzdem mal
ausprobieren.

[shareholder]

kannst du uns deine 'andere' lösung bitte mitteilen ?