实现桌面地理信息系统ArcView和VB5应用程序之间的通讯

实现桌面地理信息系统实现桌面地理信息系统 ArcViewArcView 和和 VB5VB5 应用应用 程序之间的通讯程序之间的通讯 摘要 本文简要介绍桌面地理信息系统的概念 通过分析 桌面地理信息系统 ArcView 和 VB5 应用程序之间的通讯关系 结合实例 论述了 ArcView 和 VB 5 相互通讯在开发桌面地理 信息系统中的应用价值 关键词 桌面地理信息系统 ArcView 和 VB5 应用程序通讯 1 桌面地理信息系统简介 地理信息系统是一种特定的空间信息系统 它是采用现代化 的方法来采集 存储 分 析 管理 显示 模拟与地理空间 分布有关数据的空间信息系统 它是现代地球科学 信息 学 环境科学 测绘遥感学 计算机科学 管理科学 应用数学以 及各种应用学科有机结合 的集成产物 自 60 年代加拿大测量 学家 R T Tomlinson 首先提出地理信息系统这一术语以来 在大型机 小型机 工作站和微机平台上 相继出现了 GIS 的 应用平台 如美国 ESRI 的产 品 已遍布上述四种硬件平台 由于 80 年代 PC 技术的迅速发展 以及近几年来 PC 硬件价格 的 急剧下跌和其性能日益提高 使得桌面地理信息系统 DeskTop GIS 得到了迅速的发展 其中在国内用得较多的 有美国 ESRI 公司的 ArcView 2 ARCVIEW 介绍 现在常用 的 ArcView2 1 以上英文版是直观性较好的桌面地理信息系统 它集空间图形 关系 数据库 统计图形 空间分析 网络通 讯 面向对象的程序设计于一体 图形用户界面直观 而且 它有自己的开发工具即 Avenue 用于制作特定的 ArcView 应 用程序 Avenue 是一种 WI NDOWS 环境下的面向对象的程序设 计语言 ArcView 的系统功能就是由它编程实现的 任何一 个由 Avenue 语言开发的 Windows 应用程序都有一个对应的 Project Project 由一些 Doc ument 和 Script 组成 而 Document 又由 Document Window 和 Document GUI 组成 所 以 Avenue 应用程序的模型如图 1 所示 图 1 中 Document 是 人机交流的唯一途径 根据其功能又可分为 V iew Table Chart Layout 和 Script Editor 五种 Document GUI 是对 应于某一 Document 的图形用户界面 由 Menu bar Button bar 和 Tool bar 组成 分别用来对应不同的功能 图 1Avenue 应用程序模型 我们在具体开发桌面地理信息系统 ArcView 时 发现现有的 ArcVie w 系统功能并不能完全满足 要求 必须对 ArcView 系统重新改造 增加新的功能 由于 ArcV iew 的开发语言是 Avenue 它的开发效率低 所以在实 际开发中既要充分利用 ArcView 自身 强大的地图管理功能 又要利用高级语言 如 VB5 在快速开发应用方面的长处 两 者相互 结合 将取得良好效果 3 ArcView 和 VB5 应用程序 通讯方法 最通用的 IPC interprocess communication IPC 方法是 DDE OLE 和对动态联接库的外部 函数调用 文件访问以及 WINDOWS 剪贴板 上述方法都能使不 同的 WINDOWS 应用程序之间彼此 通信 其中 DDE 方法原先是 作为一种基于消息的协议在 WINDOWS 3 x 之前 中实现的 用 来在 不同的 WINDOWS 应用程序之间交换信息 随着 WINDOWS3 0 的发布 DDE 在实际的应用程序开发 中得到大量应用 这是 通过使 DDE 服务能够利用应用程序编程接口 API 调用 DDE 管理库来 完成的 ArcView 是通过 DDE 和 DLL 方法实现与外 部应用程序通信 本文通过一个实例来详细 介绍 DDE 功能的 使用 在实际应用中 ArcView 既可作 Clint 又可作 Server 来实现应用程 序之间的通讯 包括发送或接受数据 执行请求 返回分析结果 通过使用 DDE 方法 可以 克服 ArcView 本身开发语言的落后性 达到充分发挥 ArcView 自身 强大的地图管理功能 又创 造出符合时代特色的桌面地理信 息系统 实践证明 采用 ArcView 和 VB5 应用程序通讯进行系 统开发是一种有效的桌面地理信息系统开发方法 4 实例分 析 在本例中 VB5 应用程序向 ArcView 发出 Avenue 请求以 建立新的文档如 views 和 layouts 而且应用程序询问 ArcView 以得到当前激活的文档 此时 VB5 应用程序是目标 而 ArcView 是源 如果已安装 VB5 和 ArcView 按照下面步 骤建立应用程序 1 启动 VB5 建立缺省窗体 Form1 2 在 Form1 上根据下列属性建立控件 然后放大窗体以便整齐地 排列控件 ObjectProperty Setting Text BoxNametxtDDE Command ButtonCaptionSend Request NamecmdRequest Combo BoxNamecboDocType 3 在 Form1 的说明部分增加下面代码 Const NONE 0 MANUAL 2 Sub Startup Dim t Const DDE NO APP 282 this will start ArcView if it isn t running On Error GoTo FireUp txtDDE LinkMode NONE 清 除 DDE 链接 txtDDE LinkTopic ArcView System 建立对话 txtDDE LinkMode MANUAL 建立人工链接 Exit Sub FireUp If Err DDENOAPP Then ChDir C ARCVIEW2 BIN t Shell arcview 1 t DoEvents Resume Else MsgBox Unknown error Stop End If End Sub 4 在 FormLoad 事件中增加下列代码 Sub FormLoad cboDocType text cboDocType AddItem View cboDocType AddItem Layout cboDocType AddItem SEd Startup 调 startup 程序 End Sub 5 在 FormUnload 事件中增加下列代码 Sub FormUnload Cancel As Integer txtDDE LinkMode NONE 关闭 DDE 对话 End Sub 6 在 cboDocTypeClick 事件中增加下列代码 Sub cboDocTypeClick cmd av GetProject AddDoc cboDocType make av GetProject GetActive Get 0 Ge tWin Open txtDDE LinkExecute cmd End Sub 7 在 cmdRequestClick 事件中增加下列代码 Sub cmdRequestClick LinkItem 是能够返回值的 Avenue script txtDDE LinkItem av GetActiveDoc GetName txtDDE LinkRequest End Sub 8 存储 VB5 工程并编译成 EXE 文件 现在即可运行 Visual Basic 应用程序 如果 ArcView 没有运行 应用程序 就 会激活它 从 dropdown combo box 选择一个文档名以便 在 ArcView 中建立一个文档 要访问 当前激活的文档就敲击 Send Request button 在文本框里将会显示文档名 本例所 有的 DDE 通讯都是通过文本框实现的 在 VB5 中 任何 text box picture box 和 label 在对话中都可 作为目标 同时任 何窗体可看作源 以上实例的运行环境为 Visual Basic 4 0 以上 ArcView2 1 以上 W