Delphi ActiveX

SOAP facturacion.finkok.com Stamp Request

See more SOAP finkok.com Examples

Make a SOAP call to https://demo-facturacion.finkok.com/servicios/soap/stamp Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
xml: TChilkatXml;
strXml: WideString;
endPoint: WideString;
resp: TChilkatHttpResponse;
statusCode: Integer;
xmlResp: TChilkatXml;

begin
success := 0;

// This example requires the Chilkat 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 := TChilkatHttp.Create(Self);

// First build this SOAP XML request body:
// Use this online tool to generate the code from sample XML: 
// Generate Code to Create XML

// <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:stam="http://facturacion.finkok.com/stamp">
//    <soapenv:Header/>
//    <soapenv:Body>
//       <stam:stamp>
//          <stam:xml>cid:20379537153</stam:xml>
//          <stam:username>?</stam:username>
//          <stam:password>?</stam:password>
//       </stam:stamp>
//    </soapenv:Body>
// </soapenv:Envelope>

xml := TChilkatXml.Create(Self);
xml.Tag := 'soapenv:Envelope';
xml.AddAttribute('xmlns:soapenv','http://schemas.xmlsoap.org/soap/envelope/');
xml.AddAttribute('xmlns:stam','http://facturacion.finkok.com/stamp');
xml.UpdateChildContent('soapenv:Header','');
xml.UpdateChildContent('soapenv:Body|stam:stamp|stam:xml','cid:20379537153');
xml.UpdateChildContent('soapenv:Body|stam:stamp|stam:username','MY_USERNAME');
xml.UpdateChildContent('soapenv:Body|stam:stamp|stam:password','MY_PASSWORD');

strXml := xml.GetXml();

http.SetRequestHeader('SOAPAction','stamp');

endPoint := 'https://demo-facturacion.finkok.com/servicios/soap/stamp';

resp := TChilkatHttpResponse.Create(Self);
success := http.HttpStr('POST',endPoint,strXml,'utf-8','text/xml',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

statusCode := resp.StatusCode;
if (statusCode <> 200) then
  begin
    Memo1.Lines.Add('Non-success status code: ' + IntToStr(statusCode));
    Memo1.Lines.Add('Response header: ' + resp.Header);
    Memo1.Lines.Add('Response body: ' + resp.BodyStr);
    Memo1.Lines.Add('Unsuccessful.');
    Exit;
  end;

xmlResp := TChilkatXml.Create(Self);
xmlResp.LoadXml(resp.BodyStr);

Memo1.Lines.Add(xmlResp.GetXml());

// Use this online tool to generate parsing code from sample XML: 
// Generate Parsing Code from XML
end;