Deflate zip

[borni69 1]

Hi,

 

I am trying to make a SAML request.  Anyone now how to deflate a string in Delphi ?

 

 

    AuthNRequest :=  '<samlp:AuthnRequest xmlns:samlp="urn:oasis:names:tc:SAML:2.0:protocol"'+
                     'xmlns:saml="urn:oasis:names:tc:SAML:2.0:assertion" ID="ONELOGIN_809707f0030a5d00620c9d9df97f627afe9dcc24" Version="2.0" '+
                      'ProviderName="SP test" IssueInstant="2014-07-16T23:52:45Z" Destination="http://idp.example.com/SSOService.php" ProtocolBinding="urn:oasis:names:tc:SAML:2.0:bindings:HTTP-POST"'+
                      ' AssertionConsumerServiceURL="http://sp.example.com/demo1/index.php?acs">'+
                      '<saml:Issuer>http://sp.example.com/demo1/metadata.php</saml:Issuer>'+
                      '<samlp:NameIDPolicy Format="urn:oasis:names:tc:SAML:1.1:nameid-format:emailAddress" AllowCreate="true"/>'+
                      '<samlp:RequestedAuthnContext Comparison="exact">'+
                       '<saml:AuthnContextClassRef>urn:oasis:names:tc:SAML:2.0:ac:classes:PasswordProtectedTransport</saml:AuthnContextClassRef>'+
                        '</samlp:RequestedAuthnContext>'+
                       '</samlp:AuthnRequest>';

 

https://en.wikipedia.org/wiki/Deflate

 

I am using Delphi 11 Enterprise

 

B