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

引用

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

推荐分享