我用流也不行
var
t:TmemoryStream;
dd:olevariant;
r:tBlobStream;
begin
try
T:=TmemoryStream.Create;
T.Clear;
while not query2.eof do
begin
if query2.fieldbyname('id').asstring='s1' then
begin
tblobfield(query2.fieldbyname('bo')).SaveToStream(t);
t.readBuffer(dd,0); //无法将流直接转成olevariant
cell1.ReadFromBuffer(dd); //读入不成功
break;
end;
query2.next;
end;
finally
T.Free;
end;
程序用于存储华表控件的格式文件,不允许用中间文件,但华表只支持olevariant
var
t:TmemoryStream;
dd:olevariant;
r:tBlobStream;
begin
try
T:=TmemoryStream.Create;
T.Clear;
while not query2.eof do
begin
if query2.fieldbyname('id').asstring='s1' then
begin
tblobfield(query2.fieldbyname('bo')).SaveToStream(t);
t.readBuffer(dd,0); //无法将流直接转成olevariant
cell1.ReadFromBuffer(dd); //读入不成功
break;
end;
query2.next;
end;
finally
T.Free;
end;
程序用于存储华表控件的格式文件,不允许用中间文件,但华表只支持olevariant
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货