我的组件之Base64.dll(Base64编/解码效率奇高)

最新推荐文章于 2022-07-24 16:52:09 发布

原创最新推荐文章于 2022-07-24 16:52:09 发布 · 5.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#byte #command #dll #c

Visual Basic 6.0 专栏收录该内容

35 篇文章

订阅专栏

介绍了一款名为Base64.dll的组件，该组件能够实现高效的Base64编码和解码操作，并提供了两种使用方式：通过ActiveX DLL调用及作为动态链接库使用。示例代码展示了如何在VB环境中利用此组件进行字符串的Base64编码和解码。

(声明：魏滔序原创，转贴请注明出处。)
我的组件之Base64.dll(Base64编/解码效率奇高),可以引用ActiveX DLL的方法使用，也可以以动态连接库的形式使用。
下载地址： http://www.chenoe.com/developer/library/base64.dll

'示例代码：
Option Explicit
Private Declare Sub Base64Encode Lib "Base64" (ByRef Destination() As Byte, ByRef Source() As Byte)
Private Declare Sub Base64Decode Lib "Base64" (ByRef Destination() As Byte, ByRef Source() As Byte)

Private Sub Command1_Click()
    Dim a() As Byte
    Dim b() As Byte

    a = StrConv("热爱祖国，热爱人民。", vbFromUnicode)
    Base64Encode b, a
    Debug.Print StrConv(b, vbUnicode)

    Base64Decode b, b
    Debug.Print StrConv(b, vbUnicode)

End Sub

Private Sub Command2_Click()
    Dim a() As Byte
    Dim b() As Byte
    Dim c() As Byte

    Dim Base64 As New Base64Lib.Base64
    a = StrConv("热爱祖国，热爱人民。", vbFromUnicode)
    Base64.Encode b, a
    Debug.Print StrConv(b, vbUnicode)

    Base64.Decode c, b
    Debug.Print StrConv(c, vbUnicode)
End Sub