找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 2931|回复: 3

[求助] 请问一下我这个调用本地识别显示乱码,是我哪里写错了吗

[复制链接]

4

主题

3

回帖

11

积分

学前班

鲜花
0
猫粮
22
发表于 2021-8-19 20:14:40 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
Function ImagesToBase64(FilePath)
Dim xml
Dim root
Dim fs
Dim objStream
Dim objXMLDoc
Dim Base64
Set objXMLDoc=CreateObject("Microsoft.XMLDOM")
objXMLDoc.loadXML "<?xml version='1.0' ?><data></data>"
Set fs = createObject("Scripting.FileSystemObject") ''FSO组件
If fs.FileExists(FilePath) Then '判断File文件是否存在
'用 stream 来读取数据
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile FilePath
objXMLDoc.documentElement.dataType = "bin.base64"
objXMLDoc.documentElement.nodeTypedvalue = objStream.Read
Set xml = CreateObject("Microsoft.XMLDOM")
xml.load objXMLDoc
If xml.ReadyState>2 Then
Set root=xml.getElementsByTagName("data")
Base64 = root.Item(0).Text
//TracePrint "Base64=" & Base64
Base64 = Replace(Base64,vbLf,"")
else
Base64=""
End If
Set xml=Nothing
Set objStream=Nothing
else
Base64=""
End If
Set fs=Nothing
Set objXMLDoc = Nothing
ImagesToBase64 = Base64
End Function
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
Img_base64 = ImagesToBase64("C:1.png")
data = "img=" + Img_base64 + "&lan=en"
post_url = "http://127.0.0.1:5689"
http.open "POST", post_url,False
http.send data
xmlBody = http.ResponseText
TracePrint xmlBody


//调试结果显示:脚本 我的脚本1.Q ,第45行:{ "Message": "?????°??o?¤±", "RetCode": 0 }
楼主热帖

0

主题

6

回帖

6

积分

学前班

鲜花
0
猫粮
236
发表于 2021-8-19 21:29:19 | 显示全部楼层
Img_base64 = ImagesToBase64("C:\1.png")  少了"\" 吧

4

主题

3

回帖

11

积分

学前班

鲜花
0
猫粮
22
 楼主| 发表于 2021-8-20 00:02:17 | 显示全部楼层
灵猫 发表于 2021-8-19 21:29
Img_base64 = ImagesToBase64("C:\1.png")  少了"\" 吧

不是  跟这个没关系的
  • 打卡等级:行侠仗义

1080

主题

2100

回帖

4280

积分

院长

鲜花
6
猫粮
7390
QQ
发表于 2021-8-20 11:17:07 | 显示全部楼层
推测是编码问题, 按键的编码是gbk, 但是你网页编码是utf8, 需要自行转码
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-3-28 17:04

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表