View Replies (1)
Resolved HTTPS connectivity in PowerBuilder 2022
  1. Issue
0 Votes
  1. Amna Khalid
  2. PowerBuilder
  3. Monday, 23 September 2024 04:49 AM UTC

Hi,

 

This is my code snippet of function

string ls_xml_request , ls_soap_action_url

ls_xml_request = netsol==wkGMBU2ghaXACzMLz5ln+U cmsVM033-BMW-APP


ls_soap_action_url= https://tempuri.org/ILoginManager/LoginUser

 

    

 

  httpClient              lhc_client
  integer                  li_ret , li_StatusCode
  string                    ls_url,ls_xml_request, ls_ret, ls_data,ls_value =""        
  Constant Integer SECURE_PROTOCOL_TLS2 =0

   gs_server_name =  '10.32.191.33:49157'  //global vaiable name         
  ls_url= "https://"+gs_server_name+"/WKFLoginManager.svc/Login"
 

  lhc_client = Create httpClient
  lhc_client.SetRequestHeader("Accept-Encoding","gzip,deflate")
  lhc_client.SetRequestHeader("SOAPAction",ls_soap_action_url)
  lhc_client.SetRequestHeader("Content-Type", "text/xml;charset=utf-8")


  lhc_client.SecureProtocol = SECURE_PROTOCOL_TLS2 
  li_ret = lhc_client.sendrequest("POST", ls_url,ls_xml_request )
  li_StatusCode = lhc_client.GetResponseStatusCode()
  ls_ret = lhc_client.GetResponseStatusText( )
  li_ret = lhc_client.getresponsebody(ls_xml_request)
  string result= ls_xml_request
  destroy lhc_client

  IF li_StatusCode = 200 THEN
    PBDOM_Builder                    lpbdom_builder
    pbdom_document                lpbdom_doc
    lpbdom_builder = CREATE PBDOM_BUILDER
    lpbdom_doc = CREATE PBDOM_DOCUMENT

    TRY
    // generate XML Document
    lpbdom_Doc = lpbdom_Builder.BuildFromString(ls_xml_request)

    try
    ls_value = lpbdom_Doc.GetRootElement().&
    GetChildElement("Body", "s","http://schemas.xmlsoap.org/soap/envelope/").&
    GetChildElement(as_soap_action+"Response","","http://tempuri.org/").&
    GetChildElement(as_soap_action+"Result","","http://tempuri.org/").getText()
    //ll_ret = long(ls_value)
    CATCH (runtimeerror err) 
    MessageBox( "PBDOM_Exception", err.getMessage())
    end try

    CATCH (PBDOM_Exception lpbdom_Except)
    MessageBox( "PBDOM_Exception", lpbdom_Except.GetExceptionCode())
    END TRY
    return ls_value
    DESTROY lpbdom_Builder
  ELSE
    return ls_value
    //MessageBox("Error","Login data cannot be retrieved for HTTPs")  
  END IF  

 

 

 

 when i run this code li_ret  return -19 in below line of code if put SECURE_PROTOCOL_TLS0 as only SSL protocol is enabled while TLS1.0,1.1,1.2,1.3   are disabled. if i enable tls 1.3 then put secure protocol value 6 then this function returns 1 but then Get response status code return 500. i want to do Communication through HTTPS. Please help me to resolve this issue. i have tried with other protocols but with no success.
  li_ret = lhc_client.sendrequest("POST", ls_url,ls_xml_request )

 

power builder version 6 solution for a query Free Trial version of PowerBuilder 2022 R3: No Database Inte...
Responses (1)
  1. Likes
  2. Latest
  3. Oldest

Find Questions by Tag

