编码转换对象版,支持Base64加解码

易语言 2020-08-20 17:27:05

编码转换对象版,支持Base64加解码

adoStream.创建 (“ADODB.Stream”, )
adoStream.写属性 (“Charset”, “gb2312”)
adoStream.写属性 (“Type”, 1) ' Type 指定或返回的数据类型,可选参数为:字节集 =1 文本型 =2
adoStream.写属性 (“Mode”, 3)
adoStream.方法 (“Open”, )
变体型.赋值 (bin, )
adoStream.方法 (“Write”, 变体型)
adoStream.写属性 (“Position”, 0)
adoStream.写属性 (“Type”, 1)
xmlDoc.创建 (“MSXML2.DOMDocument”, )
xmlNode = xmlDoc.对象型方法 (“createElement”, “MyNode”)
xmlNode.写属性 (“dataType”, “bin.base64”)
变体型 = adoStream.通用方法 (“Read”, )
xmlNode.写属性 (“nodeTypedValue”, 变体型)
Base64Encode = xmlNode.读文本属性 (“Text”, )
adoStream.方法 (“Close”, )
xmlDoc.方法 (“Close”, )
xmlNode.方法 (“Close”, )