摘要 本文介绍了在VC++实现的实时显示系统中，用OLE方式嵌入MapInfo矢量地图的编程方法，简要叙述了其实现过程。
一、 前言
电子地图应用作为一门新兴学科，已不仅限于地图制作中。本文利用VC++和OLE（Object Linking and Embedding, 对象连接和嵌入）编程技术，实现了实时信息在矢量地图背景上的显示。
程序应用于显示处理终端，接收并处理网络信息的部分在不同的系统中有不同的要求，这里不再赘述。
MapInfo矢量地图用图层方式进行存储和管理，每个图层对应地图上的一类要素（如居民地，水系，铁路，公路等），对于每个包含图形信息的图层，需要有4个文件（.dat, .tab, .map, .id）支持。
MapInfo地图允许嵌入一个地图窗口到任何能接受OLE对象的应用程序中。从服务器（如MapInfo）插入一个OLE对象到容器应用程序（如Microsoft Word），并在该应用程序中对这个对象进行处理。被嵌入的对象是来自服务器应用程序的对象的一个副本。对象一旦位于容器中，它将不再被链接到源对象。
在VC++应用程序中用OLE方式嵌入MapInfo进程，需定义了一个MapInfo对象（DMapInfo类），DMapInfo类在MapInfo类型库（Mapinfow.tlb）中定义。MapInfo软件提供了自己的编程语言MapBasic， VC++对地图进程的操作主要通过发送MapBasic命令来实现。
二、 创建程序框架
程序框架是用MFC实现的，MFC 应用程序向导（AppWizard）生成了大部分的代码，然后加入MapInfo进程。步骤如下：
1. 创建一个新项目，项目类型选择MFC AppWizard（exe），项目名称设为MapApp，其它按照提示进行设置即可。应用程序向导自动生成了三个类：
CmapAppApp 应用程序类
CmapAppDoc 文档类
CmapAppView 视图类
CmainFrame 主框架类
2. 添加MapInfo类型库
运行类向导，单击增加类按钮（Add Class …），选择"From a type library"，找到"Mapinfow.tlb"文件并打开，在"Confirm Classes"中选择"DMapInfo"类，单击OK确认输入并关闭对话框。现在MapApp应用程序中已添加了DMapInfo类，并增加了"mapinfow.h"和"mapinfow.cpp"两个源文件。
3. 用OLE方式嵌入MapInfo进程
在"mapApp.cpp"中CMapAppApp theApp语句下面加入下面的语句：
DMapInfo mapinfo; file://mapinfo对象
在CMapAppApp::InitInstance() 函数中增加OLE的初始化，代码如下：
程序清单1 MapApp.cpp文件
BOOL CMapAppApp::InitInstance()
{
if (!AfxOleInit()) file://OLE初始化
{ file://失败
AfxMessageBox("OLE失败!");
return FALSE;
}
if (!mapinfo.CreateDispatch("MapInfo.Application")) file://地图窗口处理进程
{ file://失败
AfxMessageBox("Failed to create MapInfo dispatch class!");
file://::MessageBox(0, mapinfo.GetFullName(), "Amazing!", MB_OK);
return FALSE;
}
/*本处省略MFC自动生成的代码*/
}
将"mapbasic.h"文件拷贝到本项目的目录中，在"stdafx.h"中增加以下代码，把mapinfo说明为全局变量：
#include "mapbasic.h"
#include "mapinfow.h"
extern DMapInfo mapinfo; file://全局变量,地图窗口对象
4. 显示地图窗口
为CmapAppView类增加地图窗口的标识和句柄变量，在MapAppView.h文件中添加如下代码：
unsigned long m_lWindowid; file://地图窗口标识
HWND m_hWindowHwnd; file://地图窗口句柄
打开类向导窗口，在Class Name下拉列表框中选择类CmapAppView，Object Ids列表框中选择CmapAppView，Messages列表框中选择OnInitialUpdate，单击Add Function为CmapAppView重载OnInitialUpdate()函数，然后在函数中添加显示地图窗口的代码。
程序清单2 MapAppView.cpp文件
void CMapAppView::OnInitialUpdate()
{
char str[256];
CView::OnInitialUpdate();
char str[256];
///创建航显底图
mapinfo.Do("Open Table \"F:\\Province.tab\" ReadOnly Interactive");
mapinfo.Do("Open Table \"f:\\Capitals.tab\" ReadOnly Interactive");
mapinfo.Do("Open Table \"f:\\China.tab\" ReadOnly Interactive");
sprintf(str,"Set Next Document Parent %lu Style 2 ",(long)(UINT)m_hWnd);
mapinfo.Do(str);//创建地图窗口
/*设置地图窗口的图层，由最上一层开始是中国疆域，各省疆域，省会城市，并标注上省会城市的名字*/
mapinfo.Do("Map From Capitals, Province, China");
mapinfo.Do("Set Map Layer 1 Label With Capital_Character_Name Parallel On Auto On Visibility On");
file://获取地图窗口的ID号和句柄
m_lWindowid = atol(mapinfo.Eval("WindowID(0)")); file://窗口ID
sprintf(str,"WindowInfo(0, %u)", WIN_INFO_WND); file://窗口HWND
m_hWindowHwnd = (HWND)atol(mapinfo.Eval(str));
file://调整地图窗口尺寸，将地图窗口放置在右半屏上
sprintf(str,
"Set Window %lu Position (8.3,0) Width 8.4 Height 6.05 ScrollBars Off SysMenuClose Off", m_lWindowid);
mapinfo.Do(str);
file://调整地图窗口视野和中心点
double m_dView_center_x=113.35; file://地图窗口中心点，经纬度
double m_dView_center_y=35.04;
double m_dView_zoom = 4000.0; file://地图窗口视野，"km"
sprintf(str,"Set Map Window %lu Zoom %lf Units \"km\" Center (%lf,%lf) XY Units \"degree\"", m_lWindowid,m_dView_zoom,m_dView_center_x,m_dView_center_y);
mapinfo.Do(str);//设置地图窗口中心点窗口视野
file://设置地图窗口漫游缩放的右键菜单
mapinfo.Do("Create Menu \"MapshellShortcut\" ID 17 as \"漫游\" calling 1702,\"缩小\" calling 1706, \"放大\" calling 1705 ,\"(-\"");
file://创建实时航迹显示图层
mapinfo.Do("Create Table plane (ID Integer) File \"f:\\plane.tab\" ");
mapinfo.Do("Create Map For plane");
sprintf(str,"Add Map Window %lu Layer plane Animate",m_lWindowid);
mapinfo.Do(str); file://实时航迹图层设置为快速刷新}
5. 编译运行软件，将屏幕显示分辨率设置为1600′1024，则在右半屏出现地图窗口。现在剩下的工作只是加入接收目标数据并转换为经纬度后进行实时显示，这里只给出同地图窗口有关的部分，假设正在不断接收目标数据，写入全局变量中，并向CmapAppView类发送消息，调用CmapAppView类的ShowMapLine()函数。在MapApp.cpp文件中添加全局变量定义：
double global_long;//经度
double global_lat;//纬度
double global_long_last;//上一点经度
double global_lat_last;//上一点纬度
unsigned long global_num; file://接收点计数
在MapApp.h文件中添加全局变量说明：
extern double global_long;//经度
extern double global_lat;//纬度
extern double global_long_last;//上一点经度
extern double global_lat_last;//上一点纬度
extern unsigned long global_num; file://接收点计数
在CmapAppView::OnInitialUpdate()函数的结束部分添加如下代码：
/////////////////定义mapinfo中所用的变量
mapinfo.Do("Dim obj1 As Object"); file://飞机图标点对象
mapinfo.Do("Dim Line1 As Object"); file://航迹线对象
global_num = 0; file://接收目标数据计数初始化为0
在CmapAppView:: ShowMapLine()函数代码如下：
程序清单3 MapAppView.cpp文件
void CMapAppView::ShowMapLine()
{
char str[256];
file://画飞机图标
double m_angle = COPI*atan2((global_lat - global_lat_last),
(global_long - global_long_last))-90;//目标角度
sprintf(str,
"Create Point Into Variable obj1 (%lf,%lf) Symbol (85,255,30,\"MapInfo Transportation\",0,%lf)",
global_long, global_lat, m_angle); file://设置飞机目标显示的样式
mapinfo.Do(str); file://创建目标图标对象
if (global_num >0 )
{/*收到的第一点，在plane表中插入第一条记录，后面的点都是更新第一条记录*/
sprintf(str,
"Update plane Set Obj = obj1 Where RowID = %lu",1);}
else {
sprintf(str,
"Inset Into plane (ID,Obj) Values (%lu,Line1) ", global_num);
}
mapinfo.Do(str);//用obj1对象更新表中的记录
file://画各设备的航迹
sprintf(str,
"Create Line Into Variable Line1 (%lf,%lf) (%lf,%lf) Pen MakePen(2,2,255)",
global_long_last, global_lat_last , global_long, global_lat);
mapinfo.Do(str);//创建line1对象
if (global_num >0 )
{//第一个点不画航迹
sprintf(str,"Fetch Last From plane");
mapinfo.Do(str);
file://插入line1到表中
sprintf(str,"Insert Into plane (ID,Obj) Values (%lu,Line1)",global_num);
mapinfo.Do(str);
}
global_num ++;
}
6. 编译运行软件，
要保存plane表，可在CmapAppView类的析构函数中添加下面的代码：
程序清单4 MapAppView.cpp文件
CMapAppView::~CMapAppView()
{
char str[256];
if (m_hWindowHwnd) file://地图窗口存在
{
sprintf(str,"Close Window %lu",m_lWindowid);
mapinfo.Do(str);
m_hWindowHwnd = NULL;
m_lWindowid = 0L;
mapinfo.Do("Commit Table plane");//保存实时航迹表
}
}
左屏显示内容的构造，可根据各软件系统的要求，显示数据，图表等，由VC++编程实现。
三、 其它说明
上面程序清单2中
sprintf(str,"Add Map Window %lu Layer plane Animate",m_lWindowid);
语句中的Animate属性一定要有，这表示将plane图层设置为动态（Animate）图层，每个地图窗口只能有一个动态图层，当这个图层上的对象变化时，地图窗口只刷新此图层，以便可以实现快速刷新。
在应用OLE技术嵌入地图窗口的应用中，还可根据需要加入多种工具，用于地图信息的修改和查询，如标尺窗口，信息窗口，图层控制，图层选择编辑等，但在实时接收数据并显示的状态下，有些功能的使用将会导致访问冲突，以致程序出错，如图层控制、图层编辑等，原因是实时数据正在对plane表进行编辑，此时再改变其它图层，就与mapInfo一次只能编辑一个图层的原则产生了冲突。
……