.EXE .NET 6.0 .NET Assembly .NET Core 3.1 .NET Core Framework .NET DataStore .NET Std Framework 32-bit 64-bit ADO.NET AEM AI Algorithm Amazon AWS Android Apache API APK App Store App Store (Apple) Appeon Workspace Appeon Xcelerator Plug-in Architecture Array ASE Asynchronous Methods Authentication AutoBuild AutoCompiler Automated Testing Automation AutoScript Azure Barcode Base64 Batch BigData BLOB Branch & Merge Browser Bug Build Button C# C# Class Importer C# Editor C# Model generator Calendar Camera Certificate Chrome Citrix Class Client Client/Server Cloud Cluster Collection COM Command Line Compiler Compression Computed Field Configuration Controls Cookies Cordova Crash Cross-Platform Crosstab CSharpAssembly CSharpObject CSS CSV Cursor Data Database Database Driver Database Painter Database Profile Database Provider DataObject DataSource DataStore DataStore (C#) DataStore (PS) DataType DataWindow DATE DATETIME DB2 Debug Debugger Debugging Deployment Design DLL DO-WHILE Dockable Docker Documentation DOUBLE Download DragDrop Edge Edit Style Editor Elevate Conference Email Embedded SQL Emulator Encoding Encryption Enhancement Request Entity Entity Framework ERP Error Event Event Handler Event Handling Excel Exception Export Expression External Functions F# Field File File Access Filter Firefox Firewall Font FOR-NEXT Foreground Format Function Garbage Collection GeoLocation Git Graph HANA Hash Header HTML/5 HTTP/S HTTPClient Icon IDE Identity IIS IMAPI Import InfoMaker Inheritance Installation Integer IntelliSense Interface Internet Internet Explorer iOS IPA iPad iPhone IWA J# Java JavaScript JBoss JDBC JOIN JSON JSONGenerator JSONParser Kestrel Label Lambda Large File LDAP Library License LINQ Linux OS Load Balancing Localization Localized PBVM Log In Log Out Logging LONG LONGLONG macOS MAPI Maps MDI Memory Memory Leak Menu Merge MessageBox Messagging Method Migration MIME TYPE Mobile Model ModelStore ModelStore (C#) MSOLEDBSQL Multi Threading MVC MySQL n-Tier Namespace NativePDF NVO OAuth ODATA ODBC Office Offline OLE OLEDB Online Open Source OpenAPI OpenSSL Oracle OrcaScript Other Outlook Output Package Parameter Patch PayPal PB Classic PB Native PB.NET PBC PBD PBDOM PBG PBJVM PBL PBNI PBORCA PBVM PBX PDF Performance Permission PFC Picture Pipeline Play Store (Google) Plugin Popup Port POST PostgreSQL PowerBuilder PowerBuilder (Appeon) PowerBuilder (SAP) PowerBuilder Compiler PowerBuilder Runtime PowerClient PowerScript (PS) PowerScript IDE PowerScript Migrator PowerServer PowerServer Mobile PowerServer Toolkit PowerServer Web PowerServerLabel Print Properties Proxy Publish PULL PUSH Query Regression Release Renew Resize Response REST Retrieve RibbonBar RibbonBar Builder Rich Text Roadmap RPC Runtime Packager SaaS Scaffolding Script SDI SDK Security Server Service Session Single Sign-on Size SMTP SMTPClient SnapDevelop SOAP Sort Source Code Speech Recognition SQL SQL Anywhere SQL Server SqlBuilder SqlExecutor SQLite SqlModelMapper Storage Stored Procedure Subscription SVN Swagger Syntax TabbedBar TabbedView Tablet TabPage Target TE Control Testing Text TFS Theme TIME Timer TLS/SSL Tomcat TortoiseGit TortoiseSVN Transaction Transparency Trial Trigger TRY-CATCH TX Control Type UI ULONG UltraLite Uninstall Unit Test Unit Testing UNIX OS Update Upgrade Upload URL User Center User Object UWP Validation VARCHAR Variable Versioning Visual Studio Visual Studio Code VM Voice Warning WCF Web API Web Extensions Web Service WebBrowser WebForms WebLogic WebSphere WildFly WinAPI Window Windows OS WinForms Wizard Workgroup Workspace WPF XCODE XHTML XML Zoom
✖

Helpful?

If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.