读取Internet上的文本文件

marting · 发表于 2021-1-13 19:48:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun vk_GetRemoteText (RemoteFileName / objHTTP Result)
(if (setq objHTTP (vlax-create-object "WinHTTP.WinHTTPRequest.5.1"))
(progn (setq
Result (vl-catch-all-apply
(function
(lambda ()
(vlax-invoke-method
objHTTP "Open"
"GET" RemoteFileName
:vlax-false
)
(vlax-invoke objHTTP "Send")
(vlax-get-property objHTTP "ResponseText")
)
)
)
)
(vlax-release-object objHTTP)
(if (not (vl-catch-all-error-p Result))
Result
)
)
)
)

(defun vk_GetRemoteText (RemoteFileName / objHTTP Result) 
    (if (setq objHTTP (vlax-create-object "WinHTTP.WinHTTPRequest.5.1")) 
        (progn (setq 
                   Result (vl-catch-all-apply 
                              (function 
                                  (lambda () 
                                      (vlax-invoke-method 
                                          objHTTP       "Open" 
                                          "GET"         RemoteFileName 
                                          :vlax-false 
                                         ) 
                                      (vlax-invoke objHTTP "Send") 
                                      (vlax-get-property objHTTP "ResponseText") 
                                  ) 
                              ) 
                          ) 
               ) 
               (vlax-release-object objHTTP) 
               (if (not (vl-catch-all-error-p Result)) 
                   Result 
               ) 
        ) 
    ) 
)

例如：(vk_GetRemoteText "http://abc.ocm/abc.txt")

huangpc27 · 发表于 2021-1-13 21:36:11

ocm应为com

账号		自动登录	找回密码
密码			立即注册

[每日一码] 读取Internet上的文本文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。