Forum Post: OpenEdge.Net.HTTP infinite Looping

[CMI]

I'm trying to actually get the response data to disk but am getting to following error: However the code does not stop and goes into a infinite loop. Here my code below and I've been executing from the procedure editor. I don't have the fancy OE Developer IDE. USING OpenEdge.Net.HTTP.IHttpRequest. USING OpenEdge.Net.HTTP.IHttpResponse. USING OpenEdge.Net.HTTP.RequestBuilder. USING OpenEdge.Net.HTTP.ClientBuilder. USING OpenEdge.Core.String. USING OpenEdge.Core.WidgetHandle. USING Progress.Lang.Object. USING Progress.Json.ObjectModel.JsonObject. DEFINE VARIABLE oRequest AS IhttpRequest NO-UNDO. DEFINE VARIABLE oResponse AS IhttpResponse NO-UNDO. DEFINE VARIABLE httpUrl AS CHARACTER NO-UNDO. DEFINE VARIABLE oEntity AS OBJECT NO-UNDO. DEFINE VARIABLE XMLDocument AS HANDLE NO-UNDO. DEFINE VARIABLE payload AS LONGCHAR NO-UNDO. httpUrl = "http://www.progress.com". oRequest = RequestBuilder:Get(httpUrl,oEntity):Request. oResponse = ClientBuilder:Build():Client:Execute(oRequest). MESSAGE oResponse:StatusCode oResponse:StatusReason view-as alert-box info. CASE TRUE: WHEN TYPE-OF(oEntity, JsonObject) THEN CAST(oEntity,JsonObject):WriteFile('temp/payload.json', true). WHEN TYPE-OF(oEntity, WidgetHandle) THEN DO: MESSAGE 'Lookes LIke an XML document'. XMLDocument = CAST(oEntity, WidgetHandle ):Value. XMLDocument:Save('file','temp/payload.xml'). END. OTHERWISE DO: IF TYPE-OF(oEntity, String) THEN payload = CAST(oEntity, String):Value. ELSE payload = oEntity:ToString(). CASE oResponse:ContentType: WHEN 'application/xml' THEN COPY-LOB payload to file 'temp/payload.xml'. WHEN 'application/json' THEN COPY-LOB payload to file 'temp/payload.json'. WHEN 'text/html' THEN COPY-LOB payload to file 'temp/payload.html'. OTHERWISE COPY-LOB payload to file 'temp/payload.txt'. END CASE. END. END CASE.

Continue reading...