Hi,
I wrote a python utility earlier in the year that checks connectivity, and optionally html file size, and optionally with credentials.
Are there some FW snippets that will accomplish the same thing? I already tried searching through Minigui and played with TIpClientHttp, and cannot find anything in the fwh distribution.
Some of the sites I'm checking are https ; some are http.
This works without credentials:
function WebPageContents( cUrl, lText ) --> cContents
For credentials we have to use:
user = "someusername"
password = "somepassword"
xmlhttp.setRequestHeader "Authorization", "Basic " + Base64Encode(user + ":" + password)
Here you have a working example with credentials:
Antonio Linares wrote:This works without credentials:
function WebPageContents( cUrl, lText ) --> cContents
For credentials we have to use:
user = "someusername"
password = "somepassword"
xmlhttp.setRequestHeader "Authorization", "Basic " + Base64Encode(user + ":" + password)
#include "fivewin.ch"
function WebPageContents( cUrl, lText )
local oHttp, cContents := ""
local nOle := 0
local aOle := { "MSXML2.XMLHTTP", "WINHTTP.WinHttpRequest.5.1" }
if Lower( Left( cUrl, 7 ) ) == "http://" .or. Lower( Left( cUrl, 8 ) ) == "https://"
do while Empty( cContents ) .and. nOle < 2
nOle++
TRY
oHttp := FWGetOleObject( aOle[ nOle ] )
oHttp:Open("GET", cUrl, .f. )
oHttp:Send()
DEFAULT lText := .f.
if lText
cContents := oHttp:ResponseText()
else
cContents := oHttp:ResponseBody()
endif
CATCH
END
enddo
endif
return cContents
//----------------------------------------------------------------------------//D.
> Which library has olefuncs.prg already linked in?
FiveH.lib
Never mind. I typed build.bat, rather than buildh.bat. Everything's good.