Delphi DLL

Send SOAP 1.2 Request to Web Service Requiring Authentication

See more HTTP Examples

This example demonstrates sending a SOAP 1.2 request to a web service that requires both HTTP authentication in the Authorization request header, as well as a service-defined password in the XML body of the request. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpResponse, Xml;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
xml: HCkXml;
resp: HCkHttpResponse;
respXml: HCkXml;

begin
success := False;

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

// --------------------------------------------------------------------------------
// Also see Chilkat's Online WSDL Code Generator
// to generate code and SOAP Request and Response XML for each operation in a WSDL.
// --------------------------------------------------------------------------------

http := CkHttp_Create();

// We are sending the following POST:

// POST /wsSome_Testes/Service.asmx HTTP/1.1
// Host: www.something.com
// Content-Type: application/soap+xml; charset=utf-8
// Content-Length: length
// 
// <?xml version="1.0" encoding="utf-8"?>
// <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
//   <soap12:Body>
//     <GetXYZbyABC xmlns="http://tempuri.org/">
//       <ABCBEN>string</ABCBEN>
//       <ABC>string</ABC>
//       <NumLocal>int</NumLocal>
//       <Password>string</Password>
//       <MsgErro>string</MsgErro>
//     </GetXYZbyABC>
//   </soap12:Body>
// </soap12:Envelope>
// 

// First, specify the login/password for the Authorization request header (not shown in the headers above).
CkHttp_putLogin(http,'YOUR_LOGIN');
// The need for a login domain depends on the web service..
CkHttp_putLoginDomain(http,'YOUR_DOMAIN');
CkHttp_putPassword(http,'YOUR_PASSWORD');

// Build the SOAP XML shown above:
// Replace VAL_ABCBEN, VAL_ABC, VAL_NUMLOCAL, and YOUR_SOAP_BODY_PASSWORD with actual values..
xml := CkXml_Create();
CkXml_putTag(xml,'soap12:Envelope');
CkXml_AddAttribute(xml,'xmlns:xsi','http://www.w3.org/2001/XMLSchema-instance');
CkXml_AddAttribute(xml,'xmlns:xsd','http://www.w3.org/2001/XMLSchema');
CkXml_AddAttribute(xml,'xmlns:soap12','http://www.w3.org/2003/05/soap-envelope');
CkXml_UpdateAttrAt(xml,'soap12:Body|GetXYZbyABC',True,'xmlns','http://tempuri.org/');
CkXml_UpdateChildContent(xml,'soap12:Body|GetXYZbyABC|ABCBEN','VAL_ABCBEN');
CkXml_UpdateChildContent(xml,'soap12:Body|GetXYZbyABC|ABC','VAL_ABC');
CkXml_UpdateChildContent(xml,'soap12:Body|GetXYZbyABC|NumLocal','VAL_NUMLOCAL');
CkXml_UpdateChildContent(xml,'soap12:Body|GetXYZbyABC|Password','YOUR_SOAP_BODY_PASSWORD');
CkXml_UpdateChildContent(xml,'soap12:Body|GetXYZbyABC|MsgErro','x');

// We don't need to specify the Content-Length or Host headers.  Chilkat automatically adds them.

// Send the request...
resp := CkHttpResponse_Create();
success := CkHttp_HttpStr(http,'POST','https://www.something.com/wsSome_Testes/Service.asmx',CkXml__getXml(xml),'utf-8','application/soap+xml',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('Response Status Code = ' + IntToStr(CkHttpResponse_getStatusCode(resp)));

respXml := CkXml_Create();
CkXml_LoadXml(respXml,CkHttpResponse__bodyStr(resp));

Memo1.Lines.Add('Response XML:');
Memo1.Lines.Add(CkXml__getXml(respXml));

// The response XML should look like this:

// <?xml version="1.0" encoding="utf-8"?>
// <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
//   <soap12:Body>
//     <GetXYZbyABCResponse xmlns="http://tempuri.org/">
//       <GetXYZbyABCResult>int</GetXYZbyABCResult>
//       <MsgErro>string</MsgErro>
//     </GetXYZbyABCResponse>
//   </soap12:Body>
// </soap12:Envelope>

CkHttp_Dispose(http);
CkXml_Dispose(xml);
CkHttpResponse_Dispose(resp);
CkXml_Dispose(respXml);

end;