GetContentSize

Синтаксис

Function GetContentSize(byval hUrl As HINTERNET) As ULongInt

Описание

Получает размер ресурса , задаваемый с помощью OpenUrl. Не всегда функция может возвратить размер ресурса. При удачном получении размера, функция GetLastError, следующая сразу за вызовом GetContentSize, возвратит 0. В противном случае функция GetLastError вернет код ошибки

Параметры

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

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HINTERNET hOpen,hUrl
Dim As ULongInt iSize
hOpen = InetOpen
hUrl = OpenUrl(hOpen,"http://users.freebasic-portal.de/freebasicru/user-files/Window9L.zip")
iSize = GetContentSize(hUrl)
If GetLastError = 0 Then
      MessBox("Интернет" , "Размер архива = " & iSize & " байт")
Else
      MessBox("Ошибка" , "Размер ресурса не может быть получен")
EndIf
InetFreeHandle(hOpen)
InetFreeHandle(hUrl)

Created with the Personal Edition of HelpNDoc: Easy CHM and documentation editor