本文整理自网络,侵删。
引用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 xe7实现获取程序是否已管理员模式运行以及运行的windows用户名
更多相关阅读请进入《Delphi》频道 >>