Fortran与VB通过OLE变体类型传递字符串数据.docVIP

Fortran 与 VB 通过 OLE 变体类型传递字符串数据 周振红 1， 毕苏萍 2， 张成才 1 (1. 郑州大学 水利与环境学院，河南 郑州 450002；2. 郑州大学 土木工程学院，河南 郑州 450002) 摘 要：为使 Fortran 与 VB 混 合计算工程中的 接口容纳更丰 富的数据类型，研 究了以 OLE 变体类型为载体 的字符串数据 的传 递。 在阐述了 OLE 变体类型结 构的基础上，利 用 CVF 对 Unicode 字符串的支 持，成功实施了 单一字符串的传 递；基于对 VB 变体 安全数组参数的 本质认识，并通 过挖掘 CVF 语言扩 展功能，解决了字 符串数组的传 递；通过将含字符 串自定义类型 转换 成变 体数组，给出了 含字符串自定义 类型数组的传递 方式。实例结 果表明了各种传 递方法的可行 性。 关键 词：混合计算工 程; 接口; 变体 类型; 字符串数 据; 安全数组 ; 语言扩展; 自 定义类型或派生 类型 中图 法分类号：TP311 文献标识码 ：A 文章编 号：1000-7024 (2010) 10-2396-03 Passing string data between Fortran and VB by way of OLE variant type ZHOU Zhen-hong1, BI Su-ping2, ZHANG Cheng-cai1 (1. College of Water Conservancy and Environment, Zhengzhou University, Zhengzhou 450002, China； 2. College of Civil Engineering, Zhengzhou University, Zhengzhou 450002, China) Abstract：To make an interface contain richer data types in Fortran/VB mixed-language programming computation engineering, it is re- searched to pass string data by way of OLE variant types. On the basis of a discussion of OLE variant type structure and with the support of CVF for Unicode strings, singular string is successfully passed. Based on the essential recognition of VB variant SafeArray arguments, plus taking full advantage of CVF language extension, it is solved to pass string arrays. By converting derived types into 1-dimension variant arrays, the way is presented to pass embedded-string derived type arrays. The feasibility of above-mentioned passing methods has been examplified. Key words：mixed-language programming computation engineering; interface; variant type; string data; SafeArray; language extension; user-defined type or derived type 泛使用称之为变体(variant)的数据类型。该类型实际上为结构 体，其中一个成员用来存储变体元素的类型，另一个成员则用 来存储变体元素的值 (其余的成员为 Microsoft 所保留)。Win- dows 操作系统下的二次平台几乎都支持 OLE 自动化、COM， 自然也支持 OLE 变体类型。CVF 提供的 Fortran 90 版变体类 型的定义为： TYPE VARIANT SEQUENCE 0 引 言 经由语言自身的内建类型，在 Fortran 与 Visual Basic(VB)间 传递字符串数据，需要协调两种语言在字符串表达、存储及参 数传递等细节上的不同；对