本文整理自网络，侵删。
引用Data.DB, uniGUIapplication
//从数据表里下载流文件class function Tcommont.downfujian(fjbh, fjnm: string): boolean;var sql: string; fs: TMemoryStream;begin
fs := TMemoryStream.Create; sql := 'select fileid,file from tbfile where fileid=' + QuotedStr(fjbh); UniMainModule.tbfile_q.Active := false; UniMainModule.tbfile_q.SQL.Text := sql; UniMainModule.tbfile_q.Active := true;
try TBlobField(UniMainModule.tbfile_q.FieldByName('file')).SaveToStream(fs); UniSession.SendStream(fs, fjnm); //保存文件名fjnm except end;
fs.Free; UniMainModule.tbfile_q.Active := false;
end;――――――――――――――――
原文链接：https://blog.csdn.net/ozhy111/article/details/83339620 相关阅读 >>
Delphi webbrowser 无法调用当前浏览器的版本
更多相关阅读请进入《Delphi》频道 >>
