Sub 文字识别()
strPicPath = Application.GetOpenFilename(, , "打开图片") '打开文件
EncodeFile (strPicPath)
End Sub
Public Function EncodeFile(strPicPath As String) As String
Const adTypeBinary = 1
Dim objXML
Dim objDocElem
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
objStream.type = adTypeBinary
objStream.Open
objStream.LoadFromFile (strPicPath)
Set objXML = CreateObject("MSXml2.DOMDocument")
Set objDocElem = objXML.createElement("Base64Data")
objDocElem.DataType = "bin.base64"
objDocElem.nodetypedvalue = objStream.Read()
EncodeFile = objDocElem.text
appid = "{""appid"":""""," '云API密钥中查看
Image = """url"":""https://tac-wzhq398961275745398-ho-1253637748.cos.ap-beijing.myqcloud.com/20181022145648.jpg""}"
Image = """image"":""" & objDocElem.text & """}"
URL = "http://recognition.image.myqcloud.com/ocr/general"
With CreateObject("msxml2.xmlhttp")
.Open "POST", URL & "?", False '
.setRequestHeader "Host", "recognition.image.myqcloud.com"
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Authorization", ""
.send appid + Image
End With
Set objXML = Nothing
Set objDocElem = Nothing
Set objStream = Nothing
End Function
画横线的两行代码是定义图片的,第一行是图片连接,识别成功,第二行是定义图片base64编码的,识别报错了,请帮忙看看,错在哪里,是不是图片定义写法有问题
错误代码{"code":3,"message":"invalid request: parsing error - check content-type and body","data":{ "session_id":"10390471565310750" }}
在数据库中,int
类型通常不需要设置长度,因为它是一个固定大小的整数类型。不同数据库系统中 int
的存储大小和范围可能略有差异,但一般不需要像字符串那样指定长度参数。
int
类型:INT
是 4 字节(32 位)整数,范围是 -2,147,483,648 到 2,147,483,647。INT UNSIGNED
,范围是 0 到 4,294,967,295。INT(11)
中的 11
只是显示宽度(不影响存储),可以省略。INTEGER
是 4 字节(32 位)整数,范围与 MySQL 的 INT
相同。INT
是 4 字节(32 位)整数,范围与 MySQL 的 INT
相同。NUMBER(10)
表示 32 位整数(范围与 INT
类似),但 Oracle 没有直接的 INT
类型。BINARY_INTEGER
或 PLS_INTEGER
(在 PL/SQL 中)。int
是固定大小的整数类型,其存储大小由数据库系统决定(通常是 4 字节)。INT(11)
中的 11
只是显示宽度(用于某些客户端工具格式化输出),不影响实际存储。
如果需要在腾讯云上使用数据库,可以选用:
INT
类型,无需设置长度。INTEGER
类型。示例(MySQL):
CREATE TABLE users (
id INT, -- 正确写法,不需要长度
age INT UNSIGNED -- 无符号整数
);