采用什么方法可以把TMemoryStream类型的数据存入数据库的Blob类型的字段

Question

如题，最好能给个例子

Answer 1

var ms: TMemoryStream;TBlobField(ADOQuery1.FieldByName('pic')).LoadFromStream(ms);
ADOQuery1.Post;

Answer 2

最近有几个这样的贴子，不妨搜索一下。这是我昨晚看到的：存到数据库
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;