（XD::InterNet:GetUrlHeader）获取网址文件头内容

marting

1. (defun XD::InterNet:GetUrlHeader (url header / 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" url :vlax-false)
   
8.                               (vlax-invoke objHTTP "Send")
   
9.                               (if (= (vlax-get-property objHTTP "Status") 200)
   
10.                                 (vlax-invoke-method
    
11.                                   objHTTP
    
12.                                   "GetResponseHeader"
    
13.                                   header
    
14.                                 )
    
15.                               )
    
16.                             )
    
17.                           )
    
18.                         )
    
19.            )
    
20.            (vlax-release-object objHTTP)
    
21.            (if (and Result (not (vl-catch-all-error-p Result)))
    
22.              result
    
23.            )
    
24.     )
    
25.   )
    
26. )
    

(defun XD::InterNet:GetUrlHeader (url header / 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" url :vlax-false)<br />                               (vlax-invoke objHTTP "Send")<br />                               (if (= (vlax-get-property objHTTP "Status") 200)<br />                                 (vlax-invoke-method<br />                                   objHTTP<br />                                   "GetResponseHeader"<br />                                   header<br />                                 )<br />                               )<br />                             )<br />                           )<br />                         )<br />            )<br />            (vlax-release-object objHTTP)<br />            (if (and Result (not (vl-catch-all-error-p Result)))<br />              result<br />            )<br />     )<br />   )<br /> )<br />

获取INTERNET时间：
命令: (xd::internet:geturlheader "http://baidu.com" "date")
"Fri, 16 Mar 2018 04:37:07 GMT"

cable2004

能改成arx版本获取网络时间吗？

1.     DWORD dwSize = 0;
   
2.     DWORD dwDownloaded = 0;
   
3.     LPSTR pszOutBuffer;
   
4.     BOOL  bResults = FALSE;
   
5.     HINTERNET  hSession = NULL,
   
6.                hConnect = NULL,
   
7.                hRequest = NULL;
   
8. 
   
9.     // Use WinHttpOpen to obtain a session handle.
   
10.     hSession = WinHttpOpen( L"WinHTTP Example/1.0",  
    
11.                             WINHTTP_ACCESS_TYPE_DEFAULT_PROXY,
    
12.                             WINHTTP_NO_PROXY_NAME,
    
13.                             WINHTTP_NO_PROXY_BYPASS, 0);
    
14. 
    
15.     // Specify an HTTP server.
    
16.     if (hSession)
    
17.         hConnect = WinHttpConnect( hSession, L"www.baidu.com",
    
18.                                    INTERNET_DEFAULT_HTTPS_PORT, 0);
    
19. 
    
20.     // Create an HTTP request handle.
    
21.     if (hConnect)
    
22.         hRequest = WinHttpOpenRequest( hConnect, L"GET", NULL,
    
23.                                        NULL, WINHTTP_NO_REFERER,
    
24.                                        WINHTTP_DEFAULT_ACCEPT_TYPES,
    
25.                                        WINHTTP_FLAG_SECURE);
    
26. 
    
27.     // Send a request.
    
28.     if (hRequest)
    
29.         bResults = WinHttpSendRequest( hRequest,
    
30.                                        WINHTTP_NO_ADDITIONAL_HEADERS,
    
31.                                        0, WINHTTP_NO_REQUEST_DATA, 0,
    
32.                                        0, 0);
    
33. 
    
34. 
    
35.     // End the request.
    
36.     if (bResults)
    
37.         bResults = WinHttpReceiveResponse( hRequest, NULL);
    
38. 
    
39.     // Keep checking for data until there is nothing left.
    
40.     if (bResults)
    
41.     {
    
42.         do
    
43.         {
    
44.             // Check for available data.
    
45.             dwSize = 0;
    
46.             if (!WinHttpQueryDataAvailable( hRequest, &dwSize))
    
47.             {
    
48.                 printf( "Error %u in WinHttpQueryDataAvailable.\n",
    
49.                         GetLastError());
    
50.                 break;
    
51.             }
    
52.             
    
53.             // No more available data.
    
54.             if (!dwSize)
    
55.                 break;
    
56. 
    
57.             // Allocate space for the buffer.
    
58.             pszOutBuffer = new char[dwSize+1];
    
59.             if (!pszOutBuffer)
    
60.             {
    
61.                 printf("Out of memory\n");
    
62.                 break;
    
63.             }
    
64.             
    
65.             // Read the Data.
    
66.             ZeroMemory(pszOutBuffer, dwSize+1);
    
67. 
    
68.             if (!WinHttpReadData( hRequest, (LPVOID)pszOutBuffer,
    
69.                                   dwSize, &dwDownloaded))
    
70.             {                                 
    
71.                 printf( "Error %u in WinHttpReadData.\n", GetLastError());
    
72.             }
    
73.             else
    
74.             {
    
75.                 printf("%s", pszOutBuffer);
    
76.             }
    
77.         
    
78.             // Free the memory allocated to the buffer.
    
79.             delete [] pszOutBuffer;
    
80. 
    
81.             // This condition should never be reached since WinHttpQueryDataAvailable
    
82.             // reported that there are bits to read.
    
83.             if (!dwDownloaded)
    
84.                 break;
    
85.                
    
86.         } while (dwSize > 0);
    
87.     }
    
88.     else
    
89.     {
    
90.         // Report any errors.
    
91.         printf( "Error %d has occurred.\n", GetLastError() );
    
92.     }
    
93. 
    
94.     // Close any open handles.
    
95.     if (hRequest) WinHttpCloseHandle(hRequest);
    
96.     if (hConnect) WinHttpCloseHandle(hConnect);
    
97.     if (hSession) WinHttpCloseHandle(hSession);
    

复制代码