//写入
var
MS: TMemoryStream;
begin
MS:=TMemoryStream.create;
Image1.Picture.Bitmap.SaveToStream(MS);
MS.Position:=0;
Table1.Append;
//在数据库中添加一条记录
TBlobField(Table1.FieldbyName(’image’)).LoadFromStream(MS);
Table1.Post;
//将所作的更新写入数据库
end;
//读取
var
MS: TStream;
begin
with Table1 do
MS:=CreateBlobStream(FieldbyName(’image’),bmRead);
Image1.Picture.Bitmap.
LoadFromStream(MS);
MS.Free;
end;