TOPIC:

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, IdHTTP, IdSSLOpenSSL, Forms, Controls, Graphics,
  Dialogs, StdCtrls;
type
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    mInput: TMemo;
    moutput: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
  request:TIdHTTPRequest;
  response:TIdHTTPResponse;
  streamInput:TMemoryStream;
  streamOutput:TStream;
  requestQuery:String;
begin
   try
    streamOutput := TMemoryStream.Create;
    streamInput := TMemoryStream.Create;

    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.CertFile := '/home/usb/test-tls.cer';
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := TIdSSLVersion.sslvTLSv1_2;

    IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

    request := TIdHTTPRequest.Create(IdHTTP1);

    requestQuery:='<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:fu="http://www.fu.gov.si/" xmlns:xd="http://www.w3.org/2000/09/xmldsig#">'+
                  '<soapenv:Body>'+
                  '<fu:EchoRequest>test echo</fu:EchoRequest>'+
                  '</soapenv:Body>'+
                  '</soapenv:Envelope>';
    mInput.Lines.Add(requestQuery);
    minput.Lines.SaveToStream(streamInput);
    streamInput.Position := 0;

    request.Source := streamInput;
    request.Method := 'POST';
    request.Accept := 'text/xml';
    request.Connection := 'KeepAlive';
    request.ContentType := 'text/xml; charset=utf-8';  // 'application/soap+xml'
    request.CustomHeaders.Add('SOAPAction: /echo');

    IdHTTP1.Post('https://blagajne-test.fu.gov.si:9002/v1/cash_registers', streamInput);
    response := IdHTTP1.Response;
    streamOutput := response.ContentStream;

    streamOutput.Position := 0;
    moutput.Lines.LoadFromStream(streamOutput);
  finally
    streamInput.Free;
    streamOutput.Free;
  end;
end;
end.                                          

usb@debian:~$ apt-cache policy openssl libssl-dev
openssl:
  Installed: 1.0.1k-3+deb8u1
  Candidate: 1.0.1k-3+deb8u1
  Version table:
 *** 1.0.1k-3+deb8u1 0
        500 cdrom://[Debian GNU/Linux 8.2.0 _Jessie_ - Official amd64 DVD Binary-1 20150906-11:13]/ jessie/main amd64 Packages
        500 http://ftp.si.debian.org/debian/ jessie/main amd64 Packages
        500 http://security.debian.org/ jessie/updates/main amd64 Packages
        100 /var/lib/dpkg/status
libssl-dev:
  Installed: 1.0.1k-3+deb8u1
  Candidate: 1.0.1k-3+deb8u1
  Version table:
 *** 1.0.1k-3+deb8u1 0
        500 cdrom://[Debian GNU/Linux 8.2.0 _Jessie_ - Official amd64 DVD Binary-1 20150906-11:13]/ jessie/main amd64 Packages
        500 http://ftp.si.debian.org/debian/ jessie/main amd64 Packages
        500 http://security.debian.org/ jessie/updates/main amd64 Packages
        100 /var/lib/dpkg/status
usb@debian:~$