Question

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

procedure Tfrm_htgl.btn8Click(Sender: TObject);
var //上传文件
pFileStream:Tfilestream;
pFile,pSJ,pWJM,pKZM,pWJNR:string;//pWJNR该设置成什么类型的呀？这个可以吗？
pQuery:TADOQuery;
begin
OpenDialog1.Title:='请选择需要上传的文件';
if not OpenDialog1.Execute then exit;//没有选择文件即退出
//如果选择了文件，接下来开始上传
//获取服务器当前时间
try
pQuery:=TADOQuery.Create(nil);
try
with pQuery do
begin
Connection:=data1.ADOConnection1;
sql.Text:='select getdate()';
open;
pSJ:=Fields.Fields[0].AsString;//获取服务器当前时间
end;
except
on E:exception do
begin
application.MessageBox(PChar('获取服务器时间失败！'+#13+'系统提示信息：'+e.Message),'保存失败',mb_ok+MB_ICONINFORMATION);
Exit;
end;
end;
finally
pQuery.Free;
end;
try
pFile:=OpenDialog1.FileName;
pKZM:=ExtractFileExt(pFile);
pWJM:=Copy(ExtractFileName(pFile),1,(Length(ExtractFileName(pFile))-Length(pKZM)));
pFileStream:=Tfilestream.Create(pFile,Fmopenread);
pWJNR:=Parameters.ParamByName('CJWJ').LoadFromStream(pFileStream,ftBlob);
//这行编译通不过，报错是Object or class type required，怎么整？
//还有一个错 Missing operator or semicolon怎么回事？
try
with data1.ADOhtgl do
begin
edit;
Data1.ADOhtgl.FieldByName('IP').Value:= qIP;//上传人的IP
Data1.ADOhtgl.FieldByName('WJM').Value:= pWJM;//文件名
Data1.ADOhtgl.FieldByName('KZM').Value:= pKZM;//文件扩展名
Data1.ADOhtgl.FieldByName('CJWJ').Value:= pWJNR;//文件
post
end;
except
MessageBox(Self.Handle, '上传文件失败！','操作失败', MB_OK + MB_ICONERROR);
exit;
end;
finally
pFileStream.Free;
end;
showmessage('上传成功！');
end;

Answer 1

向数据库添加文件要使用Tblob
Tblob(FieldByname('字段名')).loadfronfile(文件路径);

从数据库导出文件的时候是 Tblob(FieldByname('字段名')).savetofile(文件路径)