120，急请帮忙！Memo 到 Image 的存储 。 请各位朋友帮忙！

Question

var
m:tmemorystream;
begin
  m:=tmemorystream.create;
  memo1.lines.savetoStream(m);
  (query1.FieldByName('img') as TBlobField).LoadFromstream(m);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  m:tmemorystream;
begin
  m:=tmemorystream.create;
  memo1.lines.savetoStream(m);
  try
    table1.open; 
    table1.Append;
    table1.FieldByName('stid').asstring := '001';
    (table1.FieldByName('stnr') as TBlobField).LoadFromstream(m); 
    table1.Post;
  except
  end;
end;我刚才试了一下，还是报“stream err read”这样的错误。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  m:tmemorystream;
begin
  m:=tmemorystream.create;
  memo1.lines.savetoStream(m);
  try 
    table1.open;
    table1.Append;
    table1.FieldByName('stid').asstring := '001';
    (table1.FieldByName('stnr') as TBlobField).LoadFromstream(m);
    table1.Post;
  except
  end;
end;运行下来，还是出现“stream err read”错误！

Answer 3

你不能在表中设一个memo字段吗。

Answer 4

var
  m:tmemorystream;
改成
var
  m:Tolestream;试试

Answer 5

上面的代码是正确的，如果还出错，你建立TblobField在涉己期可能会好点！