Delphi DLL
Delphi DLL
POST GovTalk XML to https://vrep1-t.cssz.cz/VREP/submission
See more HTTP Misc Examples
Demonstrates how to POST a GovTalk XML message to https://vrep1-t.cssz.cz/VREP/submissionPDF Documentation is at http://www.cssz.cz/NR/rdonlyres/0ACDBB35-F78A-4B1A-8258-7249B55C788E/0/csszpodavacidotazovaciprotokol20110608.pdf
Chilkat Delphi DLL Downloads
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Gzip, HttpResponse, Http, BinData, Cert, Crypt2, Xml;
...
procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
xml: HCkXml;
bd: HCkBinData;
gzip: HCkGzip;
cert: HCkCert;
crypt: HCkCrypt2;
http: HCkHttp;
resp: HCkHttpResponse;
statusCode: Integer;
begin
success := False;
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// First prepare the XML body that is to be GZip compressed and then encrypted.
// Build the following XML..
// Use the online tool at http://tools.chilkat.io/xmlCreate.cshtml
// to generate the XML creation code that follows this XML.
// <?xml version="1.0" encoding="utf-8" ?>
// <pvpoj xmlns="http://schemas.cssz.cz/POJ/PVPOJ2016">
// <prehled verze="2016.0" typPrehledu="N">
// <okres>
// <kodOSSZ>119</kodOSSZ>
// <nazevOSSZ>Praha 9</nazevOSSZ>
// </okres>
// <obdobi>
// <mesic>1</mesic>
// <rok>2018</rok>
// </obdobi>
// <zamestnavatel>
// <vs>9992002999</vs>
// <IC>49710999</IC>
// <nazev>SIT & KHASO v.o.s.</nazev>
// <adresa>
// <ulice>Na sp�leni�ti</ulice>
// <cisloDomu>517</cisloDomu>
// <obec>Praha 9</obec>
// <PSC>19032</PSC>
// <stat>CZ</stat>
// </adresa>
// </zamestnavatel>
// <pojistne>
// <uhrnVymerovacichZakladu>1104</uhrnVymerovacichZakladu>
// <pojistneZamestnance>175</pojistneZamestnance>
// <pojistneZamestnavatele>2826</pojistneZamestnavatele>
// <pojistneCelkem>4301</pojistneCelkem>
// </pojistne>
// <platebniUdaje>
// <bankaCisloUctu>012345789/0800</bankaCisloUctu>
// </platebniUdaje>
// <pracovnik>
// <jmeno>Matt</jmeno>
// <prijmeni>Smith</prijmeni>
// <telefon>606796999</telefon>
// <email>admin@chilkatsoft.com</email>
// </pracovnik>
// <datumVyplneni>2018-03-02</datumVyplneni>
// <poznamka />
// </prehled>
// </pvpoj>
xml := CkXml_Create();
CkXml_putTag(xml,'pvpoj');
CkXml_AddAttribute(xml,'xmlns','http://schemas.cssz.cz/POJ/PVPOJ2016');
CkXml_UpdateAttrAt(xml,'prehled',True,'verze','2016.0');
CkXml_UpdateAttrAt(xml,'prehled',True,'typPrehledu','N');
CkXml_UpdateChildContent(xml,'prehled|okres|kodOSSZ','119');
CkXml_UpdateChildContent(xml,'prehled|okres|nazevOSSZ','Praha 9');
CkXml_UpdateChildContent(xml,'prehled|obdobi|mesic','1');
CkXml_UpdateChildContent(xml,'prehled|obdobi|rok','2018');
CkXml_UpdateChildContent(xml,'prehled|zamestnavatel|vs','9992002999');
CkXml_UpdateChildContent(xml,'prehled|zamestnavatel|IC','49710999');
CkXml_UpdateChildContent(xml,'prehled|zamestnavatel|nazev','SIT & KHASO v.o.s.');
CkXml_UpdateChildContent(xml,'prehled|zamestnavatel|adresa|ulice','Na sp�leni�ti');
CkXml_UpdateChildContent(xml,'prehled|zamestnavatel|adresa|cisloDomu','517');
CkXml_UpdateChildContent(xml,'prehled|zamestnavatel|adresa|obec','Praha 9');
CkXml_UpdateChildContent(xml,'prehled|zamestnavatel|adresa|PSC','19032');
CkXml_UpdateChildContent(xml,'prehled|zamestnavatel|adresa|stat','CZ');
CkXml_UpdateChildContent(xml,'prehled|pojistne|uhrnVymerovacichZakladu','1104');
CkXml_UpdateChildContent(xml,'prehled|pojistne|pojistneZamestnance','175');
CkXml_UpdateChildContent(xml,'prehled|pojistne|pojistneZamestnavatele','2826');
CkXml_UpdateChildContent(xml,'prehled|pojistne|pojistneCelkem','4301');
CkXml_UpdateChildContent(xml,'prehled|platebniUdaje|bankaCisloUctu','012345789/0800');
CkXml_UpdateChildContent(xml,'prehled|pracovnik|jmeno','Matt');
CkXml_UpdateChildContent(xml,'prehled|pracovnik|prijmeni','Smith');
CkXml_UpdateChildContent(xml,'prehled|pracovnik|telefon','606796999');
CkXml_UpdateChildContent(xml,'prehled|pracovnik|email','admin@chilkatsoft.com');
CkXml_UpdateChildContent(xml,'prehled|datumVyplneni','2018-03-02');
CkXml_UpdateChildContent(xml,'prehled|poznamka','');
CkXml_putEmitCompact(xml,True);
CkXml_putEmitXmlDecl(xml,False);
// Emit the XML into bd.
bd := CkBinData_Create();
CkBinData_AppendString(bd,CkXml__getXml(xml),'utf-8');
// GZip compress the bd contents.
gzip := CkGzip_Create();
// The Filename is not an actual file on disk, but is just the filename string stored in the gzip compressed format.
CkGzip_putFilename(gzip,'pvpoj.xml');
CkGzip_CompressBd(gzip,bd);
// Encrypt the contents using the government provided cert.
cert := CkCert_Create();
success := CkCert_LoadFromFile(cert,'qa_data/govs/czech/pvpoj/DISCSSZ2019.cer');
if (success = False) then
begin
Memo1.Lines.Add(CkCert__lastErrorText(cert));
Exit;
end;
crypt := CkCrypt2_Create();
CkCrypt2_putCryptAlgorithm(crypt,'pki');
CkCrypt2_putPkcs7CryptAlg(crypt,'aes');
CkCrypt2_putKeyLength(crypt,256);
success := CkCrypt2_SetEncryptCert(crypt,cert);
if (success = False) then
begin
Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt));
Exit;
end;
success := CkCrypt2_EncryptBd(crypt,bd);
if (success = False) then
begin
Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt));
Exit;
end;
// At this point, bd contains the gzip compressed / encrypted XML.
// Build the following GovTalkMessage XML:
// <?xml version="1.0" encoding="utf-8"?>
// <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope">
// <EnvelopeVersion>2.0</EnvelopeVersion>
// <Header>
// <MessageDetails>
// <Class>CSSZ_PVPOJ</Class>
// <Qualifier>request</Qualifier>
// <Function>submit</Function>
// <TransactionID />
// <AuditID />
// <CorrelationID />
// <ResponseEndPoint PollInterval="0" />
// <Transformation>XML</Transformation>
// <GatewayTest />
// <GatewayTimestamp />
// </MessageDetails>
// <SenderDetails>
// <IDAuthentication>
// <SenderID />
// <Authentication>
// <Method>clear</Method>
// <Role />
// <Value />
// </Authentication>
// </IDAuthentication>
// <X509Certificate />
// <EmailAddress>admin@chilkatsoft.com</EmailAddress>
// </SenderDetails>
// </Header>
// <GovTalkDetails>
// <Keys>
// <Key Type="vars">9992888999</Key>
// </Keys>
// <GatewayAdditions />
// </GovTalkDetails>
// <Body>
// <Message xmlns="http://www.cssz.cz/XMLSchema/envelope" version="1.2" eType="PVPOJ16">
// <Header>
// <Signature xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64">Signature goes here</Signature>
// <Vendor productName="Abc xyz. s r.o. JKL .NET Client" version="6.0.2.0" />
// </Header>
// <Body xmlns:dt="urn:schemas-microsoft-com:datatypes" encrypted="yes" contentEncoding="gzip" dt:dt="bin.base64">Base64 goes here
// </Body>
// </Message>
// </Body>
// </GovTalkMessage>
//
// Use the online tool at http://tools.chilkat.io/xmlCreate.cshtml
// to generate this code.
CkXml_Clear(xml);
CkXml_putTag(xml,'GovTalkMessage');
CkXml_AddAttribute(xml,'xmlns','http://www.govtalk.gov.uk/CM/envelope');
CkXml_UpdateChildContent(xml,'EnvelopeVersion','2.0');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|Class','CSSZ_PVPOJ');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|Qualifier','request');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|Function','submit');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|TransactionID','');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|AuditID','');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|CorrelationID','');
CkXml_UpdateAttrAt(xml,'Header|MessageDetails|ResponseEndPoint',True,'PollInterval','0');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|Transformation','XML');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|GatewayTest','');
CkXml_UpdateChildContent(xml,'Header|MessageDetails|GatewayTimestamp','');
CkXml_UpdateChildContent(xml,'Header|SenderDetails|IDAuthentication|SenderID','');
CkXml_UpdateChildContent(xml,'Header|SenderDetails|IDAuthentication|Authentication|Method','clear');
CkXml_UpdateChildContent(xml,'Header|SenderDetails|IDAuthentication|Authentication|Role','');
CkXml_UpdateChildContent(xml,'Header|SenderDetails|IDAuthentication|Authentication|Value','');
CkXml_UpdateChildContent(xml,'Header|SenderDetails|X509Certificate','');
CkXml_UpdateChildContent(xml,'Header|SenderDetails|EmailAddress','admin@chilkatsoft.com');
CkXml_UpdateAttrAt(xml,'GovTalkDetails|Keys|Key',True,'Type','vars');
CkXml_UpdateChildContent(xml,'GovTalkDetails|Keys|Key','9992888999');
CkXml_UpdateChildContent(xml,'GovTalkDetails|GatewayAdditions','');
CkXml_UpdateAttrAt(xml,'Body|Message',True,'xmlns','http://www.cssz.cz/XMLSchema/envelope');
CkXml_UpdateAttrAt(xml,'Body|Message',True,'version','1.2');
CkXml_UpdateAttrAt(xml,'Body|Message',True,'eType','PVPOJ16');
CkXml_UpdateAttrAt(xml,'Body|Message|Header|Signature',True,'xmlns:dt','urn:schemas-microsoft-com:datatypes');
CkXml_UpdateAttrAt(xml,'Body|Message|Header|Signature',True,'dt:dt','bin.base64');
CkXml_UpdateChildContent(xml,'Body|Message|Header|Signature','Signature goes here');
CkXml_UpdateAttrAt(xml,'Body|Message|Header|Vendor',True,'productName','Abc xyz. s r.o. JKL .NET Client');
CkXml_UpdateAttrAt(xml,'Body|Message|Header|Vendor',True,'version','6.0.2.0');
CkXml_UpdateAttrAt(xml,'Body|Message|Body',True,'xmlns:dt','urn:schemas-microsoft-com:datatypes');
CkXml_UpdateAttrAt(xml,'Body|Message|Body',True,'encrypted','yes');
CkXml_UpdateAttrAt(xml,'Body|Message|Body',True,'contentEncoding','gzip');
CkXml_UpdateAttrAt(xml,'Body|Message|Body',True,'dt:dt','bin.base64');
// Insert the contents of bd here:
CkXml_UpdateChildContent(xml,'Body|Message|Body',CkBinData__getEncoded(bd,'base64'));
// Show the XML to be sent to https://vrep1-t.cssz.cz/VREP/submission
CkXml_putEmitCompact(xml,False);
Memo1.Lines.Add(CkXml__getXml(xml));
CkXml_putEmitCompact(xml,True);
// ----------------------------------------------------------
// POST the XML to https://vrep1-t.cssz.cz/VREP/submission
http := CkHttp_Create();
resp := CkHttpResponse_Create();
success := CkHttp_HttpStr(http,'POST','https://vrep1-t.cssz.cz/VREP/submission',CkXml__getXml(xml),'utf-8','application/xml',resp);
if (success = False) then
begin
Memo1.Lines.Add(CkHttp__lastErrorText(http));
Exit;
end;
// Examine the response status code (200 = success)
statusCode := CkHttpResponse_getStatusCode(resp);
Memo1.Lines.Add('Response status code = ' + IntToStr(statusCode));
// The response body should be XML.
// Load it into a Chilkat XML object to get it in indented format for viewing..
CkXml_Clear(xml);
CkXml_LoadXml(xml,CkHttpResponse__bodyStr(resp));
CkXml_putEmitCompact(xml,False);
Memo1.Lines.Add(CkXml__getXml(xml));
// Output is:
// <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope">
// <EnvelopeVersion>2.0</EnvelopeVersion>
// <Header>
// <MessageDetails>
// <Class>CSSZ_PVPOJ</Class>
// <Qualifier>acknowledgement</Qualifier>
// <Function>submit</Function>
// <TransactionID />
// <CorrelationID>1B6336D5ACE949CDB944424CB2D54401</CorrelationID>
// <ResponseEndPoint PollInterval="60">https://vrep1-t.cssz.cz/VREP/poll</ResponseEndPoint>
// <GatewayTimestamp>2018-07-02T22:23:41.310</GatewayTimestamp>
// </MessageDetails>
// <SenderDetails />
// </Header>
// <GovTalkDetails>
// <Keys />
// </GovTalkDetails>
// <Body>
// <Signature xmlns="http://www.podani.gov.cz/TxE/timestamp" Version="1.0">
// <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
// <TimeStamp>
// <date>20180702</date>
// <time>22:23:41</time>
// </TimeStamp>
// <SignatureValue>MIIORwYJKoZIhvcNAQcCo ... bBNE6MeXmk2siMuvY=</SignatureValue>
// </Signature>
// </Body>
// </GovTalkMessage>
//
// Hint: Use the online tool at http://tools.chilkat.io/xmlParse.cshtml
// to generate XML parsing code based on a sample response..
CkXml_Dispose(xml);
CkBinData_Dispose(bd);
CkGzip_Dispose(gzip);
CkCert_Dispose(cert);
CkCrypt2_Dispose(crypt);
CkHttp_Dispose(http);
CkHttpResponse_Dispose(resp);
end;