关于入库文件长度的问题 (200分)

  • 主题发起人 主题发起人 3e
  • 开始时间 开始时间
3

3e

Unregistered / Unconfirmed
GUEST, unregistred user!
我用如下方法入库
table1.Append;
TVarBytesField(table1.Fieldbyname('data')).LoadFromFile('123.wav');
table1.post;
当文件长度超过500k时报错,长度错误!
数据库为SQLServer用BDE,向image字段存储.
 
有没有高手回答,我先谢过了
 
同意: Jams
 
var
MyStream:TmemoryStream;
FileName:String;
begin
MyStream:=TMemoryStream.Create;
if OpenDialog1.Execute then
begin
Filename:=OpenDialog1.FileName;
end
else
begin
Exit;
end;
MyStream.loadfromfile(Filename);
MyStream.Seek(0,soFromBeginning);
WITH Query1 do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE R_IMG set IMAGE=:IMAGE WHERE APPNO=:APPNO');
ParamByName('IMAGE').LoadFromStream(MyStream,ftBlob);
ParamByName('AppNO').AsString:='2000464';
ExecSQL;
end;
MyStream.Free;
end;
 
应该是 TBlobField(table1.Fieldbyname('data')) 吧
 
用BLOB,并在BDE的ALIAS设置中,有个BLOBSIZE的参数,把它的值加大。
 
使用压缩控件
 
用BLOB,应该是 TBlobField(table1.Fieldbyname('data')) !!
 
多人接受答案了。
 
后退
顶部