[Ozerich]

Работа с Bass

Код:

var
music:Hstream;
fname:string;
Bass_init(1,44100,0,han,nil);
music:=bass_streamCreateFile(false,Pchar(fname),0,0,0);
Bass_ChannelPlay(music,true);
Bass_StreamFree(music);