InetReadFile

Синтаксис

Function InetReadFile(byval hUrl As HINTERNET, byval psData As Any Ptr, byval iLenData As Integer) As Integer

Описание

Функция позволяет считывать данные, используя указатель, полученный в результате вызова OpenUrl.

Параметры

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

psData - выделенный буфер памяти для получения данных

iLenData - размер в байтах получаемых данных, обычно равен размеру буфера psData

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd
Dim As String*1024 sData
Dim As String sRet
Dim As Integer iBytes
hwnd=OpenWindow("",10,10,640,660) : CenterWindow(hwnd)
Dim As HINTERNET hOpen,hUrl
hOpen = InetOpen
hUrl = OpenUrl(hOpen,"https://freebasic.net/forum/")
Do
      sRet &= Left(sData , iBytes)
      iBytes = InetReadFile(hUrl,Cast(String Ptr,@sData),1024)
Loop Until iBytes = 0
EditorGadget(1,10,10,600,600,sRet)
Do
      event=WaitEvent()
      If Event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad