procedure TForm1.FormCreate(Sender: TObject);
var
rs: TResourceStream;
code: bool;
begin
rs:=TResourceStream.Create(hInstance,'intro','WAV' );
rs.Position:=0;
strs:=BASS_StreamCreateFile(true,rs.Memory,0,rs.Si ze,0);
//BASS_ErrorGetCode;
code:=BASS_ChannelPlay(strs,false);
showmessage(inttostr(integer(code)));
rs.Free;
end;
Also würde das in etwa so aussehen? Wenn ich die Rückmeldung ausgebe, kommt 0 zurück. Scheint also alles in Ordnung zu sein? Höre aber trotzdem nichts...ich seh's nicht.
Na ja, wenn du die Meldung ausgibst und da 0 zurückkommt, dann bedeutet das, dass BASS_ChannelPlay False zurückgegeben hat, und das würde ich so interpretieren dass da etwas NICHT in Ordnung ist.
Ich weiß aber nicht, was das falsch ist.