社区 › AutoLISP/Visual LISP 编程技术 › 检查远程ocr服务器是否启动了

dcl1214 发表于 3 天前

检查远程ocr服务器是否启动了

调用ocr服务器的时候，需要提前判断ocr服务器是否启动，请看下文(defun $check-umi-ocr$ (ip port)
;调用示例：($check-umi-ocr$ "http://127.0.0.1" "1224")
(if (and ip port)
    (progn
      (setq winHttp (vl-catch-all-apply
          'vlax-create-object
          (list "WinHttp.WinHttpRequest.5.1")
      )
      )
      (if (vl-catch-all-error-p winHttp)
(progn (princ "无法创建HTTP对象") (setq winHttp nil))
      )
      (if winHttp
(progn
    (vl-catch-all-apply
      'vlax-invoke-method
      (list
      winHttp
      "Open"
      "GET"
      (strcat ip ":" port)
      :vlax-false
      )
    )
    (vl-catch-all-apply
      'vlax-invoke-method
      (list winHttp "Send")
    )
    (setqstatus (vl-catch-all-apply
       'vlax-get-property
       (list winHttp "Status")
         )
    )
    (vl-catch-all-apply 'vlax-release-object (list winHttp))

    (if (= status 200)
      (setq check t)
      (progn
      (setq check nil)
      (princ
    (strcat "\n? Umi-OCR服务异常，HTTP状态: " (itoa status))
      )
      )
    )
)
      )
    )
)
check
)

crtrccrt 发表于 3 天前

本帖最后由 crtrccrt 于 2025-12-9 16:51 编辑

(itoa status)
改用
(vl-princ-to-string status)

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

查看完整版本: 检查远程ocr服务器是否启动了