--存  

str_sql := 'update photo set photo = :photo ';

  str_sql := str_sql + ' where sex = ''女''';   with qry_for_show do   begin     Close;     SQL.Clear;     SQL.Add(str_sql);     Parameters.ParamByName('photo').Assign(img2.Picture.Graphic);     ExecSQL;   end;

--读

procedure Tfrmpicsave.BitBtn1Click(Sender: TObject);

var   Stream:TMemoryStream;   Jpg:TdxPNGImage; begin   qry_for_show.Close;   qry_for_show.SQL.Text:='SELECT * FROM HLDJPHOTO';   // 查询图片   qry_for_show.Open;   if not qry_for_show.FieldByName('photo').IsNull then   begin     Stream:=TMemoryStream.Create ;     Jpg:=TdxPNGImage.Create ;     TBlobField(qry_for_show.FieldByName('photo')).SaveToStream(Stream);    // 显示的转换为BlobField并保存到内存流         TBlobField(qry_for_show.FieldByName('photo')).SaveToFile(ExtractFilePath(Application.ExeName) + 'www');    // 显示的转换为BlobField并保存到内存流     Stream.Position :=0;     jpg.LoadFromStream(Stream);    // 加载图片     image1.Picture.Assign(Jpg);   end   else   begin     image1.Picture :=nil;   end;     Stream.Free;     Jpg.Free; end;

本文转自鹅倌51CTO博客，原文链接：http://blog.51cto.com/kaixinbuliao/1793348 ，如需转载请自行联系原作者