采用TBlobfield 综合Tmemorystream ,举个例子: var ms:Tmemorystream; begin ms:=Tmemorystream.create; image1.picture.graphic.savetostream(ms); ms.position:=0; : Tblobfield(queryxx.fieldbyname(xxx)).loadfromstream(ms); : queryxx.post; ms.free; end;
在表中建一个Graphic类型的字段,在程序中加入一个DBImage控件,使之与Table的这一字段建立关联,使用时在DBImage的Picture属性里Load进就可以了。procedure TForm1.Button1Click(Sender:TObject); begin DBImage1.Picture.LoadFromFile('c:\picture\jj.bmp'); end;
var ms:Tmemorystream;
begin
ms:=Tmemorystream.create;
image1.picture.graphic.savetostream(ms);
ms.position:=0;
:
Tblobfield(queryxx.fieldbyname(xxx)).loadfromstream(ms);
:
queryxx.post;
ms.free;
end;
begin
DBImage1.Picture.LoadFromFile('c:\picture\jj.bmp');
end;