怎么样把数据库中blob型的*.wav，*.mp3文件读出来,且保存到一个文件夹里呀！各位大虾帮忙呀！

Question

我在数据库里保存了*.wav，*.mp3文件，为blob型，
我现在想把库中的blob型的文件保存到D盘，形成可用播放器打开的*.mp3,*.mav，不知道怎么弄，请各位大虾帮忙呀！
procedure tbackup.showTape(title:string);
var
blob:tstream;
i:word;
str:string;
FileStream:TFileStream;
FileName:string;
begin
   blob:=localtapequery.CreateBlobStream(localtapequery.fieldbyname('tapefile'),bmread);
   if blob.size>200
   then
      begin
         if FileExists(FileName) then
         DeleteFile(FileName);
         try
            blob.seek(0,sofrombeginning);
            FileStream:=TFileStream.Create(FileName,fmcreate or fmopenwrite );
            FileStream.CopyFrom(Blob,Blob.Size);
           // filename.savetofile(title);在这里不知道怎么把文件保存为*.wav,*.mp3的音像文件
         except
            messagedlg('读声纹文件失败！',mtwarning,[mbok],0);
         end;
      end;
blob.free;
filestream.free;
end;

Answer 1

try
            blob.seek(0,sofrombeginning);
             FStream := TFileStream.Create('c:\hello.wav',fmCreate);
             FileStream.CopyFrom(Blob,Blob.Size);
      except
            messagedlg('读声纹文件失败！',mtwarning,[mbok],0);
         end;