PureBasic
PureBasic
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 PureBasic Downloads
IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkGzip.pb"
IncludeFile "CkXml.pb"
IncludeFile "CkCrypt2.pb"
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkCert.pb"
Procedure ChilkatExample()
success.i = 0
; 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.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 sp�leni�ti")
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","Smith")
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 = 0
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 = 0
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 = 0
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 = CkHttpResponse::ckCreate()
If resp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkHttp::ckHttpStr(http,"POST","https://vrep1-t.cssz.cz/VREP/submission",CkXml::ckGetXml(xml),"utf-8","application/xml",resp)
If success = 0
Debug CkHttp::ckLastErrorText(http)
CkXml::ckDispose(xml)
CkBinData::ckDispose(bd)
CkGzip::ckDispose(gzip)
CkCert::ckDispose(cert)
CkCrypt2::ckDispose(crypt)
CkHttp::ckDispose(http)
CkHttpResponse::ckDispose(resp)
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..
CkXml::ckDispose(xml)
CkBinData::ckDispose(bd)
CkGzip::ckDispose(gzip)
CkCert::ckDispose(cert)
CkCrypt2::ckDispose(crypt)
CkHttp::ckDispose(http)
CkHttpResponse::ckDispose(resp)
ProcedureReturn
EndProcedure