此文档描述如何在MapInfo MapXtreme 2004中创建Web应用中的自定义工具，使用起来如同内置的工具。当前的程序以C#编写，可以将源代码拷贝粘贴到类文件中。

许多的开发者询问，如何编写自定义工具获取用户点击处X,Y坐标点。 他们常常参考创建拉框放大的自定义工具（开发手册中提供）。

这个例子中有若干事项需要注意:

1.        用户需要在地图上点击鼠标两次，服务器端会相应事件。

2.        例子中使用默认的html button 选择自定义工具，而不是是用java script 和内置的工具和工具控件。

3.        工具的逻辑处理过程包含在工具对象中。如果开发者需要相同的工具在其他的页面上执行稍微不同的行为，必须要创建一个新的工具。

经过多次测试，我采用下面的方法创建自定义工具:

1.        直接获取用户在地图上点击处的X，Y 坐标点.

2.        触发事件，开发人员可以在事件中编写处理程序。

3.        拥有自己的控件，这样我们可以象使用内置的工具一样使用它。

首先，我们要创建一个新的工具。我们的工具会继承自MapInfo.Web.UI.WebControls.MapTool, 就像其他内置的控件。这是一个抽象类，我们必须实现5个抽象属性（字符串类型）和一个抽象（void）。

Property ClientCodeSource: 获取/设置放置客户端绘制代码的Javascript的路径或者URL。

Property ClientStartMethod: 获取/设置客户端建立用于绘画的鼠标事件处理程序的方法名。

Property ClientStopMethod: 获取/设置客户端停止鼠标操作事件处理程序的方法名。

Property CursorUrl: 获取/设置放置光标图像放置的路径和URL。

Property Name: 获取/设置工具的名字。  

Method Execute: 包含完成操作的代码。

我们必须实现这些属性，这样这些值保存在私有的变量中。我们必须自己设置的属性有 ClientStartMethod, ClientStopMethod ,Name。

我们要象其他工具实现Name属性一样实现Name property。 我们使用静态变量'Toolname', 设置它的值为 'GetPointTool' (工具名)， 然后赋给工具构造函数的私有变量 _name。

按照MapXtreme 2004 开发手册, 我们要使用 MapInfoWebPointStart 和 MapInfoWebPointStop javascript 方法去处理地图点击事件，所以我们将它赋值给私有的 clientStartMethod 和 clientStopMethod 变量。

归根结底，代码如下：

public class GetPointTool : MapInfo.Web.UI.WebControls.MapTool

{

    private string _clientStartMethod;

    private string _clientStopMethod;

    private string _clientSourceCode;

    private string _cursorUrl;

    private string _name;

    public static readonly string Toolname = "GetPointTool";

    public override string Name

    {

        get { return _name;

    }

        set { _name = value; }

    }

    public override string ClientCodeSource

    {

        get { return _clientSourceCode; }

        set { _clientStartMethod = value; }

    }

    public override string ClientStartMethod

    {

        get { return _clientStartMethod; }

        set { _clientStartMethod = value; }

    }

    public override string ClientStopMethod

    {

        get { return _clientStopMethod; }

        set { _clientStopMethod = value; }

    }

    public override string CursorUrl

    {

        get { return _cursorUrl; }

        set { _cursorUrl = value; }

    }

    public GetPointTool()

    {

        Name = Toolname;

        ClientStartMethod = "MapInfoWebPointStart";

        ClientStopMethod = "MapInfoWebPointStop";    

    }

    public override void Execute(string dataString, System.Collections.ArrayList arrayList, MapInfo.Mapping.Map map)

    {

    }

}

这里，我们可以把工具实现逻辑写在Execute方法中, 但是这就意味着我们的工具永远实现相同的操作。可以替代的方法是，我们在Execute方法中触发一个事件。为了保持一致性，我们创建一个事件变量类称为PointFoundEventArgs，在这个类中我们可以加入自己需要的点数据。这个类继承自System.EventArgs ，如下所示：

public class PointFoundEventArgs: EventArgs

{

    private MapInfo.Mapping.Map _map;

    private MapInfo.Geometry.DPoint _point;

     public PointFoundEventArgs(MapInfo.Mapping.Map map, MapInfo.Geometry.DPoint point)

    {

        this ._map = map;

        this._point = point;

    }

     public MapInfo.Mapping.Map Map

    {

        get { return _map; }

        set { _map = value; }

    }

     public MapInfo.Geometry.DPoint Point

    {

        get { return _point; }

        set { _point = value; }

    }

}

现在我们可以在工具中加入代理(PointFoundEventHandler) 和事件 (PointFound)，然后从 Execute 方法中激活事件。 为了创建事件，我们在类中加入下面的 2 行：

    public delegate void PointFoundEventHandler(object sender, PointFoundEventArgs e);

    public event PointFoundEventHandler PointFound;

现在我们要做的就是获取用户点击处的点和在Execute 方法中激活事件。 为此，在Execute 方法中加入如下代码：

    public override void Execute(string dataString, System.Collections.ArrayList arrayList, MapInfo.Mapping.Map map)

    {

        MapInfo.Geometry.DPoint Point;

        //从datastring 抽取点

        System.Drawing.Point [] points = base.ExtractPoints(dataString);

        //转换为可用的投影坐标

        map.DisplayTransform.FromDisplay(points[0], out Point);

        //创建一个新的PointsFoundEventArgs，设置Point 属性 (通过构造函数)

        PointFoundEventArgs e = new PointFoundEventArgs(map, Point);

        //激活事件

        PointFound(this, e);

    }

这里，我们可以测试新建的工具：
创建一个webapplication，增加一个地图控件 (MapControl1) 到 .aspx 页，并使用设计时图层控制控件加入一些图层到地图。同时在页中加入2个label控件 (Label1 and Label2)。我们在触发PointFound事件时设置label控件的Text属性为X和Y坐标。

将下面代码加入Page_Load()事件:

public void Page_Load(object sender, System.EventArgs e)

    {

        //创建一个工具实例

        GetPointTool tool = new GetPointTool();

        //将工具加入到地图控件MapControl 的MapTools中

        MapControl1.MapTools.Add(tool);

        //设置地图控件的当前工具为我们创建的工具

        MapControl1.MapTools.CurrentTool = GetPointTool.Toolname;

        //加入PointFound 事件处理

        tool.PointFound+=new GetPointTool.PointFoundEventHandler(tool_PointFound);

    }

别忘了我们的事件处理程序...

    private void tool_PointFound(object sender, PointFoundEventArgs e)

    {

        Label1.Text = e.Point.x.ToString();

        Label2.Text = e.Point.x.ToString();

    }

当页面加载时，创建自定义工具的实例并加载到地图控件，且当前的工具设置为我们自己创建的自定义工具. 同时我们为PointFound 事件加入处理程序。启动应用并点击地图。请求被提交并且激活PointFound 事件。 方法 tool_PointFound 中将 X 和 Y 坐标值写入Label控件.

创建的工具控件继承MapInfo.Web.UI.WebControls.ToolControl 类. 我们要创建一个事件指向自定义工具的PointFound事件.在类的构造函数中，我们要为属性'ActiveImageUrl' 和 'crsorImageUrl' 设置值。
我们要覆盖OnLoad 事件并创建工具的实例，设置工具控件的MapTool属性，并将工具加入到地图控件MapControl的工具集MapTools中，同时设置自定义工具控件的事件PointFound。
    using System;
    using MapInfo.Web.UI.WebControls;
    public class GetPointToolControl : MapInfo.Web.UI.WebControls.ToolControl
    {
        public event GetPointTool.PointFoundEventHandler PointFound;
        public GetPointToolControl()
        {
            //工具提示.
            this.TooltipText = "Click on the Map to add a DriveTime or Distance Buffer";
            //设置光标文件
             this .crsorImageUrl = MapInfoMapTool.GetResourcePath() + "/MapInfoWebPointSelection.cur";
            //设置工具按钮的图像
            this.ActiveImageUrl = MapInfoMapTool.GetResourcePath() + "/PointSelectionToolControlActive.gif";
            this.InactiveImageUrl = MapInfoMapTool.GetResourcePath() + "/PointSelectionToolControlInActive.gif";
        }
        protected override void OnLoad(EventArgs e)
        {
            base.OnLoad(e);
            if (this.mapControl != null)
            {
                GetPointTool tool = new GetPointTool();
                this.MapTool = tool;
                this.mapControl.MapTools.Add(tool);
                tool.PointFound+=PointFound;
            }
         }
    }
为了使用我们定义的控件，我们需要在页面上注册tagprefix，如下所示：（注：Namespace要设置为你自己的应用的命名空间）
    <%@ Register TagPrefix="cc1" Namespace="YourNameSpace" Assembly="YourAssembly"%>
现在，将工具控件加入到页面的工具条控件中
    <cc1:getpointtoolcontrol id="Getpointtoolcontrol1" runat="server" MapID="MapControl1"></cc1:getpointtoolcontrol>
加入事件:
private void Getpointtoolcontrol1_PointFound(object sender, MapXtremeWebApplication6.PointFoundEventArgs e)
{
Console.WriteLine ("坐标点：{0},{1}",e.Point.x,e.Point.y);
}
我们不需要在Page_Load事件中加入任何初始化控件的代码，所有工作在后台进行。

步骤：
1）在Winform中加入MapControl和一个TextBox
2）将TextBox的属性MultiLine设为True, Visable设为False，BorderStyle设为FixSingle
3）捕获MapControl1的MouseDown和MouseUp事件，函数内容如下：

        private void mapControl1_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e)
        {
            //如果没有转载任何tab文件，则返回
           if(mapControl1.Map.Layers.Count == 0 || this.currentLayerName=="")//currentLayerName是顶层Layer的名字，同时也是Table的名字
                return;
           MapInfo.Engine.Selection selection=MapInfo.Engine.Session.Current.Selections.DefaultSelection;
           MapInfo.Data.Table table=MapInfo.Engine.Session.Current.Catalog.GetTable(currentLayerName);
           MapInfo.Data.IResultSetFeatureCollectionfeatureCollection=selection[table];
            //如果没有选中任何图元，或者选中多个图元，则返回
            if(featureCollection==null||featureCollection.Count!=1)
                return;

            //取第一个图元
            MapInfo.Geometry.Geometry geometry=featureCollection[0].Geometry;
            //创建连接和命令来查询table中的数据
            MapInfo.Data.MIConnection connection=new MapInfo.Data.MIConnection();
            MapInfo.Data.MICommand command=connection.CreateCommand();
            command.CommandText="SELECT * FROM "+currentLayerName+" WHERE Objwithin @featureObject";
            command.Parameters.Add("@featureObject",geometry);
            connection.Open();
            MapInfo.Data.MIDataReader dataReader=command.ExecuteReader();
            int n=dataReader.FieldCount;
            this.textBoxInfoTips.Clear();
            //把查询到的内容放进tips中
            for(int i=0;i<n;i++)
            {
              this.textBoxInfoTips.AppendText(dataReader.GetName(i)+"\t");
            }
            this.textBoxInfoTips.AppendText("\n");
            while(dataReader.Read())
            {
                for(int i=0;i<n;i++)
                {
                    object o=dataReader.GetValue(i);
                    if(o==DBNull.Value)
                      this.textBoxInfoTips.AppendText("null\t");
                    else
                      this.textBoxInfoTips.AppendText(o.ToString()+"\t");
                }
                this.textBoxInfoTips.AppendText("\n");
            }
            //改变tips的显示位置
            this.textBoxInfoTips.Location=new System.Drawing.Point(e.X,e.Y+50);
            this.textBoxInfoTips.Visible=true;
        }

        private void mapControl1_MouseUp(object sender, System.Windows.Forms.MouseEventArgs e)
        {
            this.textBoxInfoTips.Visible=false;
        }

=====
代码已测试通过。

MapInfo.Mapping.LayerHelper.SetSelectable(mapControl1.Map.Layers[tableAlias],selectableStatu

s);
 return true;
}

 2 设置层的可用状态

/**//// <summary>
/// 改变层的可用状态为status
/// </summary>
/// <param name="layerName"></param>
/// <param name="status"></param>
public void LayerEnableStatusUpdate(string layerName,bool status)
{
 if(mapControl1.Map.Layers[layerName]!=null && mapControl1.Map.Layers[layerName].Enabled!

=status)
 {
  mapControl1.Map.Layers[layerName].Enabled=status;
 }
}
 3 层居中，看全图

/**//// <summary>
/// 使指定层全部呈现在地图的可见范围中
/// </summary>
/// <param name="tableAlias">层别名</param>
public void LayerCenter(string layerName)
{
 MapInfo.Data.Table[] tables=new MapInfo.Data.Table[1];
 tables[0] = MapInfo.Engine.Session.Current.Catalog.GetTable(layerName);
 if(tables[0]==null)
  return;
 if(mapControl1.Map.Layers[layerName]==null)
  return;

 if(mapControl1.Map.Layers[layerName].Enabled == false)
  mapControl1.Map.Layers[layerName].Enabled = true;

 MapInfo.Mapping.IMapLayerFilter iMapLayerFilter =

MapInfo.Mapping.MapLayerFilterFactory.FilterByTable(tables);
 MapInfo.Mapping.MapLayerEnumerator mapLayerEnumerator =

mapControl1.Map.Layers.GetMapLayerEnumerator(iMapLayerFilter);
 mapControl1.Map.SetView(mapLayerEnumerator);
 OnFeatureUnclick();
}

4 放大缩小地图

/**//// <summary>
/// 放大地图
/// </summary>
/// <param name="times">放大倍数，有效值1－10</param>
public void ZoomIn(uint times)
{
 if(times<1 || times>10) return;
 MapInfo.Geometry.Distance previousZoom=this.mapControl1.Map.Zoom;
 mapControl1.Map.Zoom=new MapInfo.Geometry.Distance(previousZoom.Value/

(2*times),previousZoom.Unit);
}
/**//// <summary>
/// 缩小地图
/// </summary>
/// <param name="times">缩小倍数,有效值1－10</param>
public void ZoomOut(uint times)
{
 if(times<1 || times>10) return;
 MapInfo.Geometry.Distance previousZoom=this.mapControl1.Map.Zoom;
 mapControl1.Map.Zoom=new MapInfo.Geometry.Distance(previousZoom.Value*

(2*times),previousZoom.Unit);
}
 

5 移动层的顺序
mapControl1.Map.Layers.Move(index1,index2);

6 图元/图层透明

/**//// <summary>
/// 设置层的透明与否
/// </summary>
/// <param name="layerName">层名</param>
/// <param name="opaqueType">不透明类型 ALL 全部不透明 BORDER 只有边界不透明（内部透明）

NONE 全部透明</param>
/// <param name="borderColor">如果是边界不透明，此处设置边界颜色</param>
public void LayerTransparent(string layerName,OpaqueType opaqueType,System.Drawing.Color

borderColor)
{

 MapInfo.Styles.CompositeStyle compositeStyle = GetOpaqueStyle(opaqueType,borderColor);

 //创建连接和命令来更新table中的数据
 MapInfo.Data.MIConnection connection=new MapInfo.Data.MIConnection();
 connection.Open();
 MapInfo.Data.MICommand command=connection.CreateCommand();
 command.CommandText = "update " + layerName + " set obj=obj,MI_Style=@style";
 command.Parameters.Add("@style",compositeStyle);
 command.Prepare();
 command.ExecuteNonQuery();

 //关闭连接
 command.Cancel();
 command.Dispose();
 connection.Close();
 connection.Dispose();
}
/**//// <summary>
/// 创建style
/// </summary>
/// <param name="opaqueType">不透明类型：ALL全部不透明（白色实心）；BORDER边界不透明（填充部

分透明）；NONE全透明</param>
/// <param name="borderColor">如果opaqueType=BORDER，此处设定边界颜色</param>
/// <returns>组合style</returns>
private MapInfo.Styles.CompositeStyle GetOpaqueStyle(OpaqueType

opaqueType,System.Drawing.Color borderColor)
{
 MapInfo.Styles.SimpleInterior simpleInterior;
 if(opaqueType==OpaqueType.ALL)
  simpleInterior= new MapInfo.Styles.SimpleInterior(); //缺省构造函数是白色实心
 else
  simpleInterior= new MapInfo.Styles.SimpleInterior(1); //0是线透明，1是面透明
 
 MapInfo.Styles.LineWidth lineWidth = new

MapInfo.Styles.LineWidth(1,MapInfo.Styles.LineWidthUnit.Point);

 MapInfo.Styles.SimpleLineStyle simpleLineStyle;
 if(opaqueType==OpaqueType.ALL)
  simpleLineStyle = new MapInfo.Styles.SimpleLineStyle(lineWidth);
 else if(opaqueType==OpaqueType.BORDER)
  simpleLineStyle = new MapInfo.Styles.SimpleLineStyle(lineWidth,2,borderColor); //2表示填充

透明，即能够显示轮廓
 else
  simpleLineStyle = new MapInfo.Styles.SimpleLineStyle(lineWidth,0); //0表示全部透明，即连轮

廓都看不到

 MapInfo.Styles.AreaStyle areaStyle = new

MapInfo.Styles.AreaStyle(simpleLineStyle,simpleInterior);

 MapInfo.Styles.CompositeStyle compositeStyle = new

MapInfo.Styles.CompositeStyle(areaStyle,null,null,null);
 
 return compositeStyle;
}

7 选择全部图元

MapInfo.Engine.Session.Current.Catalog.Search(
 table,
 MapInfo.Data.SearchInfoFactory.SearchAll(),
 MapInfo.Engine.Session.Current.Selections.DefaultSelection,
 MapInfo.Data.ResultSetCombineMode.Replace);

 
8 设置坐标系
缺省情况下，MapXtreme使用的CoordSys是经纬度投影（LongLat）和WGS84基准面。我想修改投影类型为

CoordSysType.TransverseMercator ，基准面为DatumID.Pulkovo1942
   MapInfo.Geometry.CoordSysFactory

coordSysFactory=MapInfo.Engine.Session.Current.CoordSysFactory;
   mapControl1.Map.SetDisplayCoordSys(coordSysFactory.CreateCoordSys("mapinfo:coordsys

8,1001,7,117,0,1,20500000,0"));
  
   coordSysFactory.CreateCoordSys("mapinfo:coordsys 8,1001,7,117,0,1,20500000,0") 默认的原点

是（B=0,L=117）,如果要把原点设在(23,117)应该怎么写这个字符串呢？
   coordSysFactory.CreateCoordSys("mapinfo:coordsys 8,1001,7,114,23,1,20500000,25000000")
  
9 保存新画的层为tab文件
下面的源码是新建一个永久表，然后在表中添加feature，然后保存为硬盘上的tab文件。

        private MapInfo.Data.Table CreateNewMapDataTable(string tableName)
        {
            //以下代码是建立永久表
           MapInfo.Data.TableInfoNative

tableInfoNative=newMapInfo.Data.TableInfoNative(tableName);
            tableInfoNative.TablePath=@"D:\DATA\"+tableName+".TAB";
           tableInfoNative.Columns.Add(MapInfo.Data.ColumnFactory.CreateIntColumn("ID"));
           tableInfoNative.Columns.Add(MapInfo.Data.ColumnFactory.CreateStyleColumn());
           MapInfo.Geometry.CoordSys coordSys =mapControl1.Map.GetDisplayCoordSys();
          

tableInfoNative.Columns.Add(MapInfo.Data.ColumnFactory.CreateFeatureGeometryColumn(coordSys)

);
           MapInfo.Data.Table table

=MapInfo.Engine.Session.Current.Catalog.CreateTable(tableInfoNative);

            //以下代码是建立临时表
//           MapInfo.Data.TableInfo tableInfo

=MapInfo.Data.TableInfoFactory.CreateTemp(tableName);          
//           tableInfo.Columns.Add(MapInfo.Data.ColumnFactory.CreateIntColumn("ID"));
//           MapInfo.Data.Table table

=MapInfo.Engine.Session.Current.Catalog.CreateTable(tableInfo);

            MapInfo.Mapping.FeatureLayer featureLayer =

newMapInfo.Mapping.FeatureLayer(table);
            this.mapControl1.Map.Layers.Add(featureLayer);
            return table;
        }

        private void AddFeaturesAndSave()
        {
           MapInfo.Styles.SimpleLineStyle simpleLineStyle =

newMapInfo.Styles.SimpleLineStyle(new

MapInfo.Styles.LineWidth(1,MapInfo.Styles.LineWidthUnit.Point));
           MapInfo.Styles.CompositeStyle compositeStyle =

newMapInfo.Styles.CompositeStyle(null,simpleLineStyle, null, null);
           MapInfo.Geometry.CoordSys coordSys =mapControl1.Map.GetDisplayCoordSys();

            MapInfo.Data.Table table = CreateNewMapDataTable("NewTable");
            MapInfo.Data.TableInfo tableInfo = table.TableInfo;
            while(……)
            {
               MapInfo.Data.Feature feature = newMapInfo.Data.Feature(tableInfo.Columns);

                feature.Geometry = ……
                feature.Style = ……
                feature["ID"] = ……
                table.InsertFeature(feature);
            }
            tableInfo.WriteTabFile(); //保存为.tab文件

            mapControl1.Refresh();
        }

10 计算缩放比例

/**//// <summary>
/// 重画控件时计算缩放比例
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
protected void mapControl1_Paint(object sender,PaintEventArgs e)
{
 MapInfo.Geometry.Distance zoomDistance=this.mapControl1.Map.Zoom;
 double zoom=Convert.ToDouble(Convert.ToInt32(zoomDistance.Value*16.09))/10;
 this.statusBar1.Text="缩放比例："+zoom.ToString()+" 千米";
}

MapInfo.Styles.SimpleVectorPointStyle vs = new MapInfo.Styles.SimpleVectorPointStyle();
MapInfo.Styles.CompositeStyle cs = new MapInfo.Styles.CompositeStyle(null, null, null, vs);      
Feature f = new Feature(pnt, cs);      
//MapInfo.Data.Key k = table.InsertFeature(f);

// 打开需要编辑的表
Table table = Session.Current.Catalog.OpenTable(@"C:\Map\CHCTY_2K.tab");
// 定义列集合 
Columns cols = new Columns();
cols.Add(ColumnFactory.CreateFeatureGeometryColumn(mapControl1.Map.GetDisplayCoordSys()));
cols.Add(ColumnFactory.CreateStringColumn("Place_Name", 40));
cols.Add(ColumnFactory.CreateStringColumn("Country", 40));
cols.Add(ColumnFactory.CreateStringColumn("Latitude", 20));
cols.Add(ColumnFactory.CreateStringColumn("Longitude", 20));
cols.Add(ColumnFactory.CreateStyleColumn());
// 定义图形特征
MapInfo.Geometry.FeatureGeometry fg = new MapInfo.Geometry.Point(mapControl1.Map.GetDisplayCoordSys(), new DPoint(pnt.X, pnt.Y)) as FeatureGeometry;
// 定义图形特征类型
MapInfo.Styles.SimpleVectorPointStyle vs = new MapInfo.Styles.SimpleVectorPointStyle(35, Color.Chocolate, 15);
MapInfo.Styles.CompositeStyle cs = new MapInfo.Styles.CompositeStyle(null, null, null, vs); 
string strLatitude;
string strLongitude;
this.TransformCoordSysToDMS(pnt.X, pnt.Y, out strLongitude, out strLatitude);
// 写入其他信息窗体
InformationForm infoForm = new InformationForm(strLongitude, strLatitude);
infoForm.ShowDialog();
// 为插入的记录付值
object[] sValue = new object[6]{fg, infoForm.Place_Name, infoForm.Country, infoForm.Latitude, infoForm.Longitude, cs};
Feature fe = new Feature(cols, sValue);
table.InsertFeature(fe);