[Progress Communities] [Progress OpenEdge ABL] Forum Post: Problem when running HTTP request from ABL procedure.

[marekk]

Hi, I have a problem running the HTTP request for a site with unknown cipher set. The error 9318 appears (file Test_HTTP.p). However, when I run the request from a WebClient (TestWebClient.p), everything goes fine. Do you have any idea why is that? Best regards, Marek //------------------------------------------------------------------------ // File : Test_HTTP.p /* *************************** Definitions ************************** */ USING OpenEdge.Net.HTTP.IHttpRequest. USING OpenEdge.Net.HTTP.IHttpResponse. USING OpenEdge.Net.HTTP.ClientBuilder. USING OpenEdge.Net.HTTP.RequestBuilder. USING OpenEdge.Net.HTTP.IHttpClientLibrary. USING OpenEdge.Net.HTTP.Lib.ClientLibraryBuilder. USING System.IO.* . USING System.Text.* . USING progress.Json.*. USING progress.Json.ObjectModel.* . /* *************************** Definitions ************************** */ /* ******************** Preprocessor Definitions ******************** */ DO ON ERROR UNDO, THROW: DEFINE VARIABLE question AS CHARACTER NO-UNDO. /* ******************** Preprocessor Definitions ******************** */ /* *************************** Main Block *************************** */ DEFINE VARIABLE oLib AS IHttpClientLibrary NO-UNDO. DEFINE VARIABLE cSSLProtocols AS CHARACTER EXTENT NO-UNDO. DEFINE VARIABLE cSSLCiphers AS CHARACTER EXTENT NO-UNDO. DEFINE VARIABLE oJsonEntity AS JsonObject NO-UNDO. DEFINE VARIABLE JsonString AS LONGCHAR NO-UNDO. // the size and values of the SSL protocols and ciphers depend on the server EXTENT(cSSLProtocols) = 2. EXTENT(cSSLCiphers) = 10. // Supported ciphers and protocols at documentation.progress.com/.../supported-protocols,-ciphers,-and-certificates-f.html ASSIGN cSSLProtocols[1] = 'TLSv1.2' cSSLProtocols[2] = 'TLSv1.1' cSSLCiphers[1] = 'AES128-SHA256' cSSLCiphers[2] = 'DHE-RSA-AES128-SHA256' cSSLCiphers[3] = 'AES128-GCM-SHA256' cSSLCiphers[4] = 'DHE-RSA-AES128-GCM-SHA256' cSSLCiphers[5] = 'ADH-AES128-SHA256' cSSLCiphers[6] = 'ADH-AES128-GCM-SHA256' cSSLCiphers[7] = 'ADH-AES256-SHA256' cSSLCiphers[8] = 'AES256-SHA256' cSSLCiphers[9] = 'DHE-RSA-AES256-SHA256' cSSLCiphers[10] = 'AES128-SHA' oLib = ClientLibraryBuilder :Build() :SetSslProtocols(cSSLProtocols) :SetSslCiphers(cSSLCiphers) :sslVerifyHost(NO) :Library. question = " wl-api.mf.gov.pl/.../ . DEFINE VARIABLE oRequest AS IHttpRequest NO-UNDO. DEFINE VARIABLE oResponse AS IHttpResponse NO-UNDO. oRequest = RequestBuilder:Get(question):Request. oResponse = ClientBuilder:Build():UsingLibrary(oLib):Client:Execute(oRequest). oJsonEntity = CAST(oResponse:Entity, JsonObject). oJsonEntity:Write(JsonString, TRUE). MESSAGE STRING(JsonString) VIEW-AS ALERT-BOX. END . CATCH eAnyError AS Progress.Lang.Error: MESSAGE "Error Number:" eAnyError:GetMessageNum(1) SKIP "Error Text:t" eAnyError:GetMessage(1) VIEW-AS ALERT-BOX BUTTONS OK TITLE "Error processing in the CATCH for mainprocedure block". RETURN 'OK' . END CATCH. ----------------------------------------------------------------------------------------------------------------------------------------------------------- //------------------------------------------------------------------------ // File : TestWebClient.p /* *************************** Definitions ************************** */ /* ******************** Preprocessor Definitions ******************** */ /* *************************** Main Block *************************** */ DEFINE VARIABLE xClient AS System.Net.WebClient . DEFINE VARIABLE xWyn AS LONGCHAR NO-UNDO. DEFINE VARIABLE question AS CHARACTER NO-UNDO. question = " wl-api.mf.gov.pl/.../ . DO ON ERROR UNDO, THROW: System.Net.ServicePointManager:SecurityProtocol = System.Net.SecurityProtocolType:Tls12 . xClient = NEW System.Net.WebClient () . xWyn = xClientownloadString ( question ) . MESSAGE STRING(xWyn) VIEW-AS ALERT-BOX. END . CATCH eAnyError AS Progress.Lang.Error: MESSAGE "Error Number:" eAnyError:GetMessageNum(1) SKIP "Error Text:t" eAnyError:GetMessage(1) VIEW-AS ALERT-BOX BUTTONS OK TITLE "Error processing in the CATCH for mainprocedure block". RETURN 'OK' . END CATCH.

Continue reading...