(DataFlex) Duplicate TLS 1.2 SOAP Request that uses .NET HttpWebRequest

This example shows how to duplicate a SOAP request that uses .NET's HttpWebRequest and requires TLS 1.2.

        string xmlRequest = "...envelope..."

        System.Net.ServicePointManager.SecurityProtocol = (SecurityProtocolType)3072;

        string url = "https://www3.gsis.gr/webtax2/wsgsis/RgWsPublic/RgWsPublicPort?WSDL";
        HttpWebRequest req = (HttpWebRequest)WebRequest.Create(url);
        req.Method = "POST";
        req.ContentType = "text/xml;charset=UTF-8";

        byte[] reqBytes = new System.Text.UTF8Encoding().GetBytes(xmlRequest);

        req.ContentLength = reqBytes.Length;

        try {
            using (System.IO.Stream reqStream = req.GetRequestStream()) {
                reqStream.Write(reqBytes, 0, reqBytes.Length);
                reqStream.Flush();
                reqStream.Close();
            }

        } catch (Exception ex) {
            actionLogger.AddError(ex.Message, null);
            actionLogger.Validate();
        }

        string xmlResponse = null;
        using (HttpWebResponse resp = (HttpWebResponse)req.GetResponse()) {
            try {
                using (System.IO.StreamReader sr = new System.IO.StreamReader(resp.GetResponseStream())) {
                    xmlResponse = sr.ReadToEnd();
                    sr.Close();
                }
            } catch (Exception ex) {
                actionLogger.AddError(ex.Message, null);
                actionLogger.Validate();
            } finally {
                resp.Close();
            }
        }

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vReq
    Handle hoReq
    String sXmlRequest
    Variant vResp
    Handle hoResp
    String sXmlResponse
    String sTemp1

    Move False To iSuccess

    // This example assumes Chilkat HTTP to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
    If (Not(IsComObjectCreated(hoReq))) Begin
        Send CreateComObject of hoReq
    End
    Set ComHttpVerb Of hoReq To "POST"
    Set ComContentType Of hoReq To "text/xml"
    Set ComSendCharset Of hoReq To True
    Set ComCharset Of hoReq To "utf-8"
    Set ComPath Of hoReq To "/webtax2/wsgsis/RgWsPublic/RgWsPublicPort?WSDL"

    Move "...SOAP envelope..." To sXmlRequest
    Get ComLoadBodyFromString Of hoReq sXmlRequest To iSuccess

    Set ComFollowRedirects Of hoHttp To True

    // Chilkat will automatically offer TLS 1.2.  It is the server that
    // chooses the TLS protocol version.  Assuming the server wishes to use
    // TLS 1.2, then that is what will be used.
    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoReq to vReq
    Get pvComObject of hoResp to vResp
    Get ComHttpSReq Of hoHttp "www3.gsis.gr" 443 True vReq vResp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComBodyStr Of hoResp To sXmlResponse
    Showln sXmlResponse


End_Procedure