本文整理自网络，侵删。
引用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 stringgrid 实例3： 本例功能: 1、修改 tstringgrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值.
更多相关阅读请进入《Delphi》频道 >>
