Pascal (Lazarus/Delphi)

Duplicate TLS 1.2 SOAP Request that uses .NET HttpWebRequest

See more HTTP Examples

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();
            }
        }

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.HttpRequest,
  Chilkat.HttpResponse;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  req: THttpRequest;
  xmlRequest: string;
  resp: THttpResponse;
  xmlResponse: string;

begin
  success := False;

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

  http := THttp.Create;

  req := THttpRequest.Create;
  req.HttpVerb := 'POST';
  req.ContentType := 'text/xml';
  req.SendCharset := True;
  req.Charset := 'utf-8';
  req.Path := '/webtax2/wsgsis/RgWsPublic/RgWsPublicPort?WSDL';

  xmlRequest := '...SOAP envelope...';
  req.LoadBodyFromString(xmlRequest);

  http.FollowRedirects := 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.
  resp := THttpResponse.Create;
  success := http.HttpSReq('www3.gsis.gr',443,True,req,resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  xmlResponse := resp.BodyStr;
  WriteLn(xmlResponse);


  http.Free;
  req.Free;
  resp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.