ado 读取和保存图片到数据库

[fly_cc]

delphi里如何读取和保存图片文件到数据库

[SuperTitan007]

查询TBlobField的用法

[bdmh]

ADOQuery1.Edit;
TBlobField(ADOQuery1.FieldByName('pic').LoadFromFile
ADOQuery1.Post;

[kye_jufei]

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;