|
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 ActiveX) 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, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var success: Integer; xml: TChilkatXml; bd: TChilkatBinData; gzip: TChilkatGzip; cert: TChilkatCert; crypt: TChilkatCrypt2; http: TChilkatHttp; resp: IChilkatHttpResponse; 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 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 := TChilkatXml.Create(Self); xml.Tag := 'pvpoj'; xml.AddAttribute('xmlns','http://schemas.cssz.cz/POJ/PVPOJ2016'); xml.UpdateAttrAt('prehled',1,'verze','2016.0'); xml.UpdateAttrAt('prehled',1,'typPrehledu','N'); xml.UpdateChildContent('prehled|okres|kodOSSZ','119'); xml.UpdateChildContent('prehled|okres|nazevOSSZ','Praha 9'); xml.UpdateChildContent('prehled|obdobi|mesic','1'); xml.UpdateChildContent('prehled|obdobi|rok','2018'); xml.UpdateChildContent('prehled|zamestnavatel|vs','9992002999'); xml.UpdateChildContent('prehled|zamestnavatel|IC','49710999'); xml.UpdateChildContent('prehled|zamestnavatel|nazev','SIT & KHASO v.o.s.'); xml.UpdateChildContent('prehled|zamestnavatel|adresa|ulice','Na sp�leni�ti'); xml.UpdateChildContent('prehled|zamestnavatel|adresa|cisloDomu','517'); xml.UpdateChildContent('prehled|zamestnavatel|adresa|obec','Praha 9'); xml.UpdateChildContent('prehled|zamestnavatel|adresa|PSC','19032'); xml.UpdateChildContent('prehled|zamestnavatel|adresa|stat','CZ'); xml.UpdateChildContent('prehled|pojistne|uhrnVymerovacichZakladu','1104'); xml.UpdateChildContent('prehled|pojistne|pojistneZamestnance','175'); xml.UpdateChildContent('prehled|pojistne|pojistneZamestnavatele','2826'); xml.UpdateChildContent('prehled|pojistne|pojistneCelkem','4301'); xml.UpdateChildContent('prehled|platebniUdaje|bankaCisloUctu','012345789/0800'); xml.UpdateChildContent('prehled|pracovnik|jmeno','Matt'); xml.UpdateChildContent('prehled|pracovnik|prijmeni','Smith'); xml.UpdateChildContent('prehled|pracovnik|telefon','606796999'); xml.UpdateChildContent('prehled|pracovnik|email','admin@chilkatsoft.com'); xml.UpdateChildContent('prehled|datumVyplneni','2018-03-02'); xml.UpdateChildContent('prehled|poznamka',''); xml.EmitCompact := 1; xml.EmitXmlDecl := 0; // Emit the XML into bd. bd := TChilkatBinData.Create(Self); bd.AppendString(xml.GetXml(),'utf-8'); // GZip compress the bd contents. gzip := TChilkatGzip.Create(Self); // The Filename is not an actual file on disk, but is just the filename string stored in the gzip compressed format. gzip.Filename := 'pvpoj.xml'; gzip.CompressBd(bd.ControlInterface); // Encrypt the contents using the government provided cert. cert := TChilkatCert.Create(Self); success := cert.LoadFromFile('qa_data/govs/czech/pvpoj/DISCSSZ2019.cer'); if (success <> 1) then begin Memo1.Lines.Add(cert.LastErrorText); Exit; end; crypt := TChilkatCrypt2.Create(Self); crypt.CryptAlgorithm := 'pki'; crypt.Pkcs7CryptAlg := 'aes'; crypt.KeyLength := 256; success := crypt.SetEncryptCert(cert.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(crypt.LastErrorText); Exit; end; success := crypt.EncryptBd(bd.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(crypt.LastErrorText); 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. xml.Clear(); xml.Tag := 'GovTalkMessage'; xml.AddAttribute('xmlns','http://www.govtalk.gov.uk/CM/envelope'); xml.UpdateChildContent('EnvelopeVersion','2.0'); xml.UpdateChildContent('Header|MessageDetails|Class','CSSZ_PVPOJ'); xml.UpdateChildContent('Header|MessageDetails|Qualifier','request'); xml.UpdateChildContent('Header|MessageDetails|Function','submit'); xml.UpdateChildContent('Header|MessageDetails|TransactionID',''); xml.UpdateChildContent('Header|MessageDetails|AuditID',''); xml.UpdateChildContent('Header|MessageDetails|CorrelationID',''); xml.UpdateAttrAt('Header|MessageDetails|ResponseEndPoint',1,'PollInterval','0'); xml.UpdateChildContent('Header|MessageDetails|Transformation','XML'); xml.UpdateChildContent('Header|MessageDetails|GatewayTest',''); xml.UpdateChildContent('Header|MessageDetails|GatewayTimestamp',''); xml.UpdateChildContent('Header|SenderDetails|IDAuthentication|SenderID',''); xml.UpdateChildContent('Header|SenderDetails|IDAuthentication|Authentication|Method','clear'); xml.UpdateChildContent('Header|SenderDetails|IDAuthentication|Authentication|Role',''); xml.UpdateChildContent('Header|SenderDetails|IDAuthentication|Authentication|Value',''); xml.UpdateChildContent('Header|SenderDetails|X509Certificate',''); xml.UpdateChildContent('Header|SenderDetails|EmailAddress','admin@chilkatsoft.com'); xml.UpdateAttrAt('GovTalkDetails|Keys|Key',1,'Type','vars'); xml.UpdateChildContent('GovTalkDetails|Keys|Key','9992888999'); xml.UpdateChildContent('GovTalkDetails|GatewayAdditions',''); xml.UpdateAttrAt('Body|Message',1,'xmlns','http://www.cssz.cz/XMLSchema/envelope'); xml.UpdateAttrAt('Body|Message',1,'version','1.2'); xml.UpdateAttrAt('Body|Message',1,'eType','PVPOJ16'); xml.UpdateAttrAt('Body|Message|Header|Signature',1,'xmlns:dt','urn:schemas-microsoft-com:datatypes'); xml.UpdateAttrAt('Body|Message|Header|Signature',1,'dt:dt','bin.base64'); xml.UpdateChildContent('Body|Message|Header|Signature','Signature goes here'); xml.UpdateAttrAt('Body|Message|Header|Vendor',1,'productName','Abc xyz. s r.o. JKL .NET Client'); xml.UpdateAttrAt('Body|Message|Header|Vendor',1,'version','6.0.2.0'); xml.UpdateAttrAt('Body|Message|Body',1,'xmlns:dt','urn:schemas-microsoft-com:datatypes'); xml.UpdateAttrAt('Body|Message|Body',1,'encrypted','yes'); xml.UpdateAttrAt('Body|Message|Body',1,'contentEncoding','gzip'); xml.UpdateAttrAt('Body|Message|Body',1,'dt:dt','bin.base64'); // Insert the contents of bd here: xml.UpdateChildContent('Body|Message|Body',bd.GetEncoded('base64')); // Show the XML to be sent to https://vrep1-t.cssz.cz/VREP/submission xml.EmitCompact := 0; Memo1.Lines.Add(xml.GetXml()); xml.EmitCompact := 1; // ---------------------------------------------------------- // POST the XML to https://vrep1-t.cssz.cz/VREP/submission http := TChilkatHttp.Create(Self); resp := http.PostXml('https://vrep1-t.cssz.cz/VREP/submission',xml.GetXml(),'utf-8'); if (http.LastMethodSuccess <> 1) then begin Memo1.Lines.Add(http.LastErrorText); Exit; end; // Examine the response status code (200 = success) statusCode := resp.StatusCode; 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.. xml.Clear(); xml.LoadXml(resp.BodyStr); xml.EmitCompact := 0; Memo1.Lines.Add(xml.GetXml()); // 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.. end; |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.