求文件的BASE64的字符串

时　间:2021-07-31 13:31:04
作　者:崔宇   ID：45603  城市：长春
摘　要:图片的BASE64字符串。
正　文:

      企业微信机器人发送图片时需要提供图片的BASE64字符串，原来站里发的实现复杂，这个找到的代码目前发送正常，而且只一个函数实现简单。

代   码:

Private Function EncodeFile(strPicPath As String) As String
    Const adTypeBinary = 1 ' Binary file is encoded    
    ' Variables for encoding    
    Dim objXML    
    Dim objDocElem    
    ' Variable for reading binary picture    
    Dim objStream    
    ' Open data stream from picture    
    Set objStream = CreateObject("ADODB.Stream")    
    objStream.type = adTypeBinary    
    objStream.Open    
    objStream.LoadFromFile (strPicPath)    
    ' Create XML Document object and root node    
    ' that will contain the data    
    Set objXML = CreateObject("MSXml2.DOMDocument")    
    Set objDocElem = objXML.createElement("Base64Data")    
    objDocElem.DataType = "bin.base64"    
    ' Set binary value    
    objDocElem.nodeTypedValue = objStream.Read()    
    ' Get base64 value    
    EncodeFile2 = objDocElem.Text    
    ' Clean all    
    Set objXML = Nothing    
    Set objDocElem = Nothing    
    Set objStream = Nothing
End Function


Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店