帮帮忙！图片存取问题！ ( 积分: 100 )

流问题，第一次做这类的东西，向大家学习！
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromStream(Table1.CreateBlobStream(Table1.FieldbyName('image'),bmRead));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
MS: TMemoryStream;
begin
MS:=TMemoryStream.Create;
memo1.Lines.SaveToStream(MS);
Bmp:=TBitMap.Create ;
Bmp.LoadFromStream(MS);
MS.Free ;
end;
Bmp是创建好的。怎么显示不出来图片呢？

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromStream(Table1.CreateBlobStream(Table1.FieldbyName('image'),bmRead));
----->> 改为从文件读出，看看是哪里的问题。
memo1.Lines.LoadFromFile('c:/abc.bmp');
end;

肯定不能这样吧
memo1.Lines如果用流最好用stringmemory
然你的是用来建图片的,不要借助memo1呀
直接用流不行吗?
var
memory2 : TMemoryStream;
begin
memory2 := TmemoryStream.Create;
Try
memory2 := Table1.CreateBlobStream(Table1.FieldbyName('image'),bmRead);
image1.LoadFromStream(memory2);
memory2.free;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
MS: TMemoryStream;
begin
MS:=TMemoryStream.Create;
memo1.Lines.SaveToStream(MS);
Bmp:=TBitMap.Create ;
MS.Position := 0; //加一句这样的话就应该OK了
Bmp.LoadFromStream(MS);
MS.Free ;
end;

多人接受答案了。