Dim xml As NewChilkat.Xml
xml.Tag = "soapenv:Envelope"Dim success As Boolean
success = xml.AddAttribute("xmlns:ns","http://sledzenie.pocztapolska.pl")
success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
xml.UpdateChildContent"soapenv:Header",""
xml.UpdateChildContent"soapenv:Body|ns:sprawdzPrzesylke|ns:numer","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.
xml.EmitXmlDecl = FalseDim soapRequestBody As String
soapRequestBody = xml.GetXml()
Dim endpoint As String
endpoint = "https://tt.poczta-polska.pl/Sledzenie/services/Sledzenie.SledzenieHttpSoap11Endpoint/"Dim soapAction As String
soapAction = "urn:sprawdzPrzesylke"// For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"Dim contentType As String
contentType = "text/xml"Dim http As NewChilkat.Http
http.ClearHeaders
http.SetRequestHeader"Content-Type",contentType
http.SetRequestHeader"SOAPAction",soapAction
Dim resp AsChilkat.HttpResponse
resp = http.PostXml(endpoint,soapRequestBody,"utf-8")
If (http.LastMethodSuccess = False) Then
System.DebugLog(http.LastErrorText)
System.DebugLog("Failed to send SOAP request.")
ReturnEnd If// Get the XML response body.Dim responseXml As NewChilkat.Xml
success = resp.GetBodyXml(responseXml)
Dim statusCode As Int32
statusCode = resp.StatusCode
System.DebugLog("response status code: " + Str(statusCode))
// If the status code does not indicate succcess, then show the response XML,
// which probably contains error information.If (statusCode <> 200) Then
System.DebugLog(responseXml.GetXml())
ReturnEnd If
System.DebugLog(responseXml.GetXml())
// 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).Dim dataNadania As String
dataNadania = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:dataNadania")
Dim format As String
format = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:format")
Dim kodKrajuNadania As String
kodKrajuNadania = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:kodKrajuNadania")
Dim kodKrajuPrzezn As String
kodKrajuPrzezn = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:kodKrajuPrzezn")
Dim kodRodzPrzes As String
kodRodzPrzes = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:kodRodzPrzes")
Dim krajNadania As String
krajNadania = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:krajNadania")
Dim krajPrzezn As String
krajPrzezn = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:krajPrzezn")
Dim numer As String
numer = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:numer")
Dim kod As String
kod = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:proceduraSerwis|*:kod")
Dim kopertaFirmowa As String
kopertaFirmowa = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:proceduraSerwis|*:kopertaFirmowa")
Dim nazwa As String
nazwa = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:proceduraSerwis|*:nazwa")
Dim nrPrzesylkiPowiazanej As String
nrPrzesylkiPowiazanej = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:proceduraSerwis|*:przesylkiPowiazane|*:przesylkaPowiazana|*:nrPrzesylkiPowiazanej")
Dim rodzPrzes As String
rodzPrzes = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:rodzPrzes")
Dim godziny As String
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:godzinyPracy|*:dniRobocze|*:godziny")
Dim uwagi As String
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:godzinyPracy|*:dniRobocze|*:uwagi")
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:godzinyPracy|*:niedzISw|*:godziny")
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:godzinyPracy|*:niedzISw|*:uwagi")
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:godzinyPracy|*:soboty|*:godziny")
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:godzinyPracy|*:soboty|*:uwagi")
Dim miejscowosc As String
miejscowosc = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:miejscowosc")
Dim nrDomu As String
nrDomu = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:nrDomu")
Dim nrLokalu As String
nrLokalu = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:nrLokalu")
Dim pna As String
pna = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:pna")
Dim ulica As String
ulica = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:daneSzczegolowe|*:ulica")
nazwa = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadNadania|*:nazwa")
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:godzinyPracy|*:dniRobocze|*:godziny")
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:godzinyPracy|*:dniRobocze|*:uwagi")
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:godzinyPracy|*:niedzISw|*:godziny")
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:godzinyPracy|*:niedzISw|*:uwagi")
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:godzinyPracy|*:soboty|*:godziny")
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:godzinyPracy|*:soboty|*:uwagi")
miejscowosc = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:miejscowosc")
nrDomu = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:nrDomu")
nrLokalu = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:nrLokalu")
pna = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:pna")
ulica = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:daneSzczegolowe|*:ulica")
nazwa = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:urzadPrzezn|*:nazwa")
Dim zakonczonoObsluge As String
zakonczonoObsluge = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zakonczonoObsluge")
Dim czas As String
czas = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:czas")
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:godzinyPracy|*:dniRobocze|*:godziny")
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:godzinyPracy|*:dniRobocze|*:uwagi")
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:godzinyPracy|*:niedzISw|*:godziny")
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:godzinyPracy|*:niedzISw|*:uwagi")
godziny = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:godzinyPracy|*:soboty|*:godziny")
uwagi = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:godzinyPracy|*:soboty|*:uwagi")
miejscowosc = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:miejscowosc")
nrDomu = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:nrDomu")
nrLokalu = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:nrLokalu")
pna = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:pna")
ulica = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:daneSzczegolowe|*:ulica")
nazwa = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:jednostka|*:nazwa")
kod = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:kod")
Dim konczace As String
konczace = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:konczace")
nazwa = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:nazwa")
kod = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:przyczyna|*:kod")
nazwa = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:danePrzesylki|*:zdarzenia|*:zdarzenie|*:przyczyna|*:nazwa")
numer = responseXml.GetChildContent("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:numer")
Dim status As Int32
status = responseXml.GetChildIntValue("*:Body|*:sprawdzPrzesylkeResponse|*:return|*:status")