在DELPHI中怎么更新IMAGE字段

aaie_ 2012-04-12

展开全文

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, ComCtrls, ExtDlgs,
jpeg;

定义变量
imStream:TMemoryStream;

从文件中读取照片
   zp.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    imPicture := TJpegImage.Create;
    imPicture.Assign(zp.Picture.Graphic);
    imStream.Clear;
    imPicture.SaveToStream(imStream);
    FreeAndNil(imPicture);

插入数据库的时候用
DM.AQ.Parameters.ParamByName('照片').LoadFromStream(fmain.imstream,ftBlob);

从数据库中读取照片的时候（zp为图片控件）
    jpeg := TJPEGImage.Create;
    imStream.Clear;
    TBlobField(AQ.FieldByName('照片')).SaveToStream(imStream) ;
    imStream.Position := 0;
    jpeg.LoadFromStream(imStream);
    zp.Picture.Assign(jpeg);
    FreeAndNil(jpeg);