数据库图片存储也读取

procedure TForm1.Button1Click(Sender: TObject);

var

Ms:TmemoryStream;

jpg:Tjpegimage;

begin

ms:=TmemoryStream.Create;

Image1.Picture.Graphic.SaveToStream(Ms);

Ms.Position :=0;

DATA_M.ADOQuery_TEMP.Active:=FALSE;

DATA_M.ADOQuery_TEMP.SQL.Add('SELECT * FROM JZ_JZGIMG')  ;

DATA_M.ADOQuery_TEMP.Active:=TRUE;

DATA_M.ADOQuery_TEMP.Edit;

TBlobField(DATA_M.ADOQuery_TEMP.FieldByName('ZP')).LoadFromStream(Ms);

DATA_M.ADOQuery_TEMP.Post;

Ms.Free ;

end;

 

 

var

mStream:TMemoryStream;

JpgFile:TjpegImage;

begin

if not DATA_M.ADOQuery_TEMP.FieldByName('ZP').IsNull then begin ;

mStream:=TMemoryStream.Create ;

JpgFile:=TjpegImage.Create ;

TBlobField(DATA_M.ADOQuery_TEMP.FieldByName('ZP')).SaveToStream(mStream);//顯示的轉換為BlobFiled並保存至內存流

mStream.Position :=0;

jpgfile.LoadFromStream(MStream);

image2.Picture.Assign(JpgFile);

end

else begin

image2.Picture :=nil;

end;

end;