|
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
(PureBasic) 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
IncludeFile "CkBinData.pb" IncludeFile "CkHttp.pb" IncludeFile "CkGzip.pb" IncludeFile "CkXml.pb" IncludeFile "CkCrypt2.pb" IncludeFile "CkHttpResponse.pb" IncludeFile "CkCert.pb" Procedure ChilkatExample() ; 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> success.i xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(xml, "pvpoj") CkXml::ckAddAttribute(xml,"xmlns","http://schemas.cssz.cz/POJ/PVPOJ2016") CkXml::ckUpdateAttrAt(xml,"prehled",1,"verze","2016.0") CkXml::ckUpdateAttrAt(xml,"prehled",1,"typPrehledu","N") CkXml::ckUpdateChildContent(xml,"prehled|okres|kodOSSZ","119") CkXml::ckUpdateChildContent(xml,"prehled|okres|nazevOSSZ","Praha 9") CkXml::ckUpdateChildContent(xml,"prehled|obdobi|mesic","1") CkXml::ckUpdateChildContent(xml,"prehled|obdobi|rok","2018") CkXml::ckUpdateChildContent(xml,"prehled|zamestnavatel|vs","9992002999") CkXml::ckUpdateChildContent(xml,"prehled|zamestnavatel|IC","49710999") CkXml::ckUpdateChildContent(xml,"prehled|zamestnavatel|nazev","SIT & KHASO v.o.s.") CkXml::ckUpdateChildContent(xml,"prehled|zamestnavatel|adresa|ulice","Na spleniti") CkXml::ckUpdateChildContent(xml,"prehled|zamestnavatel|adresa|cisloDomu","517") CkXml::ckUpdateChildContent(xml,"prehled|zamestnavatel|adresa|obec","Praha 9") CkXml::ckUpdateChildContent(xml,"prehled|zamestnavatel|adresa|PSC","19032") CkXml::ckUpdateChildContent(xml,"prehled|zamestnavatel|adresa|stat","CZ") CkXml::ckUpdateChildContent(xml,"prehled|pojistne|uhrnVymerovacichZakladu","1104") CkXml::ckUpdateChildContent(xml,"prehled|pojistne|pojistneZamestnance","175") CkXml::ckUpdateChildContent(xml,"prehled|pojistne|pojistneZamestnavatele","2826") CkXml::ckUpdateChildContent(xml,"prehled|pojistne|pojistneCelkem","4301") CkXml::ckUpdateChildContent(xml,"prehled|platebniUdaje|bankaCisloUctu","012345789/0800") CkXml::ckUpdateChildContent(xml,"prehled|pracovnik|jmeno","Matt") CkXml::ckUpdateChildContent(xml,"prehled|pracovnik|prijmeni","Murdock") CkXml::ckUpdateChildContent(xml,"prehled|pracovnik|telefon","606796999") CkXml::ckUpdateChildContent(xml,"prehled|pracovnik|email","admin@chilkatsoft.com") CkXml::ckUpdateChildContent(xml,"prehled|datumVyplneni","2018-03-02") CkXml::ckUpdateChildContent(xml,"prehled|poznamka","") CkXml::setCkEmitCompact(xml, 1) CkXml::setCkEmitXmlDecl(xml, 0) ; Emit the XML into bd. bd.i = CkBinData::ckCreate() If bd.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkBinData::ckAppendString(bd,CkXml::ckGetXml(xml),"utf-8") ; GZip compress the bd contents. gzip.i = CkGzip::ckCreate() If gzip.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; The Filename is not an actual file on disk, but is just the filename string stored in the gzip compressed format. CkGzip::setCkFilename(gzip, "pvpoj.xml") CkGzip::ckCompressBd(gzip,bd) ; Encrypt the contents using the government provided cert. cert.i = CkCert::ckCreate() If cert.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkCert::ckLoadFromFile(cert,"qa_data/govs/czech/pvpoj/DISCSSZ2019.cer") If success <> 1 Debug CkCert::ckLastErrorText(cert) CkXml::ckDispose(xml) CkBinData::ckDispose(bd) CkGzip::ckDispose(gzip) CkCert::ckDispose(cert) ProcedureReturn EndIf crypt.i = CkCrypt2::ckCreate() If crypt.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkCrypt2::setCkCryptAlgorithm(crypt, "pki") CkCrypt2::setCkPkcs7CryptAlg(crypt, "aes") CkCrypt2::setCkKeyLength(crypt, 256) success = CkCrypt2::ckSetEncryptCert(crypt,cert) If success <> 1 Debug CkCrypt2::ckLastErrorText(crypt) CkXml::ckDispose(xml) CkBinData::ckDispose(bd) CkGzip::ckDispose(gzip) CkCert::ckDispose(cert) CkCrypt2::ckDispose(crypt) ProcedureReturn EndIf success = CkCrypt2::ckEncryptBd(crypt,bd) If success <> 1 Debug CkCrypt2::ckLastErrorText(crypt) CkXml::ckDispose(xml) CkBinData::ckDispose(bd) CkGzip::ckDispose(gzip) CkCert::ckDispose(cert) CkCrypt2::ckDispose(crypt) ProcedureReturn EndIf ; 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::ckClear(xml) CkXml::setCkTag(xml, "GovTalkMessage") CkXml::ckAddAttribute(xml,"xmlns","http://www.govtalk.gov.uk/CM/envelope") CkXml::ckUpdateChildContent(xml,"EnvelopeVersion","2.0") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|Class","CSSZ_PVPOJ") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|Qualifier","request") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|Function","submit") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|TransactionID","") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|AuditID","") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|CorrelationID","") CkXml::ckUpdateAttrAt(xml,"Header|MessageDetails|ResponseEndPoint",1,"PollInterval","0") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|Transformation","XML") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|GatewayTest","") CkXml::ckUpdateChildContent(xml,"Header|MessageDetails|GatewayTimestamp","") CkXml::ckUpdateChildContent(xml,"Header|SenderDetails|IDAuthentication|SenderID","") CkXml::ckUpdateChildContent(xml,"Header|SenderDetails|IDAuthentication|Authentication|Method","clear") CkXml::ckUpdateChildContent(xml,"Header|SenderDetails|IDAuthentication|Authentication|Role","") CkXml::ckUpdateChildContent(xml,"Header|SenderDetails|IDAuthentication|Authentication|Value","") CkXml::ckUpdateChildContent(xml,"Header|SenderDetails|X509Certificate","") CkXml::ckUpdateChildContent(xml,"Header|SenderDetails|EmailAddress","admin@chilkatsoft.com") CkXml::ckUpdateAttrAt(xml,"GovTalkDetails|Keys|Key",1,"Type","vars") CkXml::ckUpdateChildContent(xml,"GovTalkDetails|Keys|Key","9992888999") CkXml::ckUpdateChildContent(xml,"GovTalkDetails|GatewayAdditions","") CkXml::ckUpdateAttrAt(xml,"Body|Message",1,"xmlns","http://www.cssz.cz/XMLSchema/envelope") CkXml::ckUpdateAttrAt(xml,"Body|Message",1,"version","1.2") CkXml::ckUpdateAttrAt(xml,"Body|Message",1,"eType","PVPOJ16") CkXml::ckUpdateAttrAt(xml,"Body|Message|Header|Signature",1,"xmlns:dt","urn:schemas-microsoft-com:datatypes") CkXml::ckUpdateAttrAt(xml,"Body|Message|Header|Signature",1,"dt:dt","bin.base64") CkXml::ckUpdateChildContent(xml,"Body|Message|Header|Signature","Signature goes here") CkXml::ckUpdateAttrAt(xml,"Body|Message|Header|Vendor",1,"productName","Abc xyz. s r.o. JKL .NET Client") CkXml::ckUpdateAttrAt(xml,"Body|Message|Header|Vendor",1,"version","6.0.2.0") CkXml::ckUpdateAttrAt(xml,"Body|Message|Body",1,"xmlns:dt","urn:schemas-microsoft-com:datatypes") CkXml::ckUpdateAttrAt(xml,"Body|Message|Body",1,"encrypted","yes") CkXml::ckUpdateAttrAt(xml,"Body|Message|Body",1,"contentEncoding","gzip") CkXml::ckUpdateAttrAt(xml,"Body|Message|Body",1,"dt:dt","bin.base64") ; Insert the contents of bd here: CkXml::ckUpdateChildContent(xml,"Body|Message|Body",CkBinData::ckGetEncoded(bd,"base64")) ; Show the XML to be sent to https://vrep1-t.cssz.cz/VREP/submission CkXml::setCkEmitCompact(xml, 0) Debug CkXml::ckGetXml(xml) CkXml::setCkEmitCompact(xml, 1) ; ---------------------------------------------------------- ; POST the XML to https://vrep1-t.cssz.cz/VREP/submission http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf resp.i = CkHttp::ckPostXml(http,"https://vrep1-t.cssz.cz/VREP/submission",CkXml::ckGetXml(xml),"utf-8") If CkHttp::ckLastMethodSuccess(http) <> 1 Debug CkHttp::ckLastErrorText(http) CkXml::ckDispose(xml) CkBinData::ckDispose(bd) CkGzip::ckDispose(gzip) CkCert::ckDispose(cert) CkCrypt2::ckDispose(crypt) CkHttp::ckDispose(http) ProcedureReturn EndIf ; Examine the response status code (200 = success) statusCode.i = CkHttpResponse::ckStatusCode(resp) Debug "Response status code = " + Str(statusCode) ; The response body should be XML. ; Load it into a Chilkat XML object to get it in indented format for viewing.. CkXml::ckClear(xml) CkXml::ckLoadXml(xml,CkHttpResponse::ckBodyStr(resp)) CkXml::setCkEmitCompact(xml, 0) Debug CkXml::ckGetXml(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::ckDispose(resp) CkXml::ckDispose(xml) CkBinData::ckDispose(bd) CkGzip::ckDispose(gzip) CkCert::ckDispose(cert) CkCrypt2::ckDispose(crypt) CkHttp::ckDispose(http) ProcedureReturn EndProcedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.