InetReadFile

InetReadFile

InetReadFile( hUrl , pData , iLenData)

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

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

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

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

Пример:

#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,"http://free-basic.ru/")

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

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Full-featured multi-format Help generator