Programm hängt sich auf

[Natcree]

in diesem Prog. wird ein Video mit einer endlosschleife abgespielt. nach 5 bis 10 minuten haengt es sich auf. Muss ich da irgendwas beachten " muss ich dem programm mehr speicher zuweisen??

kann mir bitte jemand weiterhelfen?

[Aphton]

Genau in dieser Zeile ist auch der Fehler, ändere die ständige Bufferallozierung und teste nochmal!

[Natcree]

wie mache ich das mit bufferallozierung???

[Aphton]

Du hast die Ironie in meiner Nachricht nicht verstanden..

Edit: Du sprichst von "diesem" Programm.. ich spreche von "dieser" Zeile..
Hast du dich je gefragt, von welcher Zeile? Ich nämlich schon - welches Programm?

[Natcree]

ja okay habe einfach ne tmediaplayercompo auf vorm gesetzt und autorewind auf true gemacht damit das video immer weiterläuft. nun irgendwann bleibt die exe hängen.

hier mal ein codesnipsel

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
mediaplayer1.Play;
panel1.Align:=alclient;
borderstyle:=bsnone;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if mediaplayer1.AutoRewind then mediaplayer1.Position:=0;
mediaplayer1.Play;
end;

[Uwe Raabe]

Versuchs mal damit:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if mediaplayer1.NotifyValue = nvSuccessful then begin
    mediaplayer1.Play;
  end;
end;

[Natcree]

Danke scheint jetzt stabil zu laufen ich werde es mal beobachten.