[delphi]关于上传文件,代码如下: 问题是文件上传都成功,可是下载的时候却只能下下来一个空白的文件?

2020-06-07 科技 79阅读
这种问题我也遇到过,不知道你用的是不是SQL,如果是SQL SERVER 的话,你可以用查询分析器查询这条数据,然后他的image字段就会显示出来,如果为空,说明你上传的时候没有将东西上传上去,那就是上传的问题,如果是有数据的,那主要就是下载的问题,先明确问题之后,再去找下面的原因。

哦,突然发现,你是将数据流用字符串保存的?
如果是这样,要用特定的函数将流转换成字符串的。 (自己百度下,把流转换成字符串,我这无法百度- -)
pWJNR:=Parameters.ParamByName('CJWJ').LoadFromStream(pFileStream,ftBlob);
这么写应该是不对的。

一般情况是,定义一个流类型,然后将文件转换成流,然后直接保存到数据库的image字段中,然后下载的时候,再将image字段转换成文件。就好了。。

var
m:TMemoryStream;
begin
m:=TMemoryStream.Create;
m.LoadFromFile(Fielname);
Data1.ADOhtgl.edit;
Data1.ADOhtgl.Parameters.ParamByName('CJWJ').LoadFromStream(m,ftBlob);
Date1.ADOhtgl.Post;
end;
如满意请采纳,如有问题请追问。
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com