文件名称：学会使用SafeArray 之 Delphi篇--源码
文件大小：265KB
文件格式：RAR
更新时间：2013-11-25 08:08:18
Delphi safeArray SafeArrayCreate SafeArrayPutElement
说明文字在博客中。 摘录： 在学习的时候曾经百度了一下，想查找关于delphi中SafeArray的用法，没想到资料竟然如此之少，甚至连一篇相对完整的都没有。也许正如田师傅所说，现在高手们都在实行“技术*”了？ 在CSDN技术中心有一篇关于C++的使用，说的比较详细。鉴于手中有田师傅写的代码，特拿来一部分对照自己学习的，翻译为Delphi版本。留作笔记，日后翻阅。 =============================================================================== SAFEARRAY的主要目的是用于automation中的数组型参数的传递。因为在网络环境中，数组是不能直接传递的，而必须将其包装成SafeArray。实质上SafeArray就是将通常的数组增加一个描述符，说明其维数、长度、边界、元 素类型等信息。SafeArray也并不单独使用，而是将其再包装到VARIANT类型的变量中，然后才作为参数传送出去。在VARIANT的vt成员的 值如果包含VT_ARRAY|...,那么它所封装的就是一个SafeArray，它的parray成员即是指向SafeArray的指针。 SafeArray中元素的类型可以是VARIANT能封装的任何类型，包括VARIANT类型本身。 Delphi中com组件或外部调用需要传递一个对象或者数组，这个时候可以考虑使用SafeArray。比如三层架构中通常需要将使用的ClientDataSet数据集传出，那么就可以将DataSet转换为SafeArray，再由其他模块转换接收。 ===============================================================================
【文件预览】：
TestMain.dcu
Project1.dof
Project1.exe
TestMain.ddp
Project1.cfg
TestMain.dfm
Project1.dpr
TestMain.pas
Project1.res