Mehrere WAV aus Resource gleichzeitig abspielen

[Aviator]

Rückgabewerte von Funktionen die einem einen Fehlercode liefern sollte man immer auswerten um im Programmablauf entsprechend darauf reagieren zu können.

Irgendwann versucht du bspw. mal eine Datei abzuspielen die defekt ist. Wenn du die Rückgabewerte jetzt nicht auswertest und entsprechende Fehlermeldungen anzeigst/protokollierst, dann wunderst du dich warum kein Sound kommt. Wenn du dann irgendwann darauf kommst das die Datei defekt ist, dann sagst du dir: "Wieso habe ich damals in mein Programm keine Fehlerbehandlung eingebaut?! Dann wäre mir die halbe Stunde Suche erspart geblieben!"


Und ein Hinweis: Fasse SourceCode doch bitte in Delphi-Tags ein (das Delphi Helm Symbol über dem Editor). Dein SourceCode sieht dann gleich viel besser aus und lässt sich auch viel leichter lesen.

Code:

[DELPHI]
  SourceCode hier
[/DELPHI]

Beispiel wie dein SourceCode dann aussehen würde:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  rs: TResourceStream;
begin
  rs:=TResourceStream.Create(hInstance,'intro','WAV' );
  Bass_Init(-1,44100,0,Application.Handle,nil);
  rs.Position:=0;
  strs:=BASS_StreamCreateFile(true,rs.Memory,0,rs.Si ze,0);
  BASS_ChannelPlay(strs,false);
  rs.Free;
end;