$oXml = ObjCreate("Chilkat_9_5_0.Xml")
$oXml.Tag = "soapenv:Envelope"
$oXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
$oXml.AddAttribute("xmlns:ser","service.checkpoint.rs")
$oXml.UpdateChildContent"soapenv:Header",""
$oXml.UpdateChildContentInt"soapenv:Body|ser:VratiSubjektSkraceniPrikaz|ser:subjekt_ID",1042
$oXml.UpdateChildContent"soapenv:Body|ser:VratiSubjektSkraceniPrikaz|ser:token","string"; In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
$oXml.EmitXmlDecl = FalseLocal $soapRequestBody = $oXml.GetXml()
Local $sEndpoint = "https://service.checkpoint.rs/service.asmx"Local $soapAction = "service.checkpoint.rs/VratiSubjektSkraceniPrikaz"; For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"Local $sContentType = "text/xml"
$oHttp = ObjCreate("Chilkat_9_5_0.Http")
$oHttp.ClearHeaders
$oHttp.SetRequestHeader"Content-Type",$sContentType
$oHttp.SetRequestHeader"SOAPAction",$soapAction
Local $oResp = $oHttp.PostXml($sEndpoint,$soapRequestBody,"utf-8")
If ($oHttp.LastMethodSuccess = False) Then
ConsoleWrite($oHttp.LastErrorText & @CRLF)
ConsoleWrite("Failed to send SOAP request." & @CRLF)
Exit
EndIf; Get the XML response body.
$oResponseXml = ObjCreate("Chilkat_9_5_0.Xml")
$oResp.GetBodyXml($oResponseXml)
Local $iStatusCode = $oResp.StatusCode
ConsoleWrite("response status code: " & $iStatusCode & @CRLF)
; If the status code does not indicate succcess, then show the response XML,
; which probably contains error information.If ($iStatusCode <> 200) Then
ConsoleWrite($oResponseXml.GetXml() & @CRLF)
Exit
EndIf
ConsoleWrite($oResponseXml.GetXml() & @CRLF)
; Parse the successful SOAP response XML.; This is a sample of the response XML, but the namespace prefixes will be different.
; We can parse the result using "*" for the namespace prefixes (see below).Local $iSubjekt_ID = $oResponseXml.GetChildIntValue("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Subjekt_ID")
Local $sMBR = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:MBR")
Local $sPIB = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:PIB")
Local $sDatum_Osnivanja = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Datum_Osnivanja")
Local $sDatum_Brisanja = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Datum_Brisanja")
Local $sNaziv_skraceni = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Naziv_skraceni")
Local $sNaziv_pun = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Naziv_pun")
Local $sSediste_mesto = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_mesto")
Local $sSediste_opstina = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_opstina")
Local $sSediste_region = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_region")
Local $sSediste_drzava = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_drzava")
Local $sSediste_ulica = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_ulica")
Local $sSediste_postanski_broj = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_postanski_broj")
Local $sStatus_APR = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Status_APR")
Local $sStatus_NBS = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Status_NBS")
Local $sStatus_CheckPoint = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Status_CheckPoint")
Local $sPravna_Forma = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Pravna_Forma")
Local $sDelatnost_Sifra = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Delatnost_Sifra")
Local $sDelatnost_Region = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Delatnost_Region")
Local $sDelatnost_Naziv = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Delatnost_Naziv")
Local $iPoslednji_FI = $oResponseXml.GetChildIntValue("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Poslednji_FI")
Local $sVelicina = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Velicina")
Local $sInsolventan = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Insolventan")
Local $sPdv_Broj = $oResponseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Pdv_Broj")