Ⅰ 有一个VB和mapinfo的问题
如果你是在做MapInfo嵌入自动化编程的话，可以实现。
但是看你问的意思，大概只是简单的OLE链接编程，这样是实现不了你的目的。
要说的话非常复杂，没法说清。最好看看书，或者直接去找源代码回来改改，会很快。
推荐一本书，名字叫做《MapInfo地理信息系统二次开发实例》，电子工业出版社的。这本书带光盘，里面有源代码，你考一个，稍微改一改就能实现你要的功能，照我说的做，代码考我下面写的2句就可以。
首先在你打开的工作空间(wor文件)里加入你已经做好的表，注意，只是打开，但是不添加到地图窗口里面。
在你的commandbutton里面加入如下代码：
Tablename= Text1.Text & "到" & Text2.Text
MapInfo.do "Add Map Layer """ & TableName & """" ------这个语句是自动加上图层而且放在最上层。
或者你告诉我一个信箱，我把代码发给你
已经做好了，我的信箱是[email protected]。你给我发信。
Ⅱ VB如何调用mapinfo
首先要购买mapinfo runtime版。其中提供了控件，放在form上可以显示图形；另有很多组件（.dll），在VB中引用，然后调用其中的方法完成诸如绘图、放大、缩小等功能。
Ⅲ vb调用VC回调函数的问题，会出现内存错误是什么回事
Public Function SetCallBack_WhiteList(ByRef Rect As tagWhiteListCallBack) As Integer
在VB里定义的回调函数和VC里的回调函数完全不一致，作为函数指针参数传给TPE_SetCallBack_WhiteList当然会有问题。
VC里的返回值是int，VB里应该定义成Function... As Integer,不是Sub。
我不知道tagWhiteListCallBack是个什么类型的，在VC里的回调函数是个tagWhiteListCallBack的指针，但在VB里使用的却是ByVal As Double?
基础知识很弱，有理由怀疑程序里还有其他错误，10个错误，排除了9个，程序还是一堆不能运行的代码。譬如，VB、VC切换时留心过__stdcall和__cdecl吗？VC默认使用__cdecl的，VB是__stdcall。小地方的区别需要十分当心。
说话不中听，没有恶意，只是觉得楼主做东西操之过急。
=====================================================================
不是这个理。这句话也是需要推敲的。
已经说了，程序可能不止1,2个错误。改正了第一个错误后，程序因为第二个错误，依然无法顺利运行，但不能因此说第一个错误没改正对。于是，把第一个错误又恢复原样，再修改第二个错误，改正后，程序因为第一个错误又无法运行了，是不是还要判断第二个错误没改正对？
其实，这是一种很简单的逻辑思维，和计算机无关，楼主的理科学得可好？
Ⅳ 怎么用delphi7.0操作mapinfo电子地图（急）
摘要：本文以Delphi应用程序为例，比较详细的介绍了如何利用OLE自动化技术集成开发MapInfo应用程序。介绍了OLE调用、回叫等功能的使用方法。最后，以一个例子说明了如何在实际应用程序中用到本文所讲的方法。
关键词：OLE自动化；MapInfo；地图集成化
1 概述
MapInfo Professionnal 6.0是美国MapInfo公司开发的一种桌面地理信息系统开发平台，因为它小巧玲珑、易学易用，同时对空间数据具有强大的采集、存贮、分析等功能，所以成为世界上最为流行的桌面地理信息系统。目前利用MapInfo开发应用程序主要有三种方式。分别是单纯利用MapBasic开发、利用可视化编程工具集成二次开发和利用MapX开发。
在这三种方法中，单纯MapBasic编程由于缺乏可视化编程环境的支持，开发周期过长而较少采用，后两种是实际应用中比较常用的方法。
利用MapX开发的应用程序因为不需要后台MapInfo的支持，所以运行速度快，小巧灵活，是目前比较流行的开发方法，然而MapX并没有实现所有的MapInfo功能，而且其生成和编辑地图的能力尚有欠缺。相信随着更高版本的MapX的推出，这种开发方法将会越来越流行。
利用可视化编程工具集成开发是在前台利用可视化编程工具（VC、VB、Delphi等）开发与地理信息功能无关的用户界面，在涉及到地理信息功能时在后台调用MapInfo。实际上是将地图窗口集成到其它编程语言开发的应用程序中，用其它编程语言通过向MapInfo传送命令来控制MapInfo。这种方法能随心所欲制造出美观友好的界面并且能实现几乎所有的MapInfo功能，尤其是需要在原有成熟的应用系统中增加地理信息管理功能时，这种方法是非常有效的。
2 OLE调用方法介绍
应用程序向MapInfo传送命令主要通过有两种途径：
一种是利用DDE技术建立MapInfo和应用程序之间的通信。DDE会话是两个Windows应用程序交换信息的过程。只有当两个支持DDE的应用程序运行时，它们之间才可以进行DDE会话。在一个会话中，只有一个应用程序是主动的，成为客户，被动的应用程序成为服务器。实际运行时，MapInfo充当服务器的角色，被客户应用程序调用。
另一种向MapInfo传送命令的方法是OLE自动化技术。MapInfo允许其他支持OLE功能的应用程序把MapInfo作为一个对象加以调用，MapInfo作为一个OLE服务器向其他应用程序提供它的对象，而客户应用程序则使用它的对象，其他应用程序通过调用OLE自动化对象的方法、属性来操作MapInfo。
实际应用中，利用OLE是较为常用的方法，因为它比DDE稳定可靠，同时它还能报告MapInfo的运行错误，而DDE不能获取MapInfo的错误代码。本文主要讨论基于OLE自动化的集成开发。
以Delphi集成MapInfo为例，利用OLE自动化集成开发方法如下：
a) 启动MapInfo
在客户程序中启动MapInfo用如下语句来实现：
var oleMapInfo : Variant; //在Delphi应用程序中声明OLE Variant类型的变量
oleMapInfo := CreateOLEObject('MapInfo.Application');
CreateOLEObject()函数用来创建MapInfo自动化服务器的一个实例，上述语句同时把该函数的返回值赋给Variant类型的变量oleMapInfo，通过上述语句，oleMapInfo对象被定义为MapInfo的一个实例，在以后的操作中，oleMapInfo就相当于一个MapInfo服务器，Delphi应用程序通过对oleMapInfo的调用，就相当于对MapInfo的进行管理和操作。
b) 调用MapInfo实例的方法和属性
OleMapInfo对象拥有以下方法和属性
对象
方法
属性
Application
Do、Eval、RunCommand、SetCallBack 、RunMenuCommand、DataObject、
Name、Application、Parent、Version、Visible、LastErrorCode等
在应用程序中调用不同的方法和属性可以实现不同的功能，其中经常用到的有：
1) Do方法—向MapInfo传送指令
启动MapInfo后就可以向它传送MapBasic指令，让其实现相应MapBasic语句对应的功能。例如下述语句打开并调入一幅地图：
MsgString := ‘Open Table “D:\Map\Map1.Tab” Interactive’;
oleMapInfo.Do(MsgString);
MsgString := ‘Map From Map1’;
oleMapInfo.Do(MsgString);
Do方式是集成开发用到最多的一种方法，基本上一些重要的功能都要用它来实现。下面列举一些。
①、重生成MapInfo窗口
当启动MapInfo之后，通常要做的第一步是重生成MapInfo窗口：
MsgString := 'Set Next Document Parent ' + sWinHand + ' Style 1';
//sWinHand是Delphi容纳MapInfo窗口的控件的句柄
oleMapInfo.Do(MsgString);
当执行完上述语句后，MapInfo的对话框和错误信息就为客户程序所拥有。
②、直接运行Mapbasic程序
有的时候，需要在二次开发中调用现成的MapBasic程序实现特定的功能，用Do方法实现如下：
MsgString := 'Run Application " D:\MapBasic\DrawArc.MBX"';
oleMapInfo.Do(MsgString);
③、重定义MapInfo右键菜单
这是一项很有实际意义的功能，开发者可以根据实际需要增加或者修改MapInfo地图窗口的右键菜单，甚至完全屏蔽MapInfo的右键菜单：
MsgString := 'Create Menu "MapperShortcut" ID 17 As "(-"'; //屏蔽右键菜单
oleMapInfo.Do(MsgString);
2) Eval方法—从MapInfo获得返回值
oleMapInfo的Eval方法可以从MapInfo中返回值给客户程序。当客户程序需要得到某些地图信息时，需要应用此方法。下面的语句将地图中心的横、纵坐标返回给客户程序：
MsgString := 'MapperInfo(WindowID(0), 3)';
CenterLongitude := oleMapInfo.Eval(MsgString);
MsgString := 'MapperInfo(WindowID(0), 4)';
CenterLatitude := oleMapInfo.Eval(MsgString);
//MapperInfo是MapInfo内部函数
3) RunMenuCommand方法—调用MapInfo菜单
利用RunMenuCommand方法可以方便的实现MapInfo的菜单功能。在MapInfo中，每一个菜单功能都对应着一个ID号，在MapBasic安装目录下的MENU.DEF文件中可以查询到每个菜单对应的ID号。例如当希望客户程序的某一个按钮按下后弹出MapInfo的Change View对话框（对应MapInfo中Map菜单的Change View菜单项），只需要响应在这个按钮的OnClick事件，在其中调用oleMapInfo的RunMenuCommand方法：
procere TFormMap.cmdChangeViewClick(Sender: TObject);
begin
oleMapInfo.RunMenuCommand(805);
//805是MEMU.DEF中对应M_MAP_CHANGE_VIEW的值
end;
利用同样的方法，MapInfo的Main工具栏中对应的按钮同样可以集成到应用程序中。工具栏按钮对应的ID号同样可以在MENU.DEF中找到。
3 利用回叫机制从MapInfo中获取信息
在集成二次开发中，通常采用回叫机制从MapInfo中获取信息。所谓回叫，是指当集成客户程序的MapInfo地图窗口中有事件发生时，MapInfo通过OLE自动化对象自动向客户应用程序发送消息的机制。
利用回调机制，在如下情况下MapInfo可以向客户程序发送信息：
1） apInfo中执行菜单栏或者工具按钮的命令。
2） 图窗口发生变化。
3） MapInfo状态条发生改变（用户在地图上移动鼠标）。
而客户程序可以接收相应的信息，在自己定义的方法中进行处理。所以可以利用回叫机制在应用程序中实现下面的功能：
1） 定义MapInfo右键菜单。
2） 过用户自定义工具同MapInfo交互。
3） 控制发生变化的地图。
4） 自定义客户程序状态栏显示的内容。
回叫是利用OLE自动化集成二次开发的难点所在，其核心思想是MapInfo服务器向客户程序发送消息。以自定义客户程序的状态栏为例，回调机制的使用方法如下：
1） 建一个类，定义SetStatusText方法。此方法带一个WideString类型的参数StatusText。这个参数是MapInfo向客户程序传递过来的。
在Delphi6.0中选择File｜New｜ActiveX｜Automation Object，通过启动Automation Object向导打开“Type Library”编辑器来实现。这里假设创建的类名为TmyCallBack。
2） 应用程序窗体中添加状态栏。
3） 使用第一步中定义的类创建一个对象。
varCallBack := TMyCallBack.Create;
4）调用自动OLE对象的SetCallBack方法传递参数。
oleMapInfo.SetCallback(varCallBack As IMyCallBack);
5）在SetStatusText方法中处理由MapInfo传递的StatusText参数，控制状态栏的显示。
procere TMyCallBack.SetStatusText(const StatusText: WideString);
begin
MainForm.StatusBar1.Panels[0].Text := StatusText;
//MainForm是容纳地图组件的窗体
end;
4 应用实例
笔者在为某单位开发的EMC（电磁兼容）预测与分析系统中应用了OLE自动化技术，从实际应用来看，达到了满意的效果。
系统对分布在不同站位的发射机和接收机进行电磁兼容的分析，作为其中的一个子系统，地理信息功能由Delphi 6.0和MapInfo 6.5相结合开发而成。数据库选用MS SQL Server。应用程序主要用Delphi开发完成，当需要直观的显示地图、站位、发射机、接受机、发射信号等地理信息时调用MapInfo的功能来实现。利用OLE自动化技术实现二者的交互。
站位坐标、参数，发射机接受机参数、所在站位等信息存储在SQL Server的表中。首先利用一个MapBasic程序连接SQL Server数据库，获取信息存入MapInfo的表中，载入基本地图并为站位、发射机、接受机、信号等分别创建图层。
Delphi首先启动MapInfo服务器，然后运行MapBasic程序载入地图，接着通过OLE自动化和MapInfo服务器交互。系统结构如下图所示：
系统运行界面如下：
其中
隐藏、显示图层由oleMapInfo的do方法调用MapBasic语句实现。
放大、缩小、漫游按钮由oleMapInfo的RunMenuCommand方法实现。
试图设置中获取地图中心坐标通过oleMapInfo的Eval方法实现。
状态栏的更新通过OLE回叫实现。
5 结束语
实践表明，利用OLE自动化技术开发MapInfo应用程序节省了开发周期，能有灵活有效的控制MapInfo，实现MapInfo的地理信息系统功能。它的缺点是需要在后台调用MapInfo故程序运行速度受到限制。然而在MapX控件应用成熟以前，OLE调用、回叫仍然将会是普遍应用的开发方法。
Ⅳ VB 与MapInfo 二次开发的重点
( 1) MapInfo 对象的创建
本系统使用 OLE Automation 技术在 VB 中创建一个 MapInfo 的应用对象，然后在 VB环境下对该对象进行操作 ( 张峰等，2004) 。首先在 VB 环境下声明一个对象变量如 Map-Info，接着在 VB 中使用 CreateObject ( ) 函数创建一个 MapInfo 对象，使用语句:
Set MapInfo = CreateObject( “MapInfo. Applicaiton”)
要连接一个已运行着的 MapInfo，需要用 Visual Basic 的 GetObject ( ) 函数。
Set MapInfo = GetObject( “MapInfo. Application”)
由于该语句创建的是 MapInfo 应用对象，所以在本地机器系统中应该有 MapInfo 软件平台，否则将产生错误，不能创建 MapInfo 应用对象。集成地图开发是在程序中通过调用语句来在后台启动 MapInfo。创建完对象后就可以在 VB 环境里使用对象 MapInfo 的属性和方法，通过 VB 的对象浏览器，可以看到 MapInfo 对象的属性和方法，最常用的是 do 方法。MapInfo 应用对象 do 方法识别和执行字符串命令行。由于在 MapInfo 系统中包含的库文件 “MapBasic. def”以及 “Menu. def”中集成了许多命令函数，使 MapInfo 的有些功能往往只需要一两条语句就可以在 VB 中完成，使用起来也比较简单、方便。
( 2) VB 评价结果在 MapInfo 中的图形显示和重画
在 GIS 软件系统中，图形的显示及重画功能是系统自动完成的，可是由于本系统是采用 OLE 技术，将 MapInfo 系统集成到 VB 的环境中，则图形的显示和重画只能在 VB 的环境里完成，由于 VB 自身无法识别 MapInfo 的图形格式，所以就无法进行图形的显示与重画。使用 Map Basic 语句“Set Application Window”来让 MapInfo 的对话框和错误信息窗口从属于客户程序。“Set Next Document”语句允许 “再生”窗口。在 VB 与 MapInfo 集成环境里，图形的显示可以使用 MapInfo 的窗口来实现，也可以在 VB 的窗口中实现，MapInfo允许以三种模式将一个地图在 VB 环境里显示。其中 style 1: 表示无模式形式，即地图将充满整个 VB 窗体中，就像将 MapInfo 的图形贴在 VB 窗体上一样 ( 张峰等，2004) ; style2: 则表示生成带半高标题栏的弹出式窗口 ( 像 MapInfo 的图例窗口) ; style 3: 产生带全高标题栏的窗口。后两种方式，都不能使窗口图形窗口最大和最小化，这给用户的操作带来不便，同时也不符合 Windows 系统风格。因此本系统采用 style 1 模式。
MapInfo 允许在 VB 的窗体上显示图形，使用命令:
“Set Next document parent”＆ Form1. hWnd ＆“style 1”
Form1 是 VB 中的一个用来显示图形的窗体。在 VB 环境里打开 MapInfo 的地图和数据表格。但还存在一些问题，当 VB 窗口最大化时，MapInfo 图形不能重画，即当用户改变地图窗口大小时，MapInfo 并不会依据新窗口的大小自动重新设置地图内容以添满窗口。为此必须利用 Windows API 函数 MoveWindow 编写代码来实现，使每一次窗体的大小变化时，地图均重画。
( 3) 报表输出
通过读取数据库中存储的评价信息，按照相应的格式调用到相应的报表位置，生成报表，如图 7. 9 所示。关键点是读取数据库和打印，下面是读取数据库及打印代码:
图 7. 9 报表输出打印界面
Straql = ”select* from pingjia where name = ”’＆ text1. text ＆’””
ExecuteSql( Strsql)
Me. PrintForm
Ⅵ 如何用VC++调用MapInfo
VC++的话要用MapX
Ⅶ 一个关于Mapinfo数据和数据库的问题
1 Callback
在我们的程序中集成MapInfo应用后，MapInfo能够自动地向客户程序发送信息。例如，在应用程序中，当地图窗口发生变化时，MapInfo将调用客户端程序通知发生变化的窗口的句柄。当发生某一事件导致MapInfo调用客户端程序的这种方法称为Callback(回调)。
在下列情况中，Callback允许MapInfo发送消息给客户应用程序：
·用户使用定制工具与MapInfo窗口进行交互
例如，用户点击并拖动鼠标在MapInfo的地图窗口上画线时，MapInfo能够把用户选择的各点坐标消息发送给应用程序。
·用户选择菜单命令
例如，如果应用程序定制了MapInfo的快捷菜单(即用户右击时弹出的菜单)，当用户从快捷菜单中选择了定制的命令后，MapInfo就会把这个菜单事件通知给应用程序。
·地图窗口发生变化
当用户改变地图窗口内容(如添加或删除图层，平移地图时)，MapInfo就会将发生变化的窗口句柄告知应用程序(这类似于apasic自身的句柄过程：WinChangedHandler。)�
·MapInfo中状态栏的内容发生变化
2 在P中实现MapInfo的callback
为了使用MapInfo的callback，应用程序必须能作为DDE服务器或OLE自动化服务器。VC++，V，Delphi等开发工具对OLE自动化服务的支持都很好，开发起来很方便。但P对OLE自动化服务的支持不够理想，笔者和周围的许多同行试了很多方法都未能实现Callback。是不是在P里就不能使用MapInfo的Callback呢?通过查阅了大量的文献，终于找到了一个方法实现了Callback。其原理如图1所示。
图1 在P中实现MapInfo的callback的原理图
实现步骤如下：
打开P的库画板，新建一个P库并命名为Ole[CD#*3]Callack.pbl；定义一个立即数变量：integer handle；在库中创建一个不可见自定义用户对象：nuo[CD#*3]Callack，为其添加用户对象函数：public subroutine uf[CD#*3]ini(integer Whnd)，无返回值。�
在其脚本中添加代码如下：
handle=Whnd
如果要将MapInfo状态栏的信息反映到客户应用程序的状态栏上，则要添加一个名为SetStatusText用户对象函数，只有一个字符串型(string)的参数。当每次地图窗口发生变化时，需要MapInfo通知应用程序，就要添加一个名为WindowContentsChanged用户对象函数，只有一个四字节整型(integer)的参数。当自定义菜单项或自定义按钮被使用时，如果需要MapInfo通知应用程序，就要添加一个名为与自定义菜单项或自定义按钮的过程名相同的用户对象函，只有一个字符串型(string)的参数。限于篇幅，我们在这里仅添加名为WindowContentsChanged用户对象函数，参数为：integer asresponse，无返回值。
在其脚本中添加代码如下：
send(handle,1024,0,as_response)/*向句柄号为handle的窗口发送系统消息为pbm_custom01的消息，并把as_response也发送过去*/
保存库文件并编译成P运行时链接库Ole_Callack.pbd,这是关键所在。我们的第一阶段工作就完成了，在后面的工作中我们要使用这个链接库。
在P的库画板再新建一个名为Callack_Test.plb的P库，新建一个DI窗口w_main和一个用作w_main的sheet窗口w_sheet。
为w_main新增一个用户自定义事件：ue_MapInfoWCHnd事件号为pbm_custom01，用以接收MapInfo发来的窗口句柄。
在w_main的open事件中编写代码如下：
openSheet(w_sheet,w_main)
在w_main的ue_MapInfoWCHnd事件中编写代码如下：
messagebox(“回调测试”，“MapInfo返回的地图窗口发生变化的窗口
句柄为：”+string(as response))
在w_sheet的open事件中编写代码如下：
OleObject myPOleObject
myPOleObject=create OleObject/*创建Poweruilder OLE自动化服务对象*/
int Errcode
ErrCode=myPOleObject.ConnectToNewObject(“Poweruilder.Application”)
If ErrCode＜＞0Then
Messageox(“错误”，“连接Poweruilder服务器错误，退出。”)
Halt Close
end if
/*这就是我们前面编译好的链连库Ole[CD#*3]Callack.pbd的完整路径*/
myPOleObject.LibraryList=“c:＼Callack.pbd”
myPOleObject.achineCode=False /*如果你编译成的是机器码就用True，这里是False*/
OleObject UserOleObject /*创建用户自定义OLE对象*/
UserOleObject=Create OleObject
/*链接到不可见自定义用户对象：nuo_Callack*/
UserOleObject=myPOleObject.CreateObject(“nuo_Callack”)
if isNull(UserOleObject)then
messagebox(“没有对象”，“不能创建对象UserOelObject”)
halt close
end if
myPOleObject.uf_int(handle(w[CD#*3]main)/*把主窗口的句柄传递给用户自定义OLE对象*/
OLEObject IOleObject
IOleObject=Create OLEObject
/*连接MapInfo OLE服务器*/
ErrCode=IOleObject.ConnectToNewObject("MapInfo.Application")
If ErrCode＜＞0Then
Messageox(“连接错误”，“连接地图服务器错误，在使用本程序前要安装MapInfo软件。”)� Halt
End If
/*把我们的自定义OLE对象传递给MapInfo OLE对象的Callack*/
IOleObject.SetCallack(UserOleObject)
/*重新定向MapInfo的地图窗口到w_sheet上*/
IOleObject.Do(“Set Next Document Parent”+String(Handle(this))+“Style 1”)� IOleObject.Do(′Set.Application Window′+String(Handle(this)))
/*打开MapInfo地图并在w_sheet上显示*/
IOleObject.DO(′run application"c:＼maptest.wor"′)
编译执行。改变地图窗口的大小或图层，w_main主窗口将会接收到MapInfo发来的消息，将会弹出我们前面的消息窗口显示发生变化地图窗口的句柄，将它替换成相应的代码就可以进行相应的处理了。
3 说 明
本程序在Poweruilder 6.5下编译测试通过，在MapInfo Professional 4.0、MapInfo Professional 4.5和MapInfo Professional 5.0环境下均运行良好。
4 结 论
P对OLE自动化服务的支持并没有VC，V，Delphi等开发工具的支持强大，我们只好采用迂回策略，定制一个P用户自定义OLE对象用来作MapInfo的OLE调用，再把自定义OLE对象接收到的消息发送给我们的应用程序，从而实现了P与MapInfo的交互，进而用这个方法开发出功能完善的大型GIS数据库应用程序。