锐客网

  1. 首页 > 睿知 > it技术 > >

go语言mapinfo go语言和java哪个更有前途( 三 )

IT技术制新


通过设置Map对象的DisplayCoordSys和NumericCoordSys属性返回的CoordSys对象 ， 就可设定地图显示坐标系和内部计算坐标系 。举例如下：
procedure TMain.DefineMapParam();
var
MapDatum: Variant;//地球基准面
begin
try
MapDatum := CreateOleObject('MapX.Datum.4'); //建立基准面对象
//定义北京54坐标系基准面
// (Ellipsoid, ShiftX, ShiftY, ShiftZ, RotateX, RotateY, RotateZ, ScaleAdjust, PrimeMeridian)
MapDatum.set(3, 24, -123, -94, -0.02, 0.25, 0.13, 1.1, 0);
//定义北京54坐标系经纬度作为内部计算坐标系
Map1.NumericCoordSys.Set_(1, MapDatum);
//定义北京54坐标系30度标准纬线麦卡托投影作为显示坐标系,单位为米
Map1.DisplayCoordSys.Set_(26,MapDatum,7,0,0,30);
finally
VarClear(MapDatum);
end;
坐标系是GIS系统的基石，正确设置坐标系是系统成败的关键 。
3. 操纵地图对象
你可以简单地加载一个GeoSet文件，给Layers对象集合赋予具体的内容，随之在Map对象中就能看到地图显示 ， GeoSet文件类似MapInfo中的工作空间，MapX中带有Geoset文件的编辑器GeosetMangater.exe，用户可在编辑器中组合及设置图层，然后保存生成一个 *.gst 文件直接调入Map对象，这样可以节省时间 。你也可以通过Layers对象的Add 或 Remove 方法添加或移走地图图层，如：
Map.layers.Add(FileName); // 添加图层，FileName为文件全路径名
Map.Layers.Remove(3); // 移走地图第三层
Layers对象由一组Layer对象组成，通过Layer对象的Features和Selection对象集合你可以操纵和选择图层上的图形目标 ， 如：
Map.Layers.Item(1).AddFeature(Newobj); //将新建对象Newobj添加到图层一
4. 地图数据捆绑
数据捆绑是将不同来源的数据对应到地图层的过程，捆绑结果会产生一个Dataset对象，Dataset对象的集合组成Datasets Collection ， 它定义了Map对象的数据集属性 。你可以通过Datasets将不同来源的数据捆绑到地图上实现图文互动，或创建专题图，如下例ODBC Access数据的捆绑及专题分析：
procedure TMapForm.ODBC1Click(Sender: TObject);
var
param: ODBCQueryInfo ;
ds: Dataset; //定义数据集
Datafields: Fields; //定义数据域
begin
param.SqlQuery := 'select * from China'; //选择Access数据库中的China表
param.DataSource := 'MapChina'; //ODBC 数据源名
param.ConnectString := 'ODBC;'; //或是user = ... Pwd = ... , 定义ODBC连接
Datafields.Add('GEONAME','GEONAME', miAggregationAuto,miTypeString); //添加数据域GEONAME
Datafields.Add('POPU','POPU', miAggregationAuto,miTypeNumeric); //添加数据域POPU
//将Access数据捆绑到Mapinfo China表
ds := Map.Datasets.Add(miDataSetODBC, param, unassigned, unassigned, unassigned, 'CHINA', Datafields, unassigned);
ds.Themes.Add(miThemeRanged, 'POPU', 'MyTheme'); //添加一个范围专题图
end;
5. 建立客户定制工具
你还可以定制自己的地图操作工具，下面通过定制一个名为Info的信息按钮工具简述方法步骤：
(1)定义客户工具常量
Const CUSTOM_INFO_TOOL = 1
(2)利用Map对象的CreateCustomTool方法定义客户工具，方法为：
CreateCustomTool (ToolNumber, Type, Cursor, [ShiftCursor] , [CtrlCursor], [InfoTips])
其中ToolNumber为工具号，即上面定义的常量；Type为工具类型；Cursor为光标形状，其他参数可选 。
//定义Info工具为十字光标点触发工具
Map.CreateCustomTool(CUSTOM_INFO_TOOL, miToolTypePoint, miCrossCursor, miArrowCursor, miArrowCursor, unassigned)
(3)在Map对象事件ToolUsed中编写工具的Handler(操作内容)
procedure TMain.MapToolUsed(Sender: TObject; ToolNum: Smallint; X1, Y1, X2, Y2, Distance: Double;

推荐阅读


上一篇：cpu风扇不紧是什么原因，cpu风扇不稳定

下一篇：关于pac设置https代理的信息