C# Code:
复制内容到剪贴板
代码:
MapInfo.Data.SpatialSchemaXY miSpS = new MapInfo.Data.SpatialSchemaXY();
MapInfo.Geometry.CoordSysFactory miCF = new MapInfo.Geometry.CoordSysFactory();
String mbCoordSys;
TableInfoServer ti = new TableInfoServer("StateCapXY", "DSN=sqlserver;Database=georgetown;UID=iWD=i","Select * from table1",MapInfo.Data.ServerToolkit.Odbc);
miSpS.XColumn = "xcoord";
miSpS.YColumn = "ycoord";
mbCoordSys = "CoordSys Earth Projection 1, 0";
miSpS.CoordSys = miCF.CreateFromMapBasicString(mbCoordSys);
ti.SpatialSchema = miSpS;
ti.Temporary = true;
MapInfo.Data.Table StateCapXY = Connection.Catalog.OpenTable(ti);
mapControl1.Map.Load(new MapTableLoader(StateCapXY ));
FeatureLayer _lyr = mapControl1.Map.Layers["StateCapXY"] as FeatureLayer;
MapInfo.Styles.BitmapPointStyle _bitmapSymbol = new MapInfo.Styles.BitmapPointStyle ();
MapInfo.Styles.CompositeStyle cs =new MapInfo.Styles.CompositeStyle();
String bitMapPath = "C:\\Program Files\\MapInfo\\mapx 5.0\\CUSTSYMB";
MapInfo.Styles.StyleRepository styleRepository = MapInfo.Engine.Session.Current.StyleRepository;
MapInfo.Styles.BitmapPointStyleRepository bmpPointStyleRepository = styleRepository.BitmapPointStyleRepository bmpPointStyleRepository.Reload(bitMapPath);
_bitmapSymbol.Name = "AMBU1-32.BMP";
_bitmapSymbol.PointSize = 6;
cs.SymbolStyle = _bitmapSymbol;
MapInfo.Mapping.FeatureOverrideStyleModifier fsm =new MapInfo.Mapping.FeatureOverrideStyleModifier("a",cs);
_lyr.Modifiers.Append(fsm);
VB Code:
复制内容到剪贴板
代码:
Dim miSpS As MapInfo.Data.SpatialSchemaXY = New MapInfo.Data.SpatialSchemaXY
Dim miCF As MapInfo.Geometry.CoordSysFactory = New MapInfo.Geometry.CoordSysFactory
Dim mbCoordSys As String
Dim ti As TableInfoServer = New TableInfoServer("StateCapXY", "DSN=sqlserver;Database=georgetown;UID=saWD=zackary", "Select * from tester5", MapInfo.Data.ServerToolkit.Odbc)
miSpS.XColumn = "xcoord"
miSpS.YColumn = "ycoord"
mbCoordSys = "CoordSys Earth Projection 1, 0"
miSpS.CoordSys = miCF.CreateFromMapBasicString(mbCoordSys)
ti.SpatialSchema = miSpS
ti.Temporary = True
Dim Connection As New MapInfo.Data.MIConnection
Connection.Open()
Dim StateCapXY As MapInfo.Data.Table = Connection.Catalog.OpenTable(ti)
MapControl1.Map.Load(New MapTableLoader(StateCapXY))
Dim _lyr As FeatureLayer = MapControl1.Map.Layers.Item("StateCapXY")
Dim _bitmapSymbol As MapInfo.Styles.BitmapPointStyle = New MapInfo.Styles.BitmapPointStyle
Dim cs As MapInfo.Styles.CompositeStyle = New MapInfo.Styles.CompositeStyle
Dim bitMapPath As String = "C:\Program Files\MapInfo\mapx 5.0\CUSTSYMB"
Dim styleRepository As MapInfo.Styles.StyleRepository = MapInfo.Engine.Session.Current.StyleRepository
Dim bmpPointStyleRepository As MapInfo.Styles.BitmapPointStyleRepository = styleRepository.BitmapPointStyleRepository
bmpPointStyleRepository.Reload(bitMapPath)
_bitmapSymbol.Name = "AMBU1-32.BMP"
_bitmapSymbol.PointSize = 18
cs.SymbolStyle = _bitmapSymbol
Dim fsm As MapInfo.Mapping.FeatureOverrideStyleModifier = New MapInfo.Mapping.FeatureOverrideStyleModifier("a", cs)
_lyr.Modifiers.Append(fsm)
复制内容到剪贴板
代码:
MapInfo.Data.SpatialSchemaXY miSpS = new MapInfo.Data.SpatialSchemaXY();
MapInfo.Geometry.CoordSysFactory miCF = new MapInfo.Geometry.CoordSysFactory();
String mbCoordSys;
TableInfoServer ti = new TableInfoServer("StateCapXY", "DSN=sqlserver;Database=georgetown;UID=iWD=i","Select * from table1",MapInfo.Data.ServerToolkit.Odbc);
miSpS.XColumn = "xcoord";
miSpS.YColumn = "ycoord";
mbCoordSys = "CoordSys Earth Projection 1, 0";
miSpS.CoordSys = miCF.CreateFromMapBasicString(mbCoordSys);
ti.SpatialSchema = miSpS;
ti.Temporary = true;
MapInfo.Data.Table StateCapXY = Connection.Catalog.OpenTable(ti);
mapControl1.Map.Load(new MapTableLoader(StateCapXY ));
FeatureLayer _lyr = mapControl1.Map.Layers["StateCapXY"] as FeatureLayer;
MapInfo.Styles.BitmapPointStyle _bitmapSymbol = new MapInfo.Styles.BitmapPointStyle ();
MapInfo.Styles.CompositeStyle cs =new MapInfo.Styles.CompositeStyle();
String bitMapPath = "C:\\Program Files\\MapInfo\\mapx 5.0\\CUSTSYMB";
MapInfo.Styles.StyleRepository styleRepository = MapInfo.Engine.Session.Current.StyleRepository;
MapInfo.Styles.BitmapPointStyleRepository bmpPointStyleRepository = styleRepository.BitmapPointStyleRepository bmpPointStyleRepository.Reload(bitMapPath);
_bitmapSymbol.Name = "AMBU1-32.BMP";
_bitmapSymbol.PointSize = 6;
cs.SymbolStyle = _bitmapSymbol;
MapInfo.Mapping.FeatureOverrideStyleModifier fsm =new MapInfo.Mapping.FeatureOverrideStyleModifier("a",cs);
_lyr.Modifiers.Append(fsm);
VB Code:
复制内容到剪贴板
代码:
Dim miSpS As MapInfo.Data.SpatialSchemaXY = New MapInfo.Data.SpatialSchemaXY
Dim miCF As MapInfo.Geometry.CoordSysFactory = New MapInfo.Geometry.CoordSysFactory
Dim mbCoordSys As String
Dim ti As TableInfoServer = New TableInfoServer("StateCapXY", "DSN=sqlserver;Database=georgetown;UID=saWD=zackary", "Select * from tester5", MapInfo.Data.ServerToolkit.Odbc)
miSpS.XColumn = "xcoord"
miSpS.YColumn = "ycoord"
mbCoordSys = "CoordSys Earth Projection 1, 0"
miSpS.CoordSys = miCF.CreateFromMapBasicString(mbCoordSys)
ti.SpatialSchema = miSpS
ti.Temporary = True
Dim Connection As New MapInfo.Data.MIConnection
Connection.Open()
Dim StateCapXY As MapInfo.Data.Table = Connection.Catalog.OpenTable(ti)
MapControl1.Map.Load(New MapTableLoader(StateCapXY))
Dim _lyr As FeatureLayer = MapControl1.Map.Layers.Item("StateCapXY")
Dim _bitmapSymbol As MapInfo.Styles.BitmapPointStyle = New MapInfo.Styles.BitmapPointStyle
Dim cs As MapInfo.Styles.CompositeStyle = New MapInfo.Styles.CompositeStyle
Dim bitMapPath As String = "C:\Program Files\MapInfo\mapx 5.0\CUSTSYMB"
Dim styleRepository As MapInfo.Styles.StyleRepository = MapInfo.Engine.Session.Current.StyleRepository
Dim bmpPointStyleRepository As MapInfo.Styles.BitmapPointStyleRepository = styleRepository.BitmapPointStyleRepository
bmpPointStyleRepository.Reload(bitMapPath)
_bitmapSymbol.Name = "AMBU1-32.BMP"
_bitmapSymbol.PointSize = 18
cs.SymbolStyle = _bitmapSymbol
Dim fsm As MapInfo.Mapping.FeatureOverrideStyleModifier = New MapInfo.Mapping.FeatureOverrideStyleModifier("a", cs)
_lyr.Modifiers.Append(fsm)
发表评论
-
mapxtreme添加标记和删除标记
2009-03-30 16:23 1786新增2个pointselectiontool, clientc ... -
MapXtreme 2005自定义图层控制代码(WEB)
2009-03-30 16:21 1549虽然MapXtreme 2005 6.7.1提供了图层控制的控 ... -
MapxTreme测试:绘制图标和文字标注
2009-03-30 16:19 3651代码: using System; using System ... -
mapxtreme 2004 改变feature颜色
2009-03-30 16:18 15471.C# code: 复制内容到剪贴板 代码: MapI ... -
MapxTreme2005地图打印
2009-03-30 16:18 1184MapxTreme2005地图打印 一、语言: c# net2 ... -
在C#应用中如何读取存在ORACLE(或SQL Server)中的MapInfo表
2009-03-30 16:17 1212using MapInfo.Data; ... -
MapXtreme 2005查找图元方法,web的
2009-03-30 16:16 1754先添加一个TextBox和 DropDownList控件 复 ... -
MapXtreme点取地图获得信息
2009-03-30 16:15 1864拖一个pointselectiontool到页面, 修改属性 ... -
MapXtreme查看整个地图的代码
2009-03-30 16:14 900Map map = mapControl1.Map; IMap ... -
MapXtreme 2005 鹰眼源代码
2009-03-30 16:13 1756研究了一段时间的MapXtreme2005 v6.6, 实现了 ... -
实现手动画线
2009-03-30 16:12 1203为了实现在地图上手动画线的功能,煞费了一翻苦心,不过最后实现的 ... -
Web页面中实现鼠标中键缩放
2009-03-30 16:11 1500在MapXtreme 2005中,在Windows应用程序中自 ... -
两种方法实现动态轨迹
2009-03-30 16:11 1344在GIS中,动态轨迹的实现是非常有用的,可用GPS定位,热点跟 ... -
总结查找图元的三种方法
2009-03-30 16:10 1230在MapXtreme 2005中,查找图元提供了非常多的方法, ... -
添加标注图层
2009-03-30 16:08 1152在MapXtreme 2005中添加标注图层是非常容易的,只要 ... -
向图层中添加线段
2009-03-30 16:07 914向图层中添加线段和向图层中添加点是一样的,其本质都是向图层中添 ... -
向图层中添加点
2009-03-30 16:06 998在添加点之前先要在地图上创建一个临时图层,创建临时图层请参考《 ... -
mapxtreme2005 改变选中的图元样式
2009-03-30 16:05 1054MapInfo.Styles.CompositeStyle c ... -
Mapxtreme2005 两点之间画直线
2009-03-30 16:04 1111private void DrawLine(MapInfo.D ... -
mapxtreme2005 创建各种样式
2009-03-30 16:04 1101public MapInfo.Styles.Composite ...
相关推荐
在参考其他人的东西基础上,添加了一些常用的转换格式.可批量转换,使用excel,可直接导入数据库
项目里有两页。 webForm1.aspx,addmapPoint.aspx webForm1.aspx 从数据库得到datatable数据,传递给页面js函数。通过百度js aspi 生成页面地图。...后台可得到经纬度数据,通过自己的ado访问数据库,添加数据。
说明:数据库采用mysql,在数据库中添加经纬度和地点信息后,在模拟器或者真机中输入对应的经纬度,就能准确显示地点,并进行签到。 LBS_FOR_SISE功能简介: LBS_FOR_SISE是一款地理位置服务软件,此软件运行于...
说明:数据库采用mysql,在数据库中添加经纬度和地点信息后,在模拟器或者真机中输入对应的经纬度,就能准确显示地点,并进行签到。 LBS_FOR_SISE功能简介: LBS_FOR_SISE是一款地理位置服务软件,此软件...
自制中国各区县经纬度查询工具1. 引言1.1 问题描述1.2 基本思路2. 获取全国市区县的名称... 数据库测试4.1 随机检测数据的选取与字段处理4.2 匹配数据4.3 自动发送邮件5. 程序运行窗口搭建5.1 程序试错5.2 功能添加6.
4.保存位置:添加后的标注可以将文本标签和经纬度添加到数据库。 5.查看位置:点击表中的查看,定位到该名称的位置。 6.删除:删除该标注信息。 注意:js文件中有一处刷新当前页面功能 需要删掉 本项目运行在搜狗...
本工程数据库采用sqlite db,数据库中存储的摄像头是我本地局域网上的摄像头,可以手动更改数据库的设备信息,也可以通过界面右键菜单删除设备,后重新创建设备。软件功能有:可通过右键菜单:创建组、删除组、...
本工程数据库采用sqlite db,数据库中存储的摄像头是我本地局域网上的摄像头,可以手动更改数据库的设备信息,也可以通过界面右键菜单删除设备,后重新创建设备。软件功能有:可通过右键菜单:创建组、删除组、...
在系统实现中,用户可以通过登录页面进行注册或登录操作,管理员可以对图书进行管理,包括添加、删除、修改等操作。用户可以根据自己的需求选择合适的图书进行借阅,并填写相关信息。系统会根据用户的位置信息和历史...
改:可以改变城市间的关系以及城市本身的信息,例如站点开关,站点经纬度等。查:利用无向图位权图之间的查询方法,可以找到最短路径、最优价格方案、以及城市间所有的路线关系。显示:采用图形界面与用户交互,通过...
GeoIP2库提供了一组API,可以方便地查询IP地址的地理位置信息,如国家、城市、经纬度等。 以下是使用Ruby解析AWDB离线库的基本步骤: 1. 下载AWDB离线库文件(通常以.mmdb为后缀)。 2. 安装GeoIP2库,可以通过在...
管理员在web端登录后台后可以管理所有用户信息,可以添加管理课程信息包括课程的课程名称,上课日,上课时间,下课时间,上课地点,wifi的ssid信息,签到规则有定位签到、wifi签到、定位和wifi签到,可以添加管理...
Mysql配置在dbconfig.properties,修改成自己数据库的password,建表脚本在sql文件夹中, 在QueryController.java中查找'ak='\uff0c\u5728\u5176\u540e\u6dfb\u52a0\u81ea\u5df1\u7684Baidumap Key\uff0c\u4e5f\u53...
在项目中,根目录中有一个名为data.mongo的文件,它是纯文本文件,并且有一些文档要添加到mongodb中。 最后,在创建数据库“ mydb”和集合“ places”之后,您应该创建一个“ 2DSPHERE”索引,以使mongo正常运行。 ...
首先,要么更新数据库,要么将其添加到每种模型的迁移中: $ table -> double ( 'longitude' ); $ table -> double ( 'latitude' ); 最后在模型中使用: use Geographical ; 1.距离 找到距特定位置的表格中...
├─10、课程:进阶数据类型(上).6、经纬度.mp4 ├─10、课程:进阶数据类型(上).7、数据表达格式.mp4 ├─10、课程:进阶数据类型(上).8、世界地图(一).mp4 ├─10、课程:进阶数据类型(上).9、世界地图...
Esri投影引擎(PE)库处理坐标参考系统及其投影和转换,并提供许多支持功能,例如计算距离和面积,在经纬度表示法之间转换,从/向知名对象导入/导出对象文本(WKT)字符串,从/向知名ID(WKID)值转换等。...
django-restful框架写的服务,原生js开发前端页面,可...批量上传围栏信息,地图上提取多边形区域经纬度;可以通过拉拽添加点的形式添加边的数量;可判断marker是否在多边形区域区域内;,超出区域后邮件报警;有详细的数据解析
此Laravel 5库可创建实际的100%真实地址,并提供完整的地址详细信息和经纬度坐标。使用Google Maps API,可以使用RealAddress类创建这些地址,并且还支持Faker,因此您可以在数据库中使用RealAddress播种! 安装 ...