如何将图片转换为base64便于发送到ocr服务器识别图片文字

dcl1214

很多ocr服务器接受图片的时候需要base64的数据，例如： Umi-ocr ，如何将图片转换为base64呢，请看下文

1. (defun $tu-pian-base64$  (imagePath / adoStream xmlDoc node result)
   
2.   ;调用示例：(setq base64-data ($tu-pian-base64$ "C:/123.png"))
   
3.   (setq  adoStream (vl-catch-all-apply
   
4.         'vlax-create-object
   
5.         (list "ADODB.Stream")
   
6.       )
   
7.   )
   
8.   (setq  xmlDoc (vl-catch-all-apply
   
9.      'vlax-create-object
   
10.      (list "MSXML2.DOMDocument")
    
11.          )
    
12.   )
    
13.   (if (vl-catch-all-error-p adoStream)
    
14.     (progn (princ "无法创建ADODB.Stream对象")
    
15.      (setq adoStream nil)
    
16.     )
    
17.   )
    
18.   (if (vl-catch-all-error-p xmlDoc)
    
19.     (progn (princ "无法创建XML文档对象") (setq xmlDoc nil))
    
20.   )
    
21.   (if (and adoStream xmlDoc)
    
22.     (progn
    
23.       (vl-catch-all-apply
    
24.   'vlax-put-property
    
25.   (list adoStream "Type" 1)
    
26.       )
    
27.       (vl-catch-all-apply 'vlax-invoke (list adoStream "Open"))
    
28.       (vl-catch-all-apply
    
29.   'vlax-invoke
    
30.   (list adoStream "LoadFromFile" imagePath)
    
31.       )
    
32.       (setq node (vl-catch-all-apply
    
33.        'vlax-invoke-method
    
34.        (list xmlDoc "createElement" "temp")
    
35.      )
    
36.       )
    
37.           ; 将二进制数据写入XML节点
    
38.       (vl-catch-all-apply
    
39.   'vlax-put-property
    
40.   (list node "dataType" "bin.base64")
    
41.       )
    
42.       (vl-catch-all-apply
    
43.   'vlax-put-property
    
44.   (list
    
45.     node
    
46.     "nodeTypedValue"
    
47.     (vlax-invoke-method adoStream "Read" -1)
    
48.   )
    
49.       )
    
50.       (setq result (vl-catch-all-apply
    
51.          'vlax-get-property
    
52.          (list node "text")
    
53.        )
    
54.       )          ; 获取Base64字符串
    
55.       (vl-catch-all-apply
    
56.   'vlax-invoke-method
    
57.   (list adoStream "Close")
    
58.       )          ; 清理对象
    
59.       (vl-catch-all-apply 'vlax-release-object (list adoStream))
    
60.       (vl-catch-all-apply 'vlax-release-object (list xmlDoc))
    
61.       result
    
62.     )
    
63.   )
    
64.   result
    
65. )

(defun $tu-pian-base64$  (imagePath / adoStream xmlDoc node result)<br />   ;调用示例：(setq base64-data ($tu-pian-base64$ "C:/123.png"))<br />   (setq  adoStream (vl-catch-all-apply<br />         'vlax-create-object<br />         (list "ADODB.Stream")<br />       )<br />   )<br />   (setq  xmlDoc (vl-catch-all-apply<br />      'vlax-create-object<br />      (list "MSXML2.DOMDocument")<br />          )<br />   )<br />   (if (vl-catch-all-error-p adoStream)<br />     (progn (princ "无法创建ADODB.Stream对象")<br />      (setq adoStream nil)<br />     )<br />   )<br />   (if (vl-catch-all-error-p xmlDoc)<br />     (progn (princ "无法创建XML文档对象") (setq xmlDoc nil))<br />   )<br />   (if (and adoStream xmlDoc)<br />     (progn<br />       (vl-catch-all-apply<br />   'vlax-put-property<br />   (list adoStream "Type" 1)<br />       )<br />       (vl-catch-all-apply 'vlax-invoke (list adoStream "Open"))<br />       (vl-catch-all-apply<br />   'vlax-invoke<br />   (list adoStream "LoadFromFile" imagePath)<br />       )<br />       (setq node (vl-catch-all-apply<br />        'vlax-invoke-method<br />        (list xmlDoc "createElement" "temp")<br />      )<br />       )<br />           ; 将二进制数据写入XML节点<br />       (vl-catch-all-apply<br />   'vlax-put-property<br />   (list node "dataType" "bin.base64")<br />       )<br />       (vl-catch-all-apply<br />   'vlax-put-property<br />   (list<br />     node<br />     "nodeTypedValue"<br />     (vlax-invoke-method adoStream "Read" -1)<br />   )<br />       )<br />       (setq result (vl-catch-all-apply<br />          'vlax-get-property<br />          (list node "text")<br />        )<br />       )          ; 获取Base64字符串<br />       (vl-catch-all-apply<br />   'vlax-invoke-method<br />   (list adoStream "Close")<br />       )          ; 清理对象<br />       (vl-catch-all-apply 'vlax-release-object (list adoStream))<br />       (vl-catch-all-apply 'vlax-release-object (list xmlDoc))<br />       result<br />     )<br />   )<br />   result<br /> )