function TYFFDObjStyleLib.GetRegionObjBmp: TBitMap;
var
  pic: TBitmap;
  bmpStream: TADOBlobStream;
begin
//获得数据库中图形
  SetObjDatasetActive; //激活数据集
  if styleDataset.FieldByName('REGIONOBJBMP').IsBlob then
    if styleDataset.FieldByname('REGIONOBJBMP') is TBlobField then
    begin
      try
        pic := TBitMap.Create;
        bmpStream := TADOBlobStream.Create(TBlobField(styleDataset.FieldByname('REGIONOBJBMP')), bmread);
//*******************************************************************        
        pic.LoadFromStream(bmpStream);
        result:=pic;
      finally
        bmpStream.Free;
        pic.Free;
      end;
    end;
end;