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

1、实现桌面地理信息系统 ArcView和VB5应用程序之间的通讯摘要本文简要介绍桌面地理信息系统的概念，通过分析桌面地理 信息系统ArcView和VB5应用程序之间的通讯关系，结合实例，论述 了 ArcView和VB5相互通讯在开发桌面地理信息系统中的应用价值。关键词桌面地理信息系统、ArcView和VB5、应用程序通讯1桌面地理信息系统简介地理信息系统是一种特定的空间信息系统，它是采用现代化的方法来采集、存储、分析、管理、显示、模 拟与地理空间分布有关数据的空间信息系统。它是现代地球科学、信息学、环境科学、测绘遥感学、计算机科 学、管理科学、应用数学以及各种应用学科有机结合的集成产物。自60年

2、代加拿大测量学家R.T.Tomlinso首先提出地理信息系统 这一术语以来，在大型机、小型机、工作站和微机平台上，相继出现 了 GIS的应用平台。如美国ESR的产品，已遍布上述四种硬件平台。由于80年代PC技术的迅速发展，以及近几年来 PC硬件价格的 急剧下跌和其性能日益提高，使得桌面地理信息系统（ DeskTopGIS 得到了迅速的发展。其中在国内用得较多的有美国 ESR公司的ArcView。2.ARCVIEW介绍现在常用的ArcView2.1以上英文版是直观性 较好的桌面地理信息系统。它集空间图形、关系数据库、统计图形、空间分析、网络通讯、面向对象的程序设计于一体，图形用户界面直观。而且它

3、有自己的开发工具即 Avenue,用于制作特定的ArcView应 用程序。Avenue是一种 WINDOWS环境下的面向对象的程序设计语言， ArcView的系统功能就是由它编程实现的。任何一个由Avenue语言开发的Windows应用程序都有一个对 应的 Project，Project 由一些 Document 和 Script组成，而 Document 又由DocumentWindow和DocumentGUI组成，所以 Avenue应用程序 的模型如图1所示。图1中Document是人机交流的唯一途径，根据其功能又可分为View,Table,Chart,Layou和 ScriptEdito

4、r五种，DocumentGUI是对应于某 一 Docume nt 的图形用户界面，由 Me nubar， Butt on bar 和 Toolbar 组 成，分别用来对应不同的功能。图1Ave nue应用程序模型我们在具体开发桌面地理信息系统 ArcView时，发现现有的ArcView系统功能并不能完全满足要求，必 须对ArcView系统重新改造，增加新的功能。由于ArcView的开发语言是Avenue,它的开发效率低，所以在实 际开发中既要充分利用ArcView自身强大的地图管理功能，又要利用 高级语言（如VB5）在快速开发应用方面的长处，两者相互结合，将 取得良好效果。3.ArcView和

5、VB5应用程序通讯方法最通用的IPC（interprocesscommunication,IPC）方法是 DDE OLE和对动态联接库的外部函数调用、文件访问以及 WINDOWS剪贴板。上述方法都能使不同的 WINDOWS应用程序之间彼此通信。其中DDE方法原先是作为一种基于消息的协议在 WINDOWS（3.x 之前）中实现的，用来在不同的 WINDOWS应用程序之间交换信息。随着WINDOWS3.0的发布，DDE在实际的应用程序开发中得到大 量应用，这是通过使DDE服务能够利用应用程序编程接口（ API）调 用DDE管理库来完成的。ArcView是通过DDE和DLL方法实现与外部应用程序通信

6、。本文通过一个实例来详细介绍 DDE功能的使用。在实际应用中，ArcView既可作Clint，又可作Server，来实现应 用程序之间的通讯，包括发送或接受数据，执行请求，返回分析结 果。通过使用DDE方法，可以克服ArcView本身开发语言的落后性， 达到充分发挥ArcView自身强大的地图管理功能，又创造出符合时代 特色的桌面地理信息系统。实践证明，采用ArcView和VB5应用程序通讯进行系统开发是一 种有效的桌面地理信息系统开发方法。4实例分析 在本例中，VB5应用程序向ArcView发出Avenue请 求以建立新的文档如views和layouts，而且应用程序询问ArcView以 得到当前激活的文档。此时VB5应用程序是目标，而 ArcView是源。如果已安装VB5和ArcView,按照下面步骤建立应用程序：(1)启 动VB5,建立缺省窗体Formic(2)在Formi上根据下列属性建立控件，然后放大窗体以便整齐 地排列控件。ObjectPropertySetting TextBoxNametxtDDE CommandButtonCaptio nSendRequest NamecmdRequest ComboBoxNamecboDocType (3)在 Form1的说明部分增加下面代码：ConstNONE=0;MANUAL=2 SubStart叩(