Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

<?xml version="1.0" encoding="UTF-8"?> 
<!-- Datenbeispiel - Energieausweis zur Nutzung WEB-Service Registriernummernvergabe
<root xmlns="https://energieausweis.dibt.de/schema/SchemaDatenErfassung.xsd"> 
<Authentifizierung> 
 <Aussteller_ID_DIBT>test@test.de</Aussteller_ID_DIBT> 
 <Aussteller_PWD_DIBT>FA02193CBF8EEF3C4A4C639D2DB24221</Aussteller_PWD_DIBT>
</Authentifizierung> 
<EnEV-Nachweis> 
 <Ausstellungsdatum>2014-02-12</Ausstellungsdatum> 
 <Bundesland>Berlin</Bundesland> 
 <Postleitzahl>12101</Postleitzahl> 
</EnEV-Nachweis> 
<Energieausweis-Daten> 
 <Gebaeudeart>Wohngebäude</Gebaeudeart> 
 <Art>Energieverbrauchsausweis</Art> 
 <Neubau>1</Neubau> 
</Energieausweis-Daten> 
</root> 

Code: Alles auswählen

cUrl := "https://teambox.com/api/1/projects -u formcommander:1245789"
oHttp := TServerXMLHTTPRequest():New()
if oHttp:Open("POST",cUrlList,,"formcommander","1245789")
     dc_hourglasson()
     oHTTp:lIgnoreCertAll := .t.
     if oHttp:Send()
           sleep(5)
           cc := oHttp:responseBody
           if !empty(cc)
               dc_hourglassoff()
               return cc
           else
               wmeld("no response from " + cUrl)
               return NIL
           endif
     else
          dc_hourglassoff()
          wmeld("Error send GET message to server:" + cUrl)
          return NIL
     endif
else
     wmeld("Error open " + cUrl)
endif
return NIL