Ja die BASS_Init hat noch gefehlt. Jetzt spielt es.
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.Size,0);
BASS_ChannelPlay(strs,false);
rs.Free;
end;
Noch eine letzte Frage: Sieht das soweit in Ordnung aus? Programmiertechnisch betrachtet
Die Rückgabewerte brauch ich für den Fall ja eigentlich nicht wirklich oder? Wie würde das sonst eleganterweise aussehen? Und wenn ich bei ChannelPlay den zweiten Parameter Restart auf true setze, spielt es trotzdem nur einmal. Bestimmt hab ich da was übersehen?
Auf jeden Fall ein großes Danke!