bass.dll播放音乐的应用

Moodsky

可以随意播放你自己的文件;
下面是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;

[ 本帖最后由 Moodsky 于 2007-2-8 10:16 编辑 ]