德尔福数据库存储图片

——存,

str_sql:=更新设置照片=照片:照片,
,str_sql:=str_sql +性="女",
,qry_for_show做
,开始
,,,关闭;
,,,SQL.Clear;
,,,SQL.Add (str_sql);
,,,Parameters.ParamByName(照片).Assign (img2.Picture.Graphic);
,,,ExecSQL;
,结束;

——读

过程Tfrmpicsave。BitBtn1Click(发送方:TObject);
var
,流:TMemoryStream;
,Jpg: TdxPNGImage;

开始,qry_for_show.Close;
,qry_for_show.SQL。文字:=' SELECT * FROM HLDJPHOTO ';,,//查询图片
,qry_for_show.Open;
,如果不是qry_for_show.FieldByName(照片)。IsNull然后
,开始
,,,流:=TMemoryStream。创建;
,,,Jpg:=TdxPNGImage。创建;
,,,TBlobField (qry_for_show.FieldByName(照片)).SaveToStream(流),,,,//显示的转换为BlobField并保存到内存流
,,,,,,,TBlobField (qry_for_show.FieldByName(照片)).SaveToFile (ExtractFilePath (Application.ExeName) +“www”),,,,//显示的转换为BlobField并保存到内存流
,,,流。位置:=0;

,,,jpg.LoadFromStream(流),,,,//加载图片

,,,p_w_picpath2.Picture.Assign (Jpg);
,
结束,其他
,开始
,,,p_w_picpath2。图片:=零;
,结束;

,,,Stream.Free;

,,,Jpg.Free;
结束;

德尔福数据库存储图片