Forum Post: RE: Run REST Client from Openedge

[rperuchet@hotmail.com]

I was afraid about this. We have implemented a alternative solution that works in Openedge. METHOD PUBLIC VOID CallGET( ): DEFINE VARIABLE oRequest AS System.Net.HttpWebRequest NO-UNDO. DEFINE VARIABLE oResponse AS System.Net.HttpWebResponse NO-UNDO. oRequest = CAST( System.Net.HttpWebRequest:Create( "http://10.0.0.0:54985/service/rest/client/client?Id=12345&Emp=11" ), System.Net.HttpWebRequest ). oRequest:Method = "GET". oRequest:Credentials = NEW System.Net.NetworkCredential("restmgr", "password"). oResponse = CAST( oRequest:GetResponse(), System.Net.HttpWebResponse ). txHeaders:Text = oResponse:StatusCode:ToString() + System.Environment:NewLine + oResponse:Headers:ToString(). txResponse:Text = StreamToChar( oResponse:GetResponseStream() ). CATCH ex AS Progress.Lang.Error : MESSAGE "ERROR" ex:GetMessage(1) VIEW-AS ALERT-BOX. END CATCH. END METHOD.

Continue reading...