拷贝字符串速度之对比: CopyMemory 与 动态字节数组

wang1999

好久没写代码了, 前几天有看到说VBA调用API很慢(CopyMemory), 我听了很费解, 也不好说明, 只好用数据说话.
所以做了个有趣的的测试.主要代码如下:
Public ShareInt16(7) As Integer     '整形, 128位, 2*08=16个字节
Private Function TestSink_TestFun2() As Long
    Dim varRet As Long, i As Long, strTmp As String, bytData() As Byte
    If mblnSkipRun = False Then
        '测试函数与代码放入此
        strTmp = "&H7FFFABCD"
        bytData = strTmp
    End If
End Function


Private Function TestSink_TestFun1() As Long
    Dim varRet As Long, i As Long, strTmp As String
    If mblnSkipRun = False Then
        '测试函数与代码放入此
        strTmp = "7FFFABCD"
        CopyMemory ShareInt16(0), ByVal StrPtr(strTmp), 16&
    End If
End Function



图片如下:




结论:
CopyMemory比 VBA的动态字节数组, 整整快了2倍多
调用CopyMemory真的很快(后台调用指令很少)

tmtony

赞一个！！

风中漫步

少了"&h"当然更快{:soso_e120:}

wang1999

风中漫步 发表于 2015-6-9 16:44
少了"&h"当然更快

呵呵,多了一个32位, CPU多跑了一次.
16字节对比20字节差25%, 算一下一次还是 CopyMemory 快1.5倍

其实重点不在此, 我只是说明调用API得当, 速度照样杠杠的

tmtony

是的，用系统内置的 有时速度会快不少，不过，对有些用户，可能 对API有恐惧

另对你那个测试结果报告是如何做出来，我反而更感兴趣：）

zpy2

这好象没可比性，一个string，一个lnt，Api用指针引用会在排序比较快些，但复制会差不多，还要分配内存

tmtony

也贴一篇 有关CopyMemory的相关文章
[API] 【高级编程】VBA及VB中利用CopyMemory使用指针
http://www.office-cn.net/thread-120040-1-1.html

wang1999

再深入一点, 两个问题?
1, 为什么 abytData = strTmp 字节数组赋值要慢? 它慢在哪?
2, 为什么 CopyMemory 要快呢? 它快在哪?
再深入要把这个问题弄懂, 就要对COM有所了解. 我也是忘记得差不多了.

1.1 它慢在, VB要多创建一个数组:SafeArray(动态数组的创建, 这个过程比较麻烦, 申请内存,指令要多) 然后再是数据复制.

2.1, 虽然CopyMemory是API,在"kernel32.dll"库中, 但这个库, 从系统启动时, 已经加载在内存中, 你VB中引用时, 已经VB无需再次加载, windows不过内存中调用罢了.
2.2 当然 ShareInt16 是公共申明的静态数组, 也有这点原因

wang1999

今天又进行一个比较
MID语句 对 CopyMemory 哪个快
    If mblnSkipRun = False Then
        Mid(msTmp1, 1&, 4&) = msTmp2   
    End If

CopyMemory 要多一句
    If mblnSkipRun = False Then
        mlTmp = StrPtr(msTmp2)
        CopyMemory ByVal StrPtr(mlTmp), ByVal msTmp2, 8&
    End If
注意: 是 MID语句 不是 MID函数

为了更公平, 这次全是公共申明

wang1999

代码改了一下:
Mid(msTmp1, 1&, 4&) = msTmp2

CopyMemory ByVal StrPtr(msTmp1), ByVal StrPtr(msTmp2), 8&

'初始化数据
Private Sub cmdInitialize_Click()
    msTmp1 = String(16, vbNullChar)
    msTmp2 = "abcdef12345"
End Sub


结果如下:



思考:
两者竟然一不分仲伯. 虽然两次取指针并复制 StrPtr
1.说明  StrPtr 只是一条简单LONG赋值, 速度是相当快
2.少两条指令复制, MID 应该要快呀?  原来 Variant (String) 这个是输入值, MID慢在这里了.
3. copymemory 则慢在 两条  StrPtr 复制, 所以综合2,3点 两者速度基本一致
所以:
在MID语句不方便使用的情况下, copymemory 与指针结合 可以作为VBA的一个操作语句, 在代码中随意使用, 有更多的灵活性, 且不仅不会牺牲性能.