请教b464编码
谁用过b464编码？
能否给个例子，怎么实现将数据转换成b464编码，
从串口中接收到b464编码，又怎么把它转换过来呢？
[解决办法]
XmlDomDocument 可以完成
这个也很容易转换成二进制的编码/解码
Private m_oXMLDoc As Object
Private m_oXMLElement As Object
Private m_bXMLObjectOK As Boolean
public sub init()
Set m_oXMLDoc = fCreateObject( "MSXML.DomDocument ")
ClearError
m_bXMLObjectOK = Not m_oXMLDoc Is Nothing
If Not m_bXMLObjectOK Then
RaiseError "90001 ", "错误,建立必须 'MSXML.DomDocument ' 对象 "
Else
Set m_oXMLElement = m_oXMLDoc.createElement( "TmpBase64 ")
m_oXMLElement.dataType = "bin.base64 "
End If
end sub
Public Function EncodeS(ByVal strIn As String) As String
'编码字符串
Dim sData As String
Dim aData() As Byte
On Error GoTo errEncode:
If m_bXMLObjectOK And Len(strIn) > 0 Then
aData = StrConv(strIn, vbFromUnicode)
m_oXMLElement.nodeTypedValue = aData
EncodeS = m_oXMLElement.Text
m_oXMLElement.Text = " " '释放
End If
Exit Function
errEncode:
RaiseError Err.Number, Err.Description
End Function
Public Function DecodeS(ByVal strIn As String) As String
'解码字符串
On Error GoTo errDecode:
If m_bXMLObjectOK And Len(strIn) > 0 Then
m_oXMLElement.Text = strIn
DecodeS = StrConv(m_oXMLElement.nodeTypedValue, vbUnicode)
m_oXMLElement.Text = " " '释放
End If
Exit Function
errDecode:
RaiseError Err.Number, Err.Description
End Function
