把文件输入数据库的问题(暂时只是图片文件)(50分)

  • 主题发起人 主题发起人 qzmp_sc
  • 开始时间 开始时间
Q

qzmp_sc

Unregistered / Unconfirmed
GUEST, unregistred user!
我写了段把图片文件存储到数据库的代码,编译能通过,就是不能存数据,高手帮看看这是什么问题!
var fs : TFileStream;
ext,n: string;
begin
n:=Opendialog1.FileName;
if not FileExists(n) then
begin
Application.MessageBox(PChar('ÕÒ²»µ½Îļþ'+n),'´íÎó',MB_ICONERROR);
Exit;
end;
ext := ExtractFileExt(n);
fs := TFileStream.Create(n,fmOpenRead);
ADOTable1.Append;
try
adotable1.FieldByName('Name').AsString:=ext;
fs.Position:=0;
TBlobField(adotable1.FieldByName('Date')).LoadFromStream(fs);
adotable1.Post;
finally
fs.Free;
end;
end;
 
和图片大小有关,太大,肯定不能存,看看数据库字段容量多少?改一下!
 
OLE对象没有字段容量啊!!
 
先顶上来先再等回答!!
 
把TFileStream改为TMemoryStream试试吧
用TMemoryStream.LoadFromFile()方法把图加装进来。
 
同意楼上,不行再加个zlib把数据压缩了再存
 
数据库字段类型是不是Image类型啊?
 
任务完成
给分给分
 
后退
顶部