保存文件的方式:
1、存文件入数据库
   with Query do
   begin
     Close;
     Sql.Clear;
     Sql.Add('INSERT INTO Table VALUE(:sFileName,:sFileContent)');
     ParamByName('sFileName').AsString := OpenDialog.FileName;
     ParamByName('sFileContent').LoadFromFile(OpenDialog.FileName,ftBlob);
     ExecSQL;
   end;2、从数据库中取出文件
   with Query do
   begin
     Close;
     Sql.Clear;
     Sql.Add('SELECT * FROM  Table');
     Open;
     (FieldByName('sFileContent') AS TBlobField).SaveToFile (FieldByName('sFileName').AsString);
   end;
      
然后你根据文件用播放程序就可以了。。