PROSAGA码农传奇-openedge-open.mapquestapi.com上的Progress 4GL GET请求

<div class =“post-text”itemprop =“text”>
  <P>
    假设您使用的是最新版本的Progress OpenEdge（11.5+），您可以使用OpenEdge.Net.pl（也可在Unix上使用）来创建请求，以下（在Linux上运行）可以帮助您入门：
  </p>
  <P>
    <a href="https://abldojo.services.progress.com:443/#/?shareId=5b9064d6689ac207d7375047" rel="nofollow noreferrer">
      https://abldojo.services.progress.com:443/#/?shareId=5b9064d6689ac207d7375047
    </A>
  </p>
   <pre>
    <code>
      USING OpenEdge.Net.HTTP.RequestBuilder.
USING OpenEdge.Net.HTTP.ClientBuilder.
USING OpenEdge.Net.HTTP.IHttpRequest.
USING OpenEdge.Net.HTTP.IHttpResponse.
USING Progress.Json.ObjectModel.JsonArray.

define variable oRequest  as IHttpRequest no-undo.
define variable oResponse as IHttpResponse no-undo.
define variable oEntity   as Progress.Lang.Object no-undo.

oRequest    =   RequestBuilder
                    :Get(
                        "http://open.mapquestapi.com"
                        + "/nominatim/v1/search.php"
                        + "?key=WLrMQcGao56Cb5m4ulmwZZDOegO3BkZn"
                        + "&q=warszawa cha?ubi��skiego 8"
                        + "&addressdetails=1"
                        + "&limit=50"
                        + "&format=json"
                    )
                    :Request
                    .
oResponse = ClientBuilder:Build():Client:Execute( oRequest ).

oEntity = oResponse:Entity.

def var lcc as longchar no-undo.

cast( oEntity, JsonArray ):Write( lcc, true ).

message string( lcc ).

</code>
  </pre>
  <P>
    OpenEdge.Net.pl也只是使用ABL代码和套接字进行通信。
  </p>
</DIV>