频道分类

Delphi unigui从数据表里下载流文件

作者:admin 来源: 日期:2019/10/22 20:36:50 人气: 标签:

 
引用
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