第五十三集Excel-vba指针调用易语言DLL并返回文本

xuel200

第五十三集Excel-vba指针调用易语言DLL并返回文本


VB6中 ValPtr、 StrPtr、 ObjPtr函数的作用
------------------------------------------------------------------------
VarPtr :返回变量地址
StrPtr :返回真正的 UNICODE字符串缓冲区的地址
ObjPtr :返回任何对象变量引用的地址
StrConv:（"要转换的字符串"，转换类型）
Space  :返回特定数目空格的 Variant (String)
String :函数 返回 Variant (String)，其中包含指定长度重复字符的字符串。
Len    :函数 得到字符串的长度
------------------------------------------------------------------------
Len(string) 函数执行成功时返回字符串的长度，发生错误时返回-1。
------------------------------------------------------------------------
String(number, character)

String 函数的语法有下面的命名参数：

部分          说明
number          必要参数；Long。返回的字符串长度。如果 number 包含 Null，将返回 Null。
characte  必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串。如果 character 包含 Null，就会返回 Null。
------------------------------------------------------------------------
Dim MyString
' 返回 10 个空格的字符串。
MyString = Space(10)

' 将 10 个空格插入两个字符串中间。
MyString = "Hello" & Space(10) & "World"
------------------------------------------------------------------------
Dim i As Long
Dim x() As Byte
x = StrConv("ABCDEFG", vbFromUnicode)    ' 转换字符串。
For i = 0 To UBound(x)
    Debug.Print x(i)
Next


常数        值        说明
vbUpperCase        1        将字符串文字转成大写。
vbLowerCase        2        将字符串文字转成小写。
vbProperCase        3        将字符串中每个字的开头字母转成大写。
vbWide          4        将字符串中单字节字符转成双字节字符。
vbNarrow        8        将字符串中双字节字符转成单字节字符。
vbKatakana        16        将字符串中平假名字符转成片假名字符。
vbHiragana        32        将字符串中片假名字符转成平假名字符。
vbUnicode        64        根据系统的缺省码页将字符串转成 Unicode。 (在Macintosh中不可用。)
vbFromUnicode        128        将字符串由 Unicode 转成系统的缺省码页。 (在Macintosh中不可用。)
------------------------------------------------------------------------
下面是这三个函数的具体用法
StrPtr
该函数主要用来产生高效的 UNICODE API调用。在VB4, UNICODE形式的AP函数的调用必须借助于Byte数
组,例如

Declare Sub MyUnicodeCall Lib "MyUnicodeDll.dll"(pstr as Byte)

Sub Makecall(Mystr as String)
Dim bImp() as Byte
bImp=Mystr & vbNullchar
MyUnicodeCall bImp(0)
MyStr=bImp
MyStr=left(Mystr, Len(Mystr)-1)
End sub

如果使用 StrPtr,上面的代码精简为
Declare Sub MyUnicodeCall Lib"MyUnicodeDll.dll"(pstr as Byte)

Sub Make call(Mystr as String)
MyUnicodeCall StrPtr(MyStr)
End sub
------------------------------------------------------------------------
VarPtr/ Strptr/ ObjEt的执行速度非常非常快,因此调用UNICODE函数所赞成有系统负担实际上小于调用相
对应的ANSI函数。因为前者不需进行转换
VarPtr还能用于优化 ANSI API函数的调用。在调用时使用 StrConv和 Strptr就能避免将—个字符串变量多资传
递给函数以及为每个调用而执行转换操作所造成的系统负担。例如原来的

VarPtr还能用于优化 ANSI API函数的调用。在调用时使用StrConv和StrPtr就能避免将一个字符串变量多资传
递给函数以及为每个调用而执行转换操作所造成的系统负担。例如原来的

Declare Sub MyAnsiCall Lib "MyAnsiDll.dll"(ByVal pstr As String)
MyAnsiCall Mystr

现在变为

Declare Sub MyAnsiCall Lib "MyAnsiDll.dll"(ByVal pstr As Long)
MyStr=StrConv(Mystr, vbFromUnicode)
MyAnsiCall StrPtr(MyStr)
MyStr=StrConv( MyStr,unIcode)注释:并不总是要求

Strptr还是唯一能直观地告诉你空字符串和null字符串的不同的方法。对于null字符串(vbNullString), StrPtr
的返回值为0,而对于空字符串,函数的返回值为非零

VarPtr

该函数能与要求包含有UNICODE字符串的结构的AP调用一起使用。如果将个MyUDTVariable变量(一个
自定义类型的变量)传递给一个由 ByRef UDTParam As MyUDT定义的参数,就会发生ANSI/ UNICODE之间
的转换。但是,如果将 VarPtr( MyUDTVariable)传递给由 ByVal UDTParam As Long定义的参数,则不会发
生这样的转换

有一点需要特别注意,在VB中指针的算法非常重要。此外,你必须计算元素的大小,因为VB不会帮你完成这
项工作。你还必须处理缺乏无符号长整型数据类型的问题。下面的函数实现了无符号算法

Function UnsingedAdd By Val Start As Long ByVal Incr As Long)As Long
Const SignBit As Long=&H80000000
UnsignedAdd=(Start Xor SignBit)+ Incr Xor SignBit
End function

ObiPtr

该函数返回由对象变量引用的接口指针。由于大多数对象都支持多重接口,因此搞清楚地址对应的是对象的哪
一个接口就非常重要了。通常个函数用来放在集合中的对象。通过创建基于对象地址的关键字,你就可以在不
需要启遍历整个集合中所有元素的情况下,轻松地将对象从集合中删除。在许多情况下,对象地址是唯-可靠
的能作为关键字的东西

i77

[图片][图片]