怎么把blob字段里的内容存到IStream里去呀？？

Question

SM:=TMemoryStream;
begin
  SM:=TmemoryStream.Create(nil);
  table.FieldByName(BlobFieldName).SaveToStream(SM);
end;

Answer 1

procedure Tfrmlr.TBtnYesClick(Sender: TObject);
 var
    stringstream:TStringStream;
 begin
 StringStream := TStringStream.Create ('');
  MemQw.Lines.SaveToStream (StringStream); //在这里创建一个字符流
  StringStream.Position := 0;
  with Query1.SQL do
   begin
    Clear;
    Add ('insert into oadbo.bw_qwb (wjid,Wjdid,kzm,qw)'
         + ' values (:a, 0, :b, :c)');
  end; with Query1 do
  begin
    ParamByName ('a').asstring :=IntToStr(nlwid);
    ParamByName ('b').asstring := 'txt';
    ParamByName ('c').asBlob := StringStream.DataString;  //就在这里赋值
  end; StringStream.Free; //用完了马上Free掉
 Query1.ExecSQL; //开始插入记录
end;

Answer 2

var
  vMemoryStream: TMemoryStream;
begin
  vMemoryStream := TMemoryStream.Create;
  try
    TBlobField(Table1.FieldByName('')).SaveToStream(vMemoryStream);
    vMemoryStream.Position := 0;
  finally
    vMemoryStream.Free;
  end;
end;

Answer 3

为什么都不看清楚题目呢？？
是IStream,和别的stream方法属性都不一样的～～～顺便问一句，有用过webbrowser直接显示memorystream流的大虾吗？？都搞了一个星期了，老是
不对，或者就是乱码//