VB6总结之添加附件(jgp等)

最新推荐文章于 2021-07-01 17:52:25 发布

VIP文章 Stephanie_0903

最新推荐文章于 2021-07-01 17:52:25 发布

阅读量1.2k

点赞数

分类专栏： Attachement # VB

本文链接：https://blog.csdn.net/Stephanie_0903/article/details/80729490

版权

一.把图片转换成二进制等，再存入DB

1. byte 转成 base64

Private Function encodeBase64(ByRef arrData() As Byte) As String
    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
    
    Set objXML = New MSXML2.DOMDocument
    
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    encodeBase64 = objNode.Text
 
    Set objNode = Nothing
    Set objXML = Nothing
End Function

2. base64 转成 byte

Private Function decodeBase64(ByVal strData As String) As Byte()
    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
    
    Set objXML = New MSXML2.DOMDocument
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    decodeBase64 = objNode.nodeTypedValue
    
    Set objNode = Nothing
    Set objXML = Nothing
End Function

3. image 转成 type

Public Function ReadFile(ByVal strPath As String) As Byte()
    Dim intFile As Integer

    intFile = FreeFile
    Open strPath For Binary Access Read As intFile
    ReDim ReadFile(LOF(intFile) - 1)
    Get intFile, , ReadFile
    Close intFile
End Function