FiveTech Support Forums

Hi All

How can I do basic authentification

I retrieve a Uri

oHttp:= TIpClientHttp():new("http://localhost:8080/accountright" )
if oHttp:open()
cItems := oHttp:ReadAll()
else
MsgInfo( "Connection error:" + oHttp:lastErrorMessage())
endif

hb_jsondecode( cItems, @hJson )
for i := 1 to len(hJson)
cId := hJson[i,"Name"]
if substr(cId,1,3) == 'Kas'
cUri := hJson[i,"Uri"]
endif
next
cBasic := hb_base64Encode('user:pass') // username password

I need to send cBasic with the cUri but dont how how.

Regards

Colin

Colin,



EMG

Hi Enrico

Thanks I have it working.
oUrl := TUrl():new( cUri )
oUrl:cUserid := 'user'
oUrl:cPassword := 'pass'
oHttp1:= TIpClientHttp():new( oUrl, .T. )
oHttp1:UseBasicAuth()
if oHttp1:open()
cItems2 := oHttp1:ReadAll()
MEMOWRIT( "MYRESULT1.TXT", cItems2 )
else
MsgInfo( "Connection error:" + oHttp1:lastErrorMessage())
endif

Regards

Colin