delphi+oracle 如何读写BLOB字段(100分)

var
aMem: TmemoryStream;
a: array[1..15] of char;
begin
//给a赋值
...

try
st := TmemoryStream.Create;
st.Clear;
a := '123456789012345';
st.Write(a,15);
if not (table1.State in [dsEdit, dsInsert]) then
table1.Insert;//or table1.Append;
TBlobField(table1.FieldByName('字段名称').LoadFromStream(st);
table1.Post;
finally
st.Free;
end;
end;
写类似

我试过delphi 6+person oracle ado,
放一个adoconnect, adotable ,dbimage,设置好相应的属性就可以如同bde对blob操作了
但是我也遇到了一个问题就是在倒入的图像比较大的时候大约>100k ,有时就只显示一部分
笑图片可以正常显示