(Delphi DLL) PEPPOL Document Validation

Demonstrates how to call a Web service to validate your PEPPOL documents according to the latest PEPPOL rules. The validation service requires UBL files.

For more information, see https://peppol.helger.com/public/locale-en_US/menuitem-validation-ws2

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

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

begin
// 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 /wsdvs HTTP/1.1
// Host: peppol.helger.com
// Content-Type: application/soap+xml; charset=utf-8
// Content-Length: <length>
// 
// <?xml version="1.0"?>
// <S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
// <S:Body>
// <validateRequestInput xmlns="http://peppol.helger.com/ws/documentvalidationservice/201701/" VESID="eu.peppol.bis2:t10:3.3.0" displayLocale="en">
// <XML>...ENTITY_ENCODED_INVOICE_XML_GOES_HERE...</XML>
// </validateRequestInput>
// </S:Body>
// </S:Envelope>

// Build the SOAP XML shown above.
// First load the PEPPOL invoice that will be the data contained in the <XML>...</XML> SOAP element.
// We are using the XML invoice obtained from https://github.com/austriapro/ebinterface-standards/blob/master/schemas/ebInterface5p0/samples/ebinterface_5p0_sample_ecosio.xml
sbPeppolInvoiceXml := CkStringBuilder_Create();
success := CkStringBuilder_LoadFile(sbPeppolInvoiceXml,'qa_data/xml/peppol_invoice.xml','utf-8');

xml := CkXml_Create();
CkXml_putTag(xml,'S:Envelope');
CkXml_AddAttribute(xml,'xmlns:S','http://schemas.xmlsoap.org/soap/envelope/');
CkXml_UpdateAttrAt(xml,'S:Body|validateRequestInput',True,'xmlns','http://peppol.helger.com/ws/documentvalidationservice/201701/');
CkXml_UpdateAttrAt(xml,'S:Body|validateRequestInput',True,'VESID','at.ebinterface:invoice:5.0');
CkXml_UpdateAttrAt(xml,'S:Body|validateRequestInput',True,'displayLocale','en');
CkXml_UpdateChildContent(xml,'S:Body|validateRequestInput|XML',CkStringBuilder__getAsString(sbPeppolInvoiceXml));

// Set the Content-Type of the request.
CkHttp_SetRequestHeader(http,'Content-Type','text/xml');

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

// Send the request...
resp := CkHttp_PostXml(http,'https://peppol.helger.com/wsdvs',CkXml__getXml(xml),'utf-8');
if (CkHttp_getLastMethodSuccess(http) <> True) 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));
CkHttpResponse_Dispose(resp);

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

// A success repsonse looks like this:

// <?xml version="1.0" encoding="UTF-8"?>
// <S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
//     <S:Body>
//         <validateResponseOutput xmlns="http://peppol.helger.com/ws/documentvalidationservice/201701/" success="true" interrupted="false" mostSevereErrorLevel="SUCCESS">
//             <Result success="true" artifactType="xsd" artifactPath="/schemas/ebinterface/ebinterface-5.0.xsd"/>
//         </validateResponseOutput>
//     </S:Body>
// </S:Envelope>

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbPeppolInvoiceXml);
CkXml_Dispose(xml);
CkXml_Dispose(respXml);

end;