（XD::InterNet:GetFileSize）获取网页文件的大小

marting

1. (defun XD::InterNet:GetFileSize (RemoteFileName / objHTTP Result)
   
2.   (if (setq objHTTP (vlax-create-object "WinHTTP.WinHTTPRequest.5.1"))
   
3.     (progn (setq Result        (vl-catch-all-apply
   
4.                           (function
   
5.                             (lambda ()
   
6.                               (vlax-invoke-method
   
7.                                 objHTTP        "Open" "HEAD" RemoteFileName :vlax-false)
   
8.                               (vlax-invoke objHTTP "Send")
   
9.                               (if (= (vlax-get-property objHTTP "Status") 200)
   
10.                                 (vlax-invoke-method
    
11.                                   objHTTP
    
12.                                   "GetResponseHeader"
    
13.                                   "Content-Length"
    
14.                                 )
    
15.                               )
    
16.                             )
    
17.                           )
    
18.                         )
    
19.            )
    
20.            (vlax-release-object objHTTP)
    
21.            (if (and Result (not (vl-catch-all-error-p Result)))
    
22.              (read Result)
    
23.            )
    
24.     )
    
25.   )
    
26. )
    
27. 
    

(defun XD::InterNet:GetFileSize (RemoteFileName / objHTTP Result)<br />   (if (setq objHTTP (vlax-create-object "WinHTTP.WinHTTPRequest.5.1"))<br />     (progn (setq Result        (vl-catch-all-apply<br />                           (function<br />                             (lambda ()<br />                               (vlax-invoke-method<br />                                 objHTTP        "Open" "HEAD" RemoteFileName :vlax-false)<br />                               (vlax-invoke objHTTP "Send")<br />                               (if (= (vlax-get-property objHTTP "Status") 200)<br />                                 (vlax-invoke-method<br />                                   objHTTP<br />                                   "GetResponseHeader"<br />                                   "Content-Length"<br />                                 )<br />                               )<br />                             )<br />                           )<br />                         )<br />            )<br />            (vlax-release-object objHTTP)<br />            (if (and Result (not (vl-catch-all-error-p Result)))<br />              (read Result)<br />            )<br />     )<br />   )<br /> )<br /> <br />

命令: (XD::INTERNET:GETFILESIZE "http://bbs.xdcad.net/forum.php")
2513