如何将图片转换为base64后的数据发送到远程服务器上识别图片文字

dcl1214

图片被转换为base64后，如何发送到远程ocr服务器，请看下文

1. (defun $umi-ocr-recognize$ (ip port base64Data f)
   
2.   ;调用方法：(setq txts ($umi-ocr-recognize$ ip port ($tu-pian-base64$ "C:/123.png") "/api/ocr"))
   
3.   (if (and ip port base64Data)
   
4.     (progn
   
5.       (if (not f)
   
6.   (setq f "/api/ocr")
   
7.   ;; 默认端点
   
8.       )
   
9.       (setq fullUrl (strcat ip ":" port f))
   
10.       (setq winHttp (vl-catch-all-apply
    
11.           'vlax-create-object
    
12.           (list "WinHttp.WinHttpRequest.5.1")
    
13.         )
    
14.       )
    
15.       (if (vl-catch-all-error-p winHttp)
    
16.   (progn (princ "无法创建HTTP对象") (setq winHttp nil))
    
17.       )
    
18.       (if winHttp
    
19.   (progn
    
20.     ;; 构造请求体
    
21.     (setq  requestBody
    
22.      (strcat
    
23.        "{"      "\"images\":[\""
    
24.        base64Data    "\"],"
    
25.        "\"language\":\"chs+eng\","
    
26.        "\"det\":true,"  "\"rec\":true,"
    
27.        "\"cls\":false"  "}"
    
28.       )
    
29.     )
    
30.     ;; 发送请求
    
31.     (vl-catch-all-apply
    
32.       'vlax-invoke-method
    
33.       (list
    
34.         winHttp "Open" "POST" fullUrl :vlax-false)
    
35.     )
    
36.     (vl-catch-all-apply
    
37.       'vlax-invoke-method
    
38.       (list
    
39.         winHttp
    
40.         "SetRequestHeader"
    
41.         "Content-Type"
    
42.         "application/json"
    
43.       )
    
44.     )
    
45.     (vl-catch-all-apply
    
46.       'vlax-invoke-method
    
47.       (list winHttp "Send" requestBody)
    
48.     )
    
49.     (vl-catch-all-apply
    
50.       'vlax-invoke
    
51.       (list winHttp "WaitForResponse")
    
52.     )
    
53.     ;; 处理响应
    
54.     (setq  status (vl-catch-all-apply
    
55.        'vlax-get-property
    
56.        (list winHttp "Status")
    
57.            )
    
58.     )
    
59.     (setq  response (vl-catch-all-apply
    
60.          'vlax-get-property
    
61.          (list winHttp "ResponseText")
    
62.        )
    
63.     )
    
64.     (vl-catch-all-apply 'vlax-release-object (list winHttp))
    
65.     (if (= status 200)
    
66.       t
    
67.       (progn
    
68.         (princ (strcat "错误: HTTP " (itoa status)))
    
69.         nil
    
70.       )
    
71.     )
    
72.   )
    
73.   nil
    
74.       )
    
75.     )
    
76.   )
    
77.   response
    
78. )

(defun $umi-ocr-recognize$ (ip port base64Data f)<br />   ;调用方法：(setq txts ($umi-ocr-recognize$ ip port ($tu-pian-base64$ "C:/123.png") "/api/ocr"))<br />   (if (and ip port base64Data)<br />     (progn<br />       (if (not f)<br />   (setq f "/api/ocr")<br />   ;; 默认端点<br />       )<br />       (setq fullUrl (strcat ip ":" port f))<br />       (setq winHttp (vl-catch-all-apply<br />           'vlax-create-object<br />           (list "WinHttp.WinHttpRequest.5.1")<br />         )<br />       )<br />       (if (vl-catch-all-error-p winHttp)<br />   (progn (princ "无法创建HTTP对象") (setq winHttp nil))<br />       )<br />       (if winHttp<br />   (progn<br />     ;; 构造请求体<br />     (setq  requestBody<br />      (strcat<br />        "{"      "\"images\":[\""<br />        base64Data    "\"],"<br />        "\"language\":\"chs+eng\","<br />        "\"det\":true,"  "\"rec\":true,"<br />        "\"cls\":false"  "}"<br />       )<br />     )<br />     ;; 发送请求<br />     (vl-catch-all-apply<br />       'vlax-invoke-method<br />       (list<br />         winHttp "Open" "POST" fullUrl :vlax-false)<br />     )<br />     (vl-catch-all-apply<br />       'vlax-invoke-method<br />       (list<br />         winHttp<br />         "SetRequestHeader"<br />         "Content-Type"<br />         "application/json"<br />       )<br />     )<br />     (vl-catch-all-apply<br />       'vlax-invoke-method<br />       (list winHttp "Send" requestBody)<br />     )<br />     (vl-catch-all-apply<br />       'vlax-invoke<br />       (list winHttp "WaitForResponse")<br />     )<br />     ;; 处理响应<br />     (setq  status (vl-catch-all-apply<br />        'vlax-get-property<br />        (list winHttp "Status")<br />            )<br />     )<br />     (setq  response (vl-catch-all-apply<br />          'vlax-get-property<br />          (list winHttp "ResponseText")<br />        )<br />     )<br />     (vl-catch-all-apply 'vlax-release-object (list winHttp))<br />     (if (= status 200)<br />       t<br />       (progn<br />         (princ (strcat "错误: HTTP " (itoa status)))<br />         nil<br />       )<br />     )<br />   )<br />   nil<br />       )<br />     )<br />   )<br />   response<br /> )

tranque

感谢楼主无私分享

crtrccrt

没有给出OCR服务器实际地址+端口