bass真是太好用了!

可以随意播放你自己的文件;

下面是delphi7中我用bass.dll播放文件的实例.

(和分类标题一样,写的很菜的,请多多包含指点啊)

说明:

要播放文件名为wdf的某段数据;

偏移offset处开始,读取size大小的内容到memoryStream中,

然后调用bass播放;

(这是目前bass的版本,老版本没试过,呵呵)

function bassMp3(wdf: string; offset,size: LongWord; mem: boolean): boolean;

var fs: TfileStream;

f: pchar;

volume: integer;

p: Pointer;

begin

volume := 40;

if (mem) then

begin

BASS_Free; //free first;

freeandnil(mp3ms);//freeandnil(ms);

fs := TfileStream.Create(wdf,fmOpenRead,fmShareDenyNone);

fs.Seek(offset,soFromBeginning);

mp3ms := TmemoryStream.Create;//ms := TmemoryStream.Create;

mp3ms.CopyFrom(fs,size);//ms.CopyFrom(fs,size);

p := mp3ms.Memory;//p := ms.Memory;

freeandnil(fs);

BASS_Init(1,22050,0,0,nil);//if BASS_Init(1,22050,0,0,nil) then Logs('init ok') else logMsg('init failed');

BASS_SetVolume(volume);//if BASS_SetVolume(volume) then logs(Format('Volume set to %d',[volume])) else LogMsg('Set Volume failed');

hbs := BASS_StreamCreateFile(mem,p,0,size,BASS_STREAM_AUTOFREE);

Bass_ChannelPlay(hbs,false);//if (Bass_ChannelPlay(hbs,false)) then logs('play failed') else logs('playing...');

//while (Bass_) do Bass_ChannelPlay(hbs,false);

end

end;