|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) POST GovTalk XML to https://vrep1-t.cssz.cz/VREP/submissionDemonstrates how to POST a GovTalk XML message to https://vrep1-t.cssz.cz/VREP/submission PDF Documentation is at http://www.cssz.cz/NR/rdonlyres/0ACDBB35-F78A-4B1A-8258-7249B55C788E/0/csszpodavacidotazovaciprotokol20110608.pdf
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 // 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 spleniti</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>Murdock</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 spleniti'); 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','Murdock'); 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 <> True) 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 <> True) then begin Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt)); Exit; end; success := CkCrypt2_EncryptBd(crypt,bd); if (success <> True) 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 := CkHttp_PostXml(http,'https://vrep1-t.cssz.cz/VREP/submission',CkXml__getXml(xml),'utf-8'); if (CkHttp_getLastMethodSuccess(http) <> True) 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.. CkHttpResponse_Dispose(resp); CkXml_Dispose(xml); CkBinData_Dispose(bd); CkGzip_Dispose(gzip); CkCert_Dispose(cert); CkCrypt2_Dispose(crypt); CkHttp_Dispose(http); end; |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.