这段代码入下
var
  tempstream:TMemoryStream;
  tempjpeg:TJPEGImage; //jpg图片
begin
  if adoqry_pic.RecordCount<>0 then
  begin
        try
          tempstream:=TmemoryStream.Create();
          //将图像字段保存到流中
          TBlobField(adoqry_pic.FieldByName('ChildPic')).SaveToStream(tempstream);
          ////给留定位
          tempstream.Position:=0;
          //生成临时image
          tempjpeg:=TJPEGImage.Create;
          //存留信息
          tempjpeg.LoadFromStream(tempstream);
          //显示图像
          Image_child.Picture.Bitmap.Assign(tempjpeg);
        finally
          tempstream.Free;
          tempjpeg.Free;
        end;
  end;end;