我用流也不行
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