m.lcmoneyweb='http://www.razorcut.co.uk/'

CREATE CURSOR xtemp (mtemp m)
APPEND BLANK
REPLACE mtemp WITH ReadURL( m.lcmoneyweb)

BROWSE 


*
* Grab context from Internet
*
PROCEDURE READURL
LPARAMETERS pcUrlName
DECLARE INTEGER InternetOpen IN wininet.DLL STRING sAgent, ;
  INTEGER lAccessType, STRING sProxyName, ;
  STRING sProxyBypass, INTEGER lFlags

DECLARE INTEGER InternetOpenUrl IN wininet.DLL ;
  INTEGER hInternetSession, STRING sUrl, STRING sHeaders, ;
  INTEGER lHeadersLength, INTEGER lFlags, INTEGER lContext

DECLARE INTEGER InternetReadFile IN wininet.DLL INTEGER hfile, ;
  STRING @sBuffer, INTEGER lNumberofBytesToRead, INTEGER @lBytesRead

DECLARE short InternetCloseHandle IN wininet.DLL INTEGER hInst

#DEFINE INTERNET_OPEN_TYPE_PRECONFIG  0 
#DEFINE INTERNET_OPEN_TYPE_DIRECT  1 
#DEFINE INTERNET_OPEN_TYPE_PROXY  3 
#DEFINE SYNCHRONOUS  0 
#DEFINE INTERNET_FLAG_RELOAD  2147483648 
#DEFINE CR CHR( 13 )

LOCAL lsAgent, lhInternetSession, lhUrlFile, llOk, lnOk, lcRetVal, lcReadBuffer, lnBytesRead

* what application is using Internet services?
lsAgent = "VPF 5.0"

lhInternetSession = InternetOpen( lsAgent, INTERNET_OPEN_TYPE_PRECONFIG, ;
  '', '', SYNCHRONOUS)

* debugging line - uncomment to see session handle
* WAIT WINDOW "Internet session handle: " + LTRIM(STR(hInternetSession))

IF lhInternetSession =  0 
  WAIT WINDOW "Internet session cannot be established" TIME  2 
  RETURN .NULL.
ENDIF

lhUrlFile = InternetOpenUrl( lhInternetSession, pcUrlName, '',  0 , ;
  INTERNET_FLAG_RELOAD,  0 )

* debugging line - uncomment to see URL handle
* WAIT WINDOW "URL Handle: " + LTRIM(STR(hUrlFile))

IF lhUrlFile =  0 
  WAIT WINDOW "URL cannot be opened"
  RETURN .NULL.
ENDIF

lcRetVal = ""
llOk = .T.

DO WHILE llOk
* set aside a big buffer
  lsReadBuffer = SPACE( 32767 )
  lnBytesRead =  0 
  lnOk = InternetReadFile( lhUrlFile, @lsReadBuffer, LEN(lsReadBuffer), @lnBytesRead)

  IF ( lnBytesRead >  0  )
    lcRetVal = lcRetVal + LEFT( lsReadBuffer, lnBytesRead )
  ENDIF

* error trap - either a read failure or read past eof()
  llOk = ( lnOk =  1  ) AND ( lnBytesRead >  0  )
ENDDO

* close all the handles we opened
InternetCloseHandle( lhUrlFile )
InternetCloseHandle( lhInternetSession )

* return the URL contents
RETURN lcRetVal