D
dudajiang
Unregistered / Unconfirmed
GUEST, unregistred user!
我从数据库blob 字段取数据，最大只能取出32768个字节？
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
blobst : TBlobStream;
begin
if table1.Bof and table1.eof then
showmessage('it is empty')
else
begin
blobst := TBlobStream.Create(TBlobField(table1.FieldByname('doc')),bmRead);
Showmessage(inttostr(blobst.size));
end;
运行时要是字段 doc中的内容小于32768字节没问题，大于32768的一概显示该字段的大小是
32768个字节.
hope your help!
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
blobst : TBlobStream;
begin
if table1.Bof and table1.eof then
showmessage('it is empty')
else
begin
blobst := TBlobStream.Create(TBlobField(table1.FieldByname('doc')),bmRead);
Showmessage(inttostr(blobst.size));
end;
运行时要是字段 doc中的内容小于32768字节没问题，大于32768的一概显示该字段的大小是
32768个字节.
hope your help!