接口输入 #xlsx 格式：
{"success":true,
"tables":"UEsDBBQAAAAIAAAAIQAR0e9YNAoAAIpUAAAYAAAA..." #base64 encoded excel file( base64编码的excel文件)
}
代码：
Dim e As RequestEventArgs = args(0)
Dim filepath As String = "d:\test.jpg"
Dim wb As New weui
Functions.Execute("图片压缩",filepath)
Dim bmp As new Bitmap(filepath)
Dim ms As new System.Io.MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()
Dim strbase64 As String = Convert.ToBase64String(arr)
bmp.dispose
Dim body As String = "{""inputs"":[{""image"":{""dataType"":50,""dataValue"":""" & strbase64 & """},""configure"":
{""dataType"":50,""dataValue"":{""format"":""xlsx"",""finance"":false}}}]}"
Dim appcode As String = "a7846e7bea1d14d848d913287591a4eb2"
Dim req = System.Net.WebRequest.Create("https://form.market.alicloudapi.com/api/predict/ocr_table_parse")
req.Method = "POST"
req.C
req.Headers.Add("Authorization", "APPCODE " & appcode)
Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
可以正常获取str信息
如果把输出存本地文件
以下代码不知道如何增加：请指点！万分感谢！！！
加好友 
发短信
Post By：2018/1/18 10:11:00 [只看该作者]
