procedure savepicture;
var
BS:TADOBlobStream;
begin
Query1.Edit;
BS:=TADOBlobStream.Create(TMemoField(Query1.fieldbyname('图片')),bmWrite);
Image1.Picture.Graphic.SaveToStream(BS);
BS.Free;
Query1.Post;
end;
try
m_jpegStream:=TMemoryStream.Create;
(ADOQuery1.fieldbyname('Image') as TBlobField).SaveToStream(m_JpegStream);
m_JpegStream.Position:=0;
try
image.Picture.Graphic:=nil;
image.Picture.Graphic:=TJpegImage.Create;
Image.Picture.Graphic.LoadFromStream(m_JpegStream);
except
end;
finally
FreeAndNil(m_JpegStream);
end;