应用MapX编程两例

MapX是MapInfo公司提供的具有强大地图分析功能的ActiveX控件产品。由于它是一种基于Windows操作系统的标准控件,因而能支持绝大多数标准的可视化开发环境,如Visual C++、Visual Basic、Delphi、PowerBuilder、Visual Studio.NET等。编程人员在开发过程中可以选用自己最熟悉的开发语言,轻松地将地图功能嵌入到应用中,并且可以脱离MapInfo的软件平台运行。利用MapX,能够简单快速地在软件中嵌入地图化功能,增强软件的空间分析能力。MapX采用基于MapInfo Professional相同的地图化技术,可以实现MapInfo Professional具有的绝大部分地图编辑和空间分析功能。          
        MapX的主要功能包括:
        [1]专题地图绘制   使用专题地图绘制可以直观地表示数据。将数据与地图上的对象相关联,然后使用颜色编码(或其它样式)来直观地表现数据。可使用六种不同样式的任何一种(颜色范围、点密度、单独值、分级符号、饼图或条形图)查看数据。
        [2]逐层细化地图绘制   通过简单的点击即可详查数据。对于OLAP/DSS,可以通过点击让用户逐层细化到地图上的区域。
        [3]数据绑定   地图可以与嵌套了MapX的容器、ODBC或DAO数据源相连。MapX 提供了若干不同类型的数据绑定,包括邮政编码级别的地理编码。
        [4]注释   可以自行定义注释的显示方位。突出显示特定数据。还可加入文本、符号、表格使地图信息更加丰富直观。
        [5]图层化   可以显示和控制地图图层,使其缩放程度在预设的距离内时才显示。可以使用或创建无缝图层,从而就像处理一个表一样处理一组表。可以通过特殊图层来支持特殊的应用,这些特殊图层包括动画图层(用于实时跟踪)和UserDraw 图层(用于在地图顶部绘制特殊地图元素,例如徽标)。
        [6]栅格图像   在图层中加入一个栅格图像层作为背景可以使最终的地图更加清晰、美观。
        [7]自动标签   可以自动向地图添加标签,并可以控制其属性和显示。
        [8]选取对象   可在地图上拖动鼠标在圆、矩形或特定的点上选择一个或多个对象或记录以供分析。
        [9]特征工厂   用FeatureFactory对象可以创建、合并、缓冲或清除点、线、区域对象。
        [10]工具集   用户可以通过单击和拖放操作来与地图交互。可以使用MapX内置的导航、选择、标签、缩放工具,或者创建自定义的工具来满足程序的要求。
        [11]地图编辑   允许用户添加、修改、删除地图上的文本、编辑区域、点等特殊对象。
        [12]投影和坐标系   通过支持各种坐标系统和地图投影,MapX允许微调地图的显示并在本地坐标中处理X-Y坐标数据。
        [13]远程空间服务器连接   可以访问存储在Oracle 8i 和MapInfo SpatialWare中的远程地图数据。空间数据服务器如SpatialWare和Oracle 8i等都提供了先进的查询处理能力 ,提高了空间数据组织的性能。将空间数据存储到关系型数据库中,可以增加应用程序的灵活性和地图数据的安全性。


      1 简单的GIS功能
       对于地图缩放、平移、选取、标签等比较简单的功能,可以通过设置MapX控件对象的CurrentTool属性方便地获得。如平移功能就可以简单地用以下语句获得:
     Map1.CurrentTool = miPanTool   (假设MapX控件名字是Map1)        


      2 对象闪烁功能
       很多GIS系统中要用到图形对象的闪烁功能。比如:节点在状态未知时显示灰色,在接受查询时以闪烁以表明状态。这部分功能是借助定时器控件实现的。程序代码主要部分如下:
  
     '记录目前正在处理的节点图标
     Dim CurCusSym As New MapXLib.Feature
     '两个交替显示的图标
     Dim NewStyle As New MapXLib.Style, OldStyle As New MapXLib.Style
     '用于更换图标的布尔值
     Dim blnold As Boolean
     …………
Private Sub Timer1_Timer()   (每次定时器间隔时间到时调用此函数)
     Set lyr = Map1.Layers.Item(1)
     Set FeaFac = Map1.FeatureFactory
     With NewStyle
      .SymbolType = miSymbolTypeBitmap
      .SymbolBitmapSize = 24
      .SymbolBitmapTransparent = True
      .SymbolBitmapName = "red.BMP"    (要显示的第一张图片)
     End With
   
     With OldStyle
      .SymbolType = miSymbolTypeBitmap
      .SymbolBitmapSize = 24
      .SymbolBitmapTransparent = True
      .SymbolBitmapName = "gray.BMP"    (要显示的第二张图片)
     End With
   
     Map1.AutoRedraw = False      (禁止自动刷新)
     If (blnold = True) Then      (如果正显示第一张图片,就替换为第二张图片)
     CurCusSym.Style = OldStyle
     blnold = False
     Else
     CurCusSym.Style = NewStyle   (如果正显示第一张图片,就替换为第二张图片)
     blnold = True
     End If
     CurCusSym.Update   (刷新图片)
End Sub  

      3   增删站点图标功能
       在增加、减少、改动节点时会用到该功能。该部分功能是通过一个自定义工具实现的。主要实现代码如下:
      
    '在工程模块中定义增删节点的工具常数
    Public Const CreateRTUSymbolTool = 106
    Public Const DeleteRTUSymbolTool = 107
  
    '注册工具
   Private Sub Form_Load()
    …………
     Map1.CreateCustomTool CreateRTUSymbolTool, miToolTypePoint, miSizeAllCursor
     Map1.CreateCustomTool DeleteRTUSymbolTool, miToolTypePoint, miSizeAllCursor
   End Sub
  
    '工具的调用
     Private Sub Map1_ToolUsed(ByVal ToolNum As Integer, ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal Distance As Double, ByVal Shift As Boolean, ByVal Ctrl As Boolean, EnableDefault As Boolean)
    ………… 
    '添加节点图标
     If ToolNum = CreateRTUSymbolTool Then
     Dim Pnt As New MapXLib.Point
     Dim FeaFac As New MapXLib.FeatureFactory
     Dim lyr As New MapXLib.Layer
     Dim ftr As New MapXLib.Feature
     Dim NewStyle As New MapXLib.Style
 
     Set lyr = Map1.Layers.Item(1)
     Set FeaFac = Map1.FeatureFactory
     '设置节点图标的样式
     With NewStyle
      .SymbolType = miSymbolTypeBitmap
      .SymbolBitmapSize = 24
      .SymbolBitmapTransparent = True
      .SymbolBitmapName = "gray.BMP"
     End With
     Map1.AutoRedraw = False    '禁止图层自动刷新
     lyr.Editable = True             '置当前图层为可写状态
     '创建点对象
     Pnt.Set X1, Y1
  
     Set ftr = FeaFac.CreateSymbol(Pnt, NewStyle)    '创建符号
     '记录目前正在处理的用户标记
     Set CurCusSym = ftr
   
     '添加节点图标进当前图层并刷新图层
     lyr.AddFeature ftr
     lyr.Refresh

     Map1.AutoRedraw = True '恢复图层的自动刷新
     lyr.Editable = False
     '释放对象
     Set Pnt = Nothing
     Set FeaFac = Nothing
     Set lyr = Nothing
     Set ftr = Nothing
   End If
 
'删除节点图标
   If ToolNum = DeletePointTool Then
     Dim obj As MapXLib.Feature
     Dim selectedFtrs As MapXLib.Features
     Dim lyr As MapXLib.Layer

     Set lyr = Map1.Layers.Item(1)
     Set selectedFtrs = lyr.Selection
     For Each obj In selectedFtrs
         lyr.DeleteFeature (obj)
     Next
   End If
        
End Sub  


      4   注意事项
        用于显示的BMP图片必须放在MapX安装目录下的CUSTSYMB子目录下,存为不大于256色的图片,这样才可以用.SymbolBitmapName = "gray.BMP"这样的语句来调用显示。

       5 MapX与.NET的结合
        由于MapX是一个AvtiveX控件,所以可以被.NET托管使用。但由于.NET对ActiveX控件托管的实现是借助一个类似“壳”的包装对象实现的,而且很多在VB6下面的ActiveX方法不再支持(如默认参数等),将MapX应用到.NET中有一些难度。当然基本功能还是比较容易实现的,如选择工具调用的语句为:axMap1.CurrentTool = MapXLib.ToolConstants.miSelectTool(axMap1为相当于VB6下面的Map1对象)。
--------------------------------------------------

MapX从数据库读取数据形成新图层(C#)

2005-5-10
在C#中实现MapX从数据库读取数据形成新图层分为两个问题:
1.          MapX从数据库读取数据形成新图层;
2.          将DataTable转换为ADO的Recordset。
这里的第二个问题是由第一个问题引起的,因为MapX是一个COM控件,而且它只支持ADO的数据访问方式,而C#编程时一般会使用ADO.NET方式,为此需要在两种方式之间做一下转换。(当然也可以在C#中使用ADO方式,但这毕竟是落后的方法。该解决办法可参考文章《Visual Basic.NET中使用ADO访问数据库》)。
对第二个问题的解决办法,参见作者的另一篇文章《将DataTable对象转换为Recordset对象》( http://blog.csdn.net/allentao/archive/2005/05/11/373634. aspx),本文章只讲述在得到了Recordset对象后,如何解决第一个问题。
步骤如下:
1.          创建CMapXFields对象,并对应数据库中字段添加字段;
2.          创建CMapXBindLayer对象,指定其坐标值字段的序号;
3.          向map.DataSets中添加数据集,从而生成新的图层;
4.          指定新图层中要素的显示风格,本文采用显示位图的方式,为此需要将要显示的位图放入MapX安装目录的CUSTSYMB文件夹下。

代码如下:
               private void CreatNewLayerfromDB(string layerName, ADODB.Recordset rsNoPass)
               {
                      this.DeleteLayerByName(layerName);    //将原有层删除

                      CMapXFields flds=new FieldsClass();

                      // Describe the structure of the Unbound dataset
                      flds.Add("stationid", "theid", AggregationFunctionConstants.miAggregationIndividual,
                             FieldTypeConstants.miTypeString);
                      flds.Add("address", "address", AggregationFunctionConstants.miAggregationIndividual,
                             FieldTypeConstants.miTypeString);
                      flds.Add("longitude", "longitude", AggregationFunctionConstants.miAggregationSum,
                             FieldTypeConstants.miTypeNumeric);   //经度
                      flds.Add("latitude", "latitude", AggregationFunctionConstants.miAggregationSum,
                             FieldTypeConstants.miTypeNumeric);   //纬度

                      CMapXBindLayer bindLayerObject=new BindLayerClass();
                      bindLayerObject.LayerName=layerName;
                      bindLayerObject.RefColumn1=3;
                      bindLayerObject.RefColumn2=4;
                      bindLayerObject.LayerType=BindLayerTypeConstants.miBindLayerTypeXY;

                      CMapXDataset dataSet=map.DataSets.Add(DatasetTypeConstants.miDataSetADO,
                             rsNoPass, layerName, "stationid", "address", bindLayerObject, flds, false );

                      CMapXLayer layer=map.Layers._Item(layerName);
                      layer.OverrideStyle= true;
                      string picName="icon.BMP";
                      if(layer.Style.SupportsBitmapSymbols == true)
                      {
                             layer.Style.SymbolType = SymbolTypeConstants.miSymbolTypeBitmap;
                             layer.Style.SymbolBitmapSize = 60;
                             layer.Style.SymbolBitmapTransparent = true;
                             layer.Style.SymbolBitmapName = picName;
                      }                                          
               }

               private void DeleteLayerByName(string layerName)
               {
                      int count=map.Layers.Count;
                      for(int i=1; i<count; i++)
                      {
                             if(map.Layers._Item(i).Name==layerName)
                                    map.Layers.Remove(i);
                      }
               }

说明:

MapX控件中的序号是从1开始的,这一点可从上面的代码中Layers集合与Fields集合的序号使用上可以看出。

你可能感兴趣的:(编程,数据库,工具,PowerBuilder,dataset,distance)