Wave wiedergeben

[cchris]

Ich wollte ein rogramm schreiben, mit dem man verschiedene
Soundfiles ( *.wav ) auf Buttonklick wiedergeben kann, die man
vorher ausgewählt hat. Dazu verwendete ich folgenden code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then try
                      DXwavelist1.Items[1].Wave.LoadFromFile(opendialog1.filename);
                      edit1.text:=opendialog1.FileName;
                      except
                      showmessage('Ungültiges Dateiformat!');
                      end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DXWaveList1.Items[1].play(false);
end;

Der Soundtrack den ich zur Entwurfszeit ausgewählt habe, wird ohne Probleme wiedergegeben. ( Auch meherere verschiedene übernander, da ich das ganze insgesamt 10 Mal vereinbart habe. ) Wenn ich jetzt eine Datei zur Laufzeit laden will ( Button1 ) wird zwar der Dateiname im editfeld angezeigt, d.h. für mich es trat beim loadfromfile kein Fehler auf, aber wenn ich den sound mit button2 wiedergeben will, wird immernoch der alte, zur Entwicklungszeit eingestellte Soundtrack wiedergegeben. Eine Methode Refresh oder Updat gibt es in der Hilfe zu DelphiX bei diesem Typ nicht. Ich verwende die TDXWaveList. Wenn irgendjemand eine andere Lösung dafür oder den Grund für das Problem kennt, wäre es nett wenn er mir antworten würde. Wichtig ist aber, das die Sounds übereinander wiedergegeben werden können, und auch wiedergegeben werden, wenn die Anwendung den Focus verliert. Die Sounds sollten wenigstens jeweils ein Minute lang sein können.

cu Chris