Webservice connecting to https

[cdmmaui]

Hello Everyone,

Does someone have an example connecting to HTTPS based web service and reading JSON data from FWH?

Thank you,

[Marc Venken]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=42433&sid=1473b69de815dfb346ebdda3b89037a6

[cdmmaui]

Thank you Marc.

Is there a sample for HTTPS connection to retrieve the JSON data or can I use code below?

TRY
oHttp := CreateObject( 'MSXML2.XMLHTTP' )
CATCH
oHttp := CreateObject( 'Microsoft.XMLHTTP' )
END

TRY
oHttp:Open( "GET", cUrl, .F.)
oHttp:SetRequestHeader( "KeyId", "xxx" )
oHttp:SetRequestHeader( "Accept", "*/*" )
oHttp:SetRequestHeader( "Content-Type", "application/json" )

oHttp:Send()
oHttp:waitForResponse()
IF oHttp:Status == 200
Sysrefresh()
cWinResp := oHttp:ResponseBody
MsgAlert( cWinResp, Ptitle )
ENDIF
CATCH oError
MsgAlert( oError:Description, Ptitle )
RETURN (.F.)
END