>>LOCAL HttpRequest AS MSXML2.ServerXMLHTTP60 >>LOCAL HttpResponseEndPoint AS String >>LOCAL Reply AS String >> >>m.HttpResponseEndPoint = "https://www.levelextreme.com" >> >>m.HttpRequest = CREATEOBJECT("MSXML2.ServerXMLHTTP.6.0") >> >>m.HttpRequest.Open("GET", m.HttpResponseEndPoint, .F.) >>m.HttpRequest.Send() >> >>m.Reply = m.HttpRequest.Responsetext >> >>? m.Reply >>>
>m.HttpRequest = CREATEOBJECT("MSXML2.ServerXMLHTTP.6.0") >m.HttpRequest.AddParameter("grant_type", "password") >>
m.HttpRequest.Open("POST", m.HttpResponseEndPoint, .F.) m.HttpRequest.Send("grant_type=password")To set request headers:
m.HttpRequest.SetRequestHeader("HeaderName", "HeaderValue")