Aufruf:
Code: Alles auswählen
oXml := xbXMLDocument():new()
oReq := xbComplexType():new("Request")
aadd(oHeader, {"KWgaesteblattUser", "demo@demogemeinde.at"})
aadd(oHeader, {"KWgaesteblattPwd", "demo"})
aadd(oHeader, {"KWgaesteblattGkz", "60999"})
aadd(oHeader, {"KWgaesteblattHotelsw", "Xtra-Hotel"})
aadd(oHeader, {"Content-Type","application/x-www-form-urlencoded"})
// Dann wird die XML-Datei erstellt -> cXMLText
// und an den Zielrechner gesandt.
// cRespiondFile ist die Datei, die ich zurück bekomme.
oResponse := oXml:Execute("http://ghd.finanzstatistik.at/egb-test/gbimport.do", cXMLText, oHeader, cRespondFile)
//Inhalt der erhaltenen Datei:
<?xml version="1.0"?>
<kommunalweb>
<error>-800</error>
<description>null</description>
<eGaesteblatt version="1.0" date="02.02.2016" time="19:26:49" />
</kommunalweb>