sql server中image字段输入！ (30分)

我在DELPHI中用TDBIMAGE实现sql server中image字段输入时，总是提示：
“invalid blob length"但我在BDE ADIMINISTRATOR 中已设过BLOB SIZE，
请问可能是什么问题？

如果TDBIMAGE的datase是TTABLE，TABLENAME属性
应为OWNER.DATABASENAME.TABLENAME,如
dbo.master.sysobjects

图象太大了吧?

图象不大，我用非常小的试了几次，还是不行，本人初学SQL SERVER，不知在SERVER
端还有哪些注意事项？

这个问题讨论的太多了，看看以前的讨论，会有收获的。
应注意bde的blobsize的设顶。
适应Tblobfield字段类型

放大BLOB SIZE属性，//用BDE ADMIN //大家说的
升级MSSQL//BORLAND FAQ里说的
没什么好办法//我说的

我借花献佛
试验以下代码
procedure Button1Click(Sender:TObject);
var
Query : TQuery;
StringStream : TStringStream;
begin
StringStream := TStringStream.Create ('');
Memo.Lines.SaveToStream (StringStream); //在这里创建一个字符流
StringStream.Position := 0;
Query := TQuery.Create(self); //在这里创建一个临时的Query
Query.DatabaseName := Database.DatabaseName;
with Query.SQL do
begin
Clear;
Append ('INSERT INTO TEST');
Append ('(ID,CONTENT)'); //CONTENT是一个Image字段
Append ('VALUES ID, :CONTENT)');
end;
with Query do
begin
ParamByName ('ID').asInteger := StrToIntDef (edtID.Text,0);
ParamByName ('CONTENT').asBlob := StringStream.DataString; //就在
这里赋值
end;
StringStream.Free; //用完了马上Free掉
Database.StartTransaction; //开始事务控制
try
Query.ExecSQL; //开始插入记录
Database.Commit; //提交事务
except
Query.Free; //如果出错首先将Query Free掉
Database.RollBack; //回退事务
raise; //重新引发异常，以通知用户
end;
Query.free;
end;
这里有一个例子，非常安全
procedure Button1Click(Sender:TObject);
var
Query : TQuery;
StringStream : TStringStream;
begin
StringStream := TStringStream.Create ('');
Memo.Lines.SaveToStream (StringStream); //在这里创建一个字符流
StringStream.Position := 0;
Query := TQuery.Create(self); //在这里创建一个临时的Query
Query.DatabaseName := Database.DatabaseName;
with Query.SQL do
begin
Clear;
Append ('INSERT INTO TEST');
Append ('(ID,CONTENT)'); //CONTENT是一个Image字段
Append ('VALUES ID, :CONTENT)');
end;
with Query do
begin
ParamByName ('ID').asInteger := StrToIntDef (edtID.Text,0);
ParamByName ('CONTENT').asBlob := StringStream.DataString; //就在
这里赋值
end;
StringStream.Free; //用完了马上Free掉
Database.StartTransaction; //开始事务控制
try
Query.ExecSQL; //开始插入记录
Database.Commit; //提交事务
except
Query.Free; //如果出错首先将Query Free掉
Database.RollBack; //回退事务
raise; //重新引发异常，以通知用户
end;
Query.free;
end;

多人接受答案了。