怎样使用blob来存储图片？

Question

应该是TBlobField(cds1.FieldByName('EXAMPLE')).LoadFromFile(...)

Answer 1

例如：
cds1.commandtext := 'select * from table1'; //table1有个字段为Blob的
cds1.open;
if OpenDialog1.Execute then
begin
  cds1.append;
  TBolbField(cds.Fields[1]).LoadFromFile(OpenDialog1.FileName);
  //其它处理
end;
手把手的教，应该会了吧？

Answer 2

zhuoyuesky  你不给分真他妈小气

Answer 3

var
myfilestream:TMemoryStream;
begin
     if aq1.Active=false then aq1.open;
     with aq1 do
     begin
          myfilestream:=TMemorystream.Create;
          dbImage1.Picture.Bitmap.SaveToStream(myfilestream);
          myfilestream.Position:=0;
          edit;
          TBlobField(FieldbyName('jiantu')).LoadFromStream(myfilestream);
          if openpicturedialog1.filename<>'' then fieldbyname('pname').asstring:=OpenPictureDialog1.FileName;
     end;
end;