GetHTTPHeader

Синтаксис

Function GetHTTPHeader(byval hUrl As HINTERNET) As String

Описание

Получает заголовок заданного ресурса

Параметры

hUrl - хендл , полученный с помощью функции OpenUrl

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HINTERNET hOpen,hUrl
hOpen = InetOpen
hUrl = OpenUrl(hOpen,"http://freebasic.net/")
? GetHTTPHeader(hUrl)
InetFreeHandle(hOpen)
InetFreeHandle(hUrl)
sleep

Результат

HTTP/1.1 200 OK
Last-Modified: Wed, 02 Aug 2017 18:30:25 GMT
Content-Type: text/html
Content-Length: 7628
Accept-Ranges: bytes
Date: Sat, 16 Mar 2019 05:30:38 GMT
Server: LiteSpeed
Alt-Svc: quic=":443"; ma=2592000; v="35,39,43,44"
Connection: close

Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites