请教intraweb将文件上传写入数据库的问题(100分)

  • 主题发起人 主题发起人 wolf1860
  • 开始时间 开始时间
W

wolf1860

Unregistered / Unconfirmed
GUEST, unregistred user!
想将客户端一个图片文件写入数据库(上传到指写目录没有问题)
用过两种方法,
mystream:=tstream.create;
iwfile.savetostream(mystream);
TBlobfield(ado.fieldbyname('')).loadfromstream(mystream);
还有一种方法是
TBlobfield(ado.fieldbyname('')).loadfromstream(iwfile.filedata);

都没有成功,不知道是什么原因??
请高手指教.


 
IW中的用法是一样的,供参考:

var File_Stream:TMemoryStream;
begin
File_Stream:=TMemoryStream.Create; //内存流生成
with DataModule.ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add(' insert into Tab_BookInfo(ID,CV)'); //CV字段保存图片的
SQL.Add(' values(:aID,:BCV)');
Parameters.ParamByName('aID').Value:=IDEdit.Text; //ID号

if IWFile.Filename<>'' then //如果IWFile有图片
begin
IWFile.SaveToStream(File_Stream);//--------->就是此处了
Parameters.ParamByName('BCV').LoadFromStream(File_Stream,ftVarBytes);
end
else
Parameters.ParamByName('BCV').Value:=''; //没有图片
try
ExecSQL;
File_Stream.Free; //释放对象
WebApplication.ShowMessage('保存成功 !');
except
.......
end;
end;
end;
 
接受答案了.
 
后退
顶部