Media Player Loop

[mace]

Guten Tag,

ich habe über die SuFu den Code Mediaplayer Loop in der Code Library gefunden und das darauf eingebaut, wie es da steht.
Seitdem stürtzt das Programm ab, nachdem der ausgewählte Sound einmal durchgelaufen ist. (es sind noch irgendwelche Störgeräusche zu hören, ich vermute mal, das er die Datei dann durchgehend versucht zu öffnen) Liegt das daran, das ich etwas falsch gemacht hab, oder funktioniert es einfach so nicht?

Wenn das fehlerhaft ist, wie es da steht, sollte man es vllt mal korrigieren :lol:
Falls nicht, wäre es nett, wenn ihr mir sagt was ich falsch mache :stupid:

Gruß
mace

/edit: jetzt hab ich doch glatt mein Code vergessen :roll:

SQL-Code:

 ...    mediaplayer1.FileName:=dialogSoundAuswahl.FileName;
             mediaplayer1.Open;
             mediaplayer1.Play;
             mediaplayer1.Notify:= True; // Haltepunkt beim bescheidenen Debugg Versuch.. (hat er aber ignoriert
            end;
end;


procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  IF MediaPlayer1.Notify = True THEN
  begin
    MediaPlayer1.Play;
  end
  ELSE
  begin
    MediaPlayer1.Stop;
  end;
end;

Wenn man das Notify noch vor das open und play des mediaplayers stellt, öffnet er den Sound garnicht und bringt gleich diese Störgeräusche.
Was mich verwirrt, ich hatte, wie angegeben, einen Haltepunkt gesetzt (ich hoffe mich erinner mich richtig) und er ist da nicht stehen geblieben, was mich die Vermutung ausschliessen lässt, das er das Notify erst nach Beendigung der Sounddatei ausführt und damit die Fehler auftreten.

Auch sehr verwirrend find ich, das bei meinen ersten Tests eine verglichen sehr kurze Sounddatei 2mal durchgelaufen ist und danach dann diese Störgeräusche verursacht hat.
Sehr strange in meinen Anfängeraugen. :shock:
Ich hoffe ihr lasst euch von dem Text nicht abschrecken und könnt mir weiterhelfen :)

[mace]

Ich muss mich da wohl etwas berichtigen.. :oops:

Ich hab aktuell nochmal einen Debug Versuch gestartet und dabei ging das Programm dann auch (komischerweise :? ) Getestet hab ich 2 komplette Durchläufe. [edit]Also der 3te ging zu starten, dann bin ich von Funktionalität ausgegangen.[/edit]
Hab das Programm so kompiliert und ohne Delphi gestartet. Nach dem 2tem Durchlauf fangen trotz allem die Störgeräusche an und das Programm kann nichtmehr angesprochen werden (ausgelastet).

Bitte um Hilfe, hab keine Ahnung woran es liegen kann :(

Ich stell das Programm dann (mind. die exe :p) auch hier rein und ihr könnt es bestaunen (oder auch nicht :o ) :-D

[konda]

Mach doch einfach so:

Delphi-Quellcode:

procedure tform1.button1click(sender as tbutton);
begin
  mediaplayer.open;
  repeat
  mediaplayer.play;
  mediaplayer.resume;
  until (ende=true);
end;

:coder2:

[ichbins]

mach es einfach so:

Delphi-Quellcode:

procedure button1click;
begin
  mediaplayer1.play;
end;
 
procedure tform1.mediaplayer1onnotify(sender:tobject);
begin
  mediaplayer1.play;
end;

bei mir geht das.

[mace]

Zitat:

Zitat von konda

Mach doch einfach so:

Delphi-Quellcode:

procedure tform1.button1click(sender as tbutton);
begin
  mediaplayer.open;
  repeat
  mediaplayer.play;
  mediaplayer.resume;
  until (ende=true);
end;

:coder2:

Das hört sich gut an, da er ja auch aufhören können soll. Ich probier das dann mal aus :D

[mace]

Danke für die Hilfe, aber beide Varianten funktionieren leider nicht.

Die Variante von Konda hat zur Folge, das er die ganze Zeit play-resume macht, also nicht erst nach Liedende, damit stürtzt das Programm dann ab. :?

Die Variante von ichbins hat den gleichen Effekt, wie die Codeanleitung, also welcbe ich am Anfang hatte. ..stürtz also beim 3ten Start der Datei (mir unerklärlicherweise) einfach ab.

Habt ihr vielleicht noch ein paar Ideen? Ich wüsst sonst nichts mehr. :(
Aber hier sind ja paar schlaue Jungs und Mädels unterwegs. :mrgreen:

[konda]

Zitat:

Zitat von mace

Die Variante von Konda hat zur Folge, das er die ganze Zeit play-resume macht, also nicht erst nach Liedende, damit stürtzt das Programm dann ab. :?

oh, das hab ich vergessen, so dürfte es gehen:

Delphi-Quellcode:

procedure tform1.button1click(sender as tbutton); 
begin 
  mediaplayer.open; 
  repeat 
  mediaplayer.play; 
  if (mediaplayer.position=mediaplayer.endpos) then mediaplayer.resume; 
  until (ende=true); 
end;