GPS软件应用 用VC开发Mapinfo程序

开发环境：VC + MapInfo Professional

代码：

所用软件：Mapinfo,MapBasic,VC++6.0
先装Mapinfo,后装MapBasic.不装mapinfo,MapBasic不能运行。

Drew学习Mapinfo, MapBasic.的主要参考资料：

MapInfo Professional User's Guide

MapInfo MapBasic 7.0 User's Guide

MapInfo MapBasic Reference Guide v7.0 (PDF 7.1 MB)

打开Mapinfo,打开一个.tab或.wor文件，有些例子文件在Mapinfodata中。.tab文件是图层文件，不同的图层有不同的定义。一般一个图有几个图层组成。同时打开相关的几个图层，选择打开.wor文件就行了。.tab文件仅含有图层的结构信息，如姓名，年龄...。这些项行和列的数据在和它相同名称的其它四个文件里，如xxx.DAT,xxx.ID,xxx.MAP,xxx.IND。用WindowNew brower window可以看到表的结构和数据。

在options菜单中打开show Mapbasic window窗口,可以看到在mapinfo中操作所对应的mapbasic命令。如由MapInfo中打开china.tab文件，则相应的MapBasic命令显示在Mapbasic window里
Open Table D:aachina.TAB Interactive Map From plane

如果把上述命令copy到mapbasic window里，打回车，又重复了刚刚的菜单命令。

好了，再看一下MapBasic程序。打开MapBasic,FileNew新建一个空白.MB文件，将上两行代码放进去，运行projectcompile the current file,存储后，显示对话框 Compiled:xxx.MBX,No Eorrors:Compilation Successful. 编译成功。选择projectrun,你会看到这个china.tab文件被打开，和刚才在MapInfo中用菜单打开的结果一摸一样。mapbasic不复杂吧：）

当然能用拿手的VC来编程就更好了。
下面来试试用VC++程序编程打开这个文件吧。

VC和Mapinfo的接口，可以参考文章：

下面是用VC编程打开文件的代码：

sprintf(str,Set Next Document Parent %lu Style 1 ,(long)(UINT)m_hWnd);
mapinfo.Do(str);//创建地图窗口

mapinfo.Do(Open Table D:aajapanJPN1RAIL Map From JPN1RAIL);//打开地图

=======================================================================

MapInfoMapBasicSamplesMFC中的两个文件。提供了VC下编写mapinfo程序的例子findzip和mdimfc

 

要编程解决的问题是：

1，从Mapinfo读取节点或数据坐标信息。
2，基于这些信息，进行算法计算。
3，将算法计算结果在Mapinfo地图上显示出来。

如何从地图中读取坐标信息。可是查了图层文件，除了有些表示X,Y坐标外，没有类似线段长度，端点坐标的信息。

Object的概念。

Line Object简单，终点起点。polyline 和 Region复杂一些.其中polyline非常有用，因为它主要定义的是道路信息。

一般的polyline定义的信息有一个polyline Object有line segments和line

sections组成。属性有节点数，长度，节点坐标，segment数和section数。这些可以在MapInfo中用鼠标双击图中的Object查到。

和Object相关的Table表信息的查询，可选择mainInfo按钮，用鼠标单击图中的Object查到和这个Object有关的table信息。查询Table表中的

所有信息用菜单WindowsNew Brower Window.

图形Object的这些信息和table表无关，只和物理图形有关，有图形不一定有table表，但一定有Object。table 是独立于图形以外的，用户可

以添加，删除等操作，不影响图。

1，从Mapinfo读取节点或数据坐标信息。可采用3种办法：

.mif/mid文件中读取。在mapinfo中选export file,把地图中的数据信息输出到mif/mid文件中。在程序中打开mif文件读取。可以得到如线段起始和终点坐标等等.

主要是C语言对文件操作。

　

从地图table表直接读取，读取表中的数据一般用FetcH。具体操作如下：

1. Use a Fetch statement to specify which row in the table you want to query.
This action sets which row is current.
2. Use a table-reference expression (e.g. tablename.columnname) to access a
specific column in the current row.
For example, the following program reads the contents of the Country column from
the first row of the World table:
Dim s_name As String
Open Table ”world” Interactive
Fetch First From world
s_name = world.Country

MapBasic例子程序:读表中FROMLEFT一项的数据

Include MAPBASIC.DEF

Dim s_name As Integer

Open Table D:aastreetonhalts1
Map From onhalts1

Dim i,counter As Integer
Fetch First From onhalts1
Do While Not EOT(onhalts1)
s_name = onhalts1.FROMLEFT
Print The name: + s_name
i = i + 1
Fetch Next From onhalts1
Loop

Print Number of undeleted records:  + i

读Object信息。
MapBasic程序：读出Object的节点坐标，长度，segment数。
Include MAPBASIC.DEF
Dim table_OBJ As String
table_OBJ = JPN1RAIL.obj

Dim geogr_length As Float,
x1,y1,x2,y2 As Float
Open Table D:aajapanJPN1RAIL
Map From JPN1RAIL
Dim i,counter As Integer
i = 0
Fetch First From JPN1RAIL
Do While Not EOT(JPN1RAIL)

'counter = ObjectInfo(JPN1RAIL.obj, OBJ_INFO_NPNTS)
counter = ObjectInfo(JPN1RAIL.obj, OBJ_INFO_NPOLYGONS)

x1 = ObjectNodeX(JPN1RAIL.obj, 1, 1) ' read longitude
x2 = ObjectNodeX(JPN1RAIL.obj, 1, ObjectInfo(JPN1RAIL.obj, 20)) ' read longitude
y1 = ObjectNodeY(JPN1RAIL.obj, 1, 1) ' read latitude
y2 = ObjectNodeY(JPN1RAIL.obj, 1, ObjectInfo(JPN1RAIL.obj, 20)) ' read latitude

geogr_length = ObjectLen(JPN1RAIL.obj, km)
Print The length: + geogr_length+x1:+ x1+y1:+y1
'Print The length: + geogr_length+Counter:+ counter

i = i + 1
Fetch Next From JPN1RAIL

Loop
Print Number of undeleted records:  + i

===========================================================
float geogr_length;
int nPolygons,Segment,node_Num;
CString strCommand;

mapinfo.Do(Dim i As Integer);

sprintf(str,Fetch First From %s,Table_name);
mapinfo.Do(str);

num=493;
for(int i=0;i{
sprintf(str,ObjectInfo(%s,20),Table_obj);
node_Num = atoi (mapinfo.Eval(str));//OBJ_INFO_NPNTS
sprintf(str,ObjectInfo(%s,21),Table_obj);
Segment = atoi (mapinfo.Eval(str));//OBJ_INFO_NPOLYGONS

sprintf(str,ObjectNodeX(%s,1,1),Table_obj);
x1[i] = (float)atof(mapinfo.Eval(str));
sprintf(str,ObjectNodeY(%s,1,1),Table_obj);
y1[i] = (float)atof(mapinfo.Eval(str));

sprintf(str,ObjectNodeX(%s,1,ObjectInfo(%s, 20)),Table_obj,Table_obj);
x2[i] = (float)atof(mapinfo.Eval(str));

sprintf(str,ObjectNodeY(%s,1,ObjectInfo(%s, 20)),Table_obj,Table_obj);
y2[i] = (float)atof(mapinfo.Eval(str));

geogr_length = atof( mapinfo.Eval(ObjectLen(JPN1RAIL.obj, km) ));
sprintf(str,Fetch Next From %s,Table_name);
mapinfo.Do(str);
}
mapinfo.Do(Print Number of undeleted records:  + i );

Fetch First From world
Note world.obj

counter = ObjectInfo(CHINAHWY.obj, OBJ_INFO_NPNTS)表示一个多边形有多少个点（segment+section）。

ObjectNodeX(xxx.obj, 1, counter)

一个polyline Object有line segments 和line sections组成。属性有节点数，长度，节点坐标，segment数和section数。
用函数counter = ObjectInfo(JPN1RAIL.obj, OBJ_INFO_NPOLYGONS)
ObjectNodeX(JPN1RAIL.obj, 1, 1) ' read x
ObjectNodeY(JPN1RAIL.obj, 1, 1) ' read y
ObjectLen(JPN1RAIL.obj, km)
等求出。