E-Nadawca i API Poczty Polskiej - pobranie historii nadanej przesyłki

E-Nadawca i API Poczty Polskiej - pobranie historii nadanej przesyłki
norbert_kacz
NK
norbert_kacz
NK
  • Rejestracja:ponad 9 lat
  • Ostatnio:około 8 lat
  • Postów:19
0

Rejestracja: 42 minuty temu
Ostatnio: 51 sekund temu
Postów: 1

witam wszystkich serdecznie. Nie jestem specjalista w Delphi. Ciągle jeszcze się uczę. Chciałbym pobierac historie na temat przesyłki.
Od kilku dni próbuje podpiąć się Pod API poczty. Niestety ciągle mi cos nie wychodzi. Połaczenie testowe zwraca OK. Jednak wpisanie nr listu przewozowego nie przynosi odpowiedzi. Co ciekawe pole do wpisywania listu jest typu Integer a nr przesyłki wyglada mniej wiecej tak
00159007738000100641 - pozmieniałem niektóre cyfry na zero. Stanowczo to nie da sie zamienic na integer. Jak wpisze tam nr typu 284680 to dostaje OK i getEnvelopeContentFull.
Bardzo prosze o pomoc

httprio2 ma nast ustawienia
port ENSoap
service ElektronicznyNadawca
WSDLLocation https://e-nadawca.poczta-polska.pl/websrv/en.wsdl

Pod x-pressa (firma kurierska) podpiąlem się bez problemu

Kopiuj
procedure TForm1.ButtonPobierzListyPrzewozowePocztaClick(Sender: TObject);
   var
E: elektronicznynadawca;
tmp:getEnvelopeContentFull;
inp: hello;
karta:getkarty;
kartaakt:setAktywnaKarta;
bufor1:bufortype;
nrguid:getguid;
session : getEnvelopeContentFullResponse;
 
begin
 
inp := hello.Create;
try
E:=(httprio2 as elektronicznynadawca);
inp.in_:='test';
karta:=getkarty.Create;
kartaakt:=setAktywnaKarta.Create;
ButtonPobierzListyPrzewozowePoczta.Caption:=inttostr( kartaakt.idKarta);     //ok daje zero
bufor1:=bufortype.Create;
bufor1.active:=true;
 
 
 
tmp := getEnvelopeContentFull.Create;
tmp.idEnvelope := strtoint(EditNrListuPrzewozowego.Text) ;
 
E.getEnvelopeContentFull(tmp);
 
 
 
ShowMessage('OK: '  + tmp.ToString+ #13#10)
except on E:exception do ShowMessage( e.Message+' not OK');
end;
 
inp.Free;
 
end;
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
abrakadaber
abrakadaber
abrakadaber
abrakadaber
  • Rejestracja:ponad 12 lat
  • Ostatnio:7 miesięcy
  • Postów:6610
2
DOKUMENTACJA napisał(a)

getEnvelopeContentFull
Metoda pozwalająca pobrać informacje zwrotne o nadanych przesyłkach w wersji pełnej. Parametrem wejściowym jest idEnvelope zwracane przez metodę sendEnvelope.

jak chcesz tylko śledzić to masz opis i WSDLa

I może na przyszłość zacznij od czytania dokumentacji

Chcesz pomocy - pokaż kod - abrakadabra źle działa z techniką.
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Krwawy Lew
Krwawy Lew
0

Dziekuje bardzo za informacje.
Wlasnie z tej metody probuje skorzystac. Czy bylbys tak uprzejmy i napisal mi jak dokladnie mam to zrobic(kilka linijek kodu)...moje umiejetnosci jeszcze na to nie pozwalaja. Z gory dziekuje za poswiecony czas.

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
abrakadaber
abrakadaber
abrakadaber
abrakadaber
  • Rejestracja:ponad 12 lat
  • Ostatnio:7 miesięcy
  • Postów:6610
0

ale co zrobić? Jak chcesz znaleźć przesyłkę po jej numerze a nie ID to musisz po prostu skorzystać z całkiem innego serwisu (ten, który podałem) w taki sam sposób jak próbujesz teraz (wygenerować WSDLa i wywołać odpowiednią metodę - sprawdzPrzesylke(String numer)) a jak po numerze ID to musisz podać numer ID a nie numer przesyłki

Chcesz pomocy - pokaż kod - abrakadabra źle działa z techniką.
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
norbert_kacz
NK
norbert_kacz
NK
  • Rejestracja:ponad 9 lat
  • Ostatnio:około 8 lat
  • Postów:19
0

a czy mozna podajac numer przesylki dostac nr id i nastepnie zapytac o nr przesyłki?

Idąc za rada skorzystalem z serwisu sledzenie ale tu dla odmiany dostaje zwrotke "com.ctc.wstx.exc.WstxEOFException: Unexpected EOF in prolog
at [row,col {unknown-source}]: [1,0]". Chyba cos z autentykacją nie tak. Ustawilem tak jak znalazlem na stronie http://www.poczta-polska.pl/webservices/

tylko nie wiem jak ustawic UsernameToken Authentication. Pomozesz?

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
abrakadaber
abrakadaber
abrakadaber
abrakadaber
  • Rejestracja:ponad 12 lat
  • Ostatnio:7 miesięcy
  • Postów:6610
3

dobra.

kod przycisku - pobranie danych paczki (testp0 to numer paczki, która zawsze zwraca OK)

Kopiuj
procedure TfrmMain.btn1Click(Sender: TObject);
var
  s: SledzeniePortType;
  p: Przesylka;
begin
  s := GetSledzeniePortType(False, '', htpr1);
  p := s.sprawdzPrzesylkePl('testp0');
  ShowMessage(IntToString(p.status));
end;

kod THTTPRIO BeforeExecute - dodanie nagłówka Security

Kopiuj
procedure TfrmMain.htpr1BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
  xml: IXMLDocument;
  n1, n2: IXMLNode;
begin
  SOAPRequest.Position := 0;
  xml := TXMLDocument.Create(Application);
  xml.LoadFromStream(SOAPRequest);
  n1 := xml.ChildNodes.FindNode('SOAP-ENV:Envelope');
  if n1 <> nil then
  begin
    n1 := n1.AddChild('SOAP-ENV:Header', 0);
    n1 := n1.AddChild('wsse:Security');
    n1.Attributes['SOAP-ENV:mustUnderstand'] := '1';
    n1.Attributes['xmlns:wsse'] := 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd';
    n1 := n1.AddChild('wsse:UsernameToken');
    n1.Attributes['xmlns:wsu'] := 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd';
    n2 := n1.AddChild('wsse:Username');
    n2.Text := 'sledzeniepp';
    n2 := n1.AddChild('wsse:Password');
    n2.Attributes['Type'] := 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText';
    n2.Text := 'PPSA';
  end;
  SOAPRequest.Position := 0;
  xml.SaveToStream(SOAPRequest);
end;

import wykonany w D XE7

Kopiuj
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : https://tt.poczta-polska.pl/Sledzenie/services/Sledzenie?wsdl
//  >Import : https://tt.poczta-polska.pl/Sledzenie/services/Sledzenie?wsdl>0
//  >Import : https://tt.poczta-polska.pl/Sledzenie/services/Sledzenie?wsdl>1
// Encoding : UTF-8
// Version  : 1.0
// (18.11.2015 16:30:16 - - $Rev: 69934 $)
// ************************************************************************ //

unit Sledzenie;

interface

uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.XSBuiltIns;

const
  IS_OPTN = $0001;
  IS_UNBD = $0002;
  IS_NLBL = $0004;
  IS_REF  = $0080;


type
  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Embarcadero types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:boolean         - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:date            - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:float           - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]

  GodzinyPracy         = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }
  Jednostka            = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }
  Zdarzenie            = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }
  GodzinyZUwagami      = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }
  Przyczyna            = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }
  SzczDaneJednostki    = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }
  Komunikat            = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }
  Przesylka            = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }
  DanePrzesylki        = class;                 { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }

  ListaZdarzen = array of Zdarzenie;            { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }


  // ************************************************************************ //
  // XML       : GodzinyPracy, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  GodzinyPracy = class(TRemotable)
  private
    FdniRobocze: GodzinyZUwagami;
    FdniRobocze_Specified: boolean;
    FniedzISw: GodzinyZUwagami;
    FniedzISw_Specified: boolean;
    Fsoboty: GodzinyZUwagami;
    Fsoboty_Specified: boolean;
    procedure SetdniRobocze(Index: Integer; const AGodzinyZUwagami: GodzinyZUwagami);
    function  dniRobocze_Specified(Index: Integer): boolean;
    procedure SetniedzISw(Index: Integer; const AGodzinyZUwagami: GodzinyZUwagami);
    function  niedzISw_Specified(Index: Integer): boolean;
    procedure Setsoboty(Index: Integer; const AGodzinyZUwagami: GodzinyZUwagami);
    function  soboty_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property dniRobocze: GodzinyZUwagami  Index (IS_OPTN or IS_NLBL) read FdniRobocze write SetdniRobocze stored dniRobocze_Specified;
    property niedzISw:   GodzinyZUwagami  Index (IS_OPTN or IS_NLBL) read FniedzISw write SetniedzISw stored niedzISw_Specified;
    property soboty:     GodzinyZUwagami  Index (IS_OPTN or IS_NLBL) read Fsoboty write Setsoboty stored soboty_Specified;
  end;

  ListaPrzesylek = array of Przesylka;          { "http://ws.sledzenie.pocztapolska.pl/xsd"[GblCplx] }


  // ************************************************************************ //
  // XML       : Jednostka, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  Jednostka = class(TRemotable)
  private
    FdaneSzczegolowe: SzczDaneJednostki;
    FdaneSzczegolowe_Specified: boolean;
    Fnazwa: string;
    Fnazwa_Specified: boolean;
    procedure SetdaneSzczegolowe(Index: Integer; const ASzczDaneJednostki: SzczDaneJednostki);
    function  daneSzczegolowe_Specified(Index: Integer): boolean;
    procedure Setnazwa(Index: Integer; const Astring: string);
    function  nazwa_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property daneSzczegolowe: SzczDaneJednostki  Index (IS_OPTN or IS_NLBL) read FdaneSzczegolowe write SetdaneSzczegolowe stored daneSzczegolowe_Specified;
    property nazwa:           string             Index (IS_OPTN or IS_NLBL) read Fnazwa write Setnazwa stored nazwa_Specified;
  end;



  // ************************************************************************ //
  // XML       : Zdarzenie, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  Zdarzenie = class(TRemotable)
  private
    Fczas: string;
    Fczas_Specified: boolean;
    Fjednostka: Jednostka;
    Fjednostka_Specified: boolean;
    Fkod: string;
    Fkod_Specified: boolean;
    Fkonczace: Boolean;
    Fkonczace_Specified: boolean;
    Fnazwa: string;
    Fnazwa_Specified: boolean;
    Fprzyczyna: Przyczyna;
    Fprzyczyna_Specified: boolean;
    procedure Setczas(Index: Integer; const Astring: string);
    function  czas_Specified(Index: Integer): boolean;
    procedure Setjednostka(Index: Integer; const AJednostka: Jednostka);
    function  jednostka_Specified(Index: Integer): boolean;
    procedure Setkod(Index: Integer; const Astring: string);
    function  kod_Specified(Index: Integer): boolean;
    procedure Setkonczace(Index: Integer; const ABoolean: Boolean);
    function  konczace_Specified(Index: Integer): boolean;
    procedure Setnazwa(Index: Integer; const Astring: string);
    function  nazwa_Specified(Index: Integer): boolean;
    procedure Setprzyczyna(Index: Integer; const APrzyczyna: Przyczyna);
    function  przyczyna_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property czas:      string     Index (IS_OPTN or IS_NLBL) read Fczas write Setczas stored czas_Specified;
    property jednostka: Jednostka  Index (IS_OPTN or IS_NLBL) read Fjednostka write Setjednostka stored jednostka_Specified;
    property kod:       string     Index (IS_OPTN or IS_NLBL) read Fkod write Setkod stored kod_Specified;
    property konczace:  Boolean    Index (IS_OPTN) read Fkonczace write Setkonczace stored konczace_Specified;
    property nazwa:     string     Index (IS_OPTN or IS_NLBL) read Fnazwa write Setnazwa stored nazwa_Specified;
    property przyczyna: Przyczyna  Index (IS_OPTN or IS_NLBL) read Fprzyczyna write Setprzyczyna stored przyczyna_Specified;
  end;



  // ************************************************************************ //
  // XML       : GodzinyZUwagami, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  GodzinyZUwagami = class(TRemotable)
  private
    Fgodziny: string;
    Fgodziny_Specified: boolean;
    Fuwagi: string;
    Fuwagi_Specified: boolean;
    procedure Setgodziny(Index: Integer; const Astring: string);
    function  godziny_Specified(Index: Integer): boolean;
    procedure Setuwagi(Index: Integer; const Astring: string);
    function  uwagi_Specified(Index: Integer): boolean;
  published
    property godziny: string  Index (IS_OPTN or IS_NLBL) read Fgodziny write Setgodziny stored godziny_Specified;
    property uwagi:   string  Index (IS_OPTN or IS_NLBL) read Fuwagi write Setuwagi stored uwagi_Specified;
  end;



  // ************************************************************************ //
  // XML       : Przyczyna, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  Przyczyna = class(TRemotable)
  private
    Fkod: string;
    Fkod_Specified: boolean;
    Fnazwa: string;
    Fnazwa_Specified: boolean;
    procedure Setkod(Index: Integer; const Astring: string);
    function  kod_Specified(Index: Integer): boolean;
    procedure Setnazwa(Index: Integer; const Astring: string);
    function  nazwa_Specified(Index: Integer): boolean;
  published
    property kod:   string  Index (IS_OPTN or IS_NLBL) read Fkod write Setkod stored kod_Specified;
    property nazwa: string  Index (IS_OPTN or IS_NLBL) read Fnazwa write Setnazwa stored nazwa_Specified;
  end;

  sprawdzPrzesylki = array of string;           { "http://sledzenie.pocztapolska.pl"[Lit][GblElm] }


  // ************************************************************************ //
  // XML       : SzczDaneJednostki, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  SzczDaneJednostki = class(TRemotable)
  private
    FdlGeogr: Single;
    FdlGeogr_Specified: boolean;
    FgodzinyPracy: GodzinyPracy;
    FgodzinyPracy_Specified: boolean;
    Fmiejscowosc: string;
    Fmiejscowosc_Specified: boolean;
    FnrDomu: string;
    FnrDomu_Specified: boolean;
    FnrLokalu: string;
    FnrLokalu_Specified: boolean;
    Fpna: string;
    Fpna_Specified: boolean;
    FszerGeogr: Single;
    FszerGeogr_Specified: boolean;
    Fulica: string;
    Fulica_Specified: boolean;
    procedure SetdlGeogr(Index: Integer; const ASingle: Single);
    function  dlGeogr_Specified(Index: Integer): boolean;
    procedure SetgodzinyPracy(Index: Integer; const AGodzinyPracy: GodzinyPracy);
    function  godzinyPracy_Specified(Index: Integer): boolean;
    procedure Setmiejscowosc(Index: Integer; const Astring: string);
    function  miejscowosc_Specified(Index: Integer): boolean;
    procedure SetnrDomu(Index: Integer; const Astring: string);
    function  nrDomu_Specified(Index: Integer): boolean;
    procedure SetnrLokalu(Index: Integer; const Astring: string);
    function  nrLokalu_Specified(Index: Integer): boolean;
    procedure Setpna(Index: Integer; const Astring: string);
    function  pna_Specified(Index: Integer): boolean;
    procedure SetszerGeogr(Index: Integer; const ASingle: Single);
    function  szerGeogr_Specified(Index: Integer): boolean;
    procedure Setulica(Index: Integer; const Astring: string);
    function  ulica_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property dlGeogr:      Single        Index (IS_OPTN) read FdlGeogr write SetdlGeogr stored dlGeogr_Specified;
    property godzinyPracy: GodzinyPracy  Index (IS_OPTN or IS_NLBL) read FgodzinyPracy write SetgodzinyPracy stored godzinyPracy_Specified;
    property miejscowosc:  string        Index (IS_OPTN or IS_NLBL) read Fmiejscowosc write Setmiejscowosc stored miejscowosc_Specified;
    property nrDomu:       string        Index (IS_OPTN or IS_NLBL) read FnrDomu write SetnrDomu stored nrDomu_Specified;
    property nrLokalu:     string        Index (IS_OPTN or IS_NLBL) read FnrLokalu write SetnrLokalu stored nrLokalu_Specified;
    property pna:          string        Index (IS_OPTN or IS_NLBL) read Fpna write Setpna stored pna_Specified;
    property szerGeogr:    Single        Index (IS_OPTN) read FszerGeogr write SetszerGeogr stored szerGeogr_Specified;
    property ulica:        string        Index (IS_OPTN or IS_NLBL) read Fulica write Setulica stored ulica_Specified;
  end;



  // ************************************************************************ //
  // XML       : Komunikat, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  Komunikat = class(TRemotable)
  private
    Fprzesylki: ListaPrzesylek;
    Fprzesylki_Specified: boolean;
    Fstatus: Integer;
    Fstatus_Specified: boolean;
    procedure Setprzesylki(Index: Integer; const AListaPrzesylek: ListaPrzesylek);
    function  przesylki_Specified(Index: Integer): boolean;
    procedure Setstatus(Index: Integer; const AInteger: Integer);
    function  status_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property przesylki: ListaPrzesylek  Index (IS_OPTN or IS_NLBL) read Fprzesylki write Setprzesylki stored przesylki_Specified;
    property status:    Integer         Index (IS_OPTN) read Fstatus write Setstatus stored status_Specified;
  end;



  // ************************************************************************ //
  // XML       : Przesylka, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  Przesylka = class(TRemotable)
  private
    FdanePrzesylki: DanePrzesylki;
    FdanePrzesylki_Specified: boolean;
    Fnumer: string;
    Fnumer_Specified: boolean;
    Fstatus: Integer;
    Fstatus_Specified: boolean;
    procedure SetdanePrzesylki(Index: Integer; const ADanePrzesylki: DanePrzesylki);
    function  danePrzesylki_Specified(Index: Integer): boolean;
    procedure Setnumer(Index: Integer; const Astring: string);
    function  numer_Specified(Index: Integer): boolean;
    procedure Setstatus(Index: Integer; const AInteger: Integer);
    function  status_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property danePrzesylki: DanePrzesylki  Index (IS_OPTN or IS_NLBL) read FdanePrzesylki write SetdanePrzesylki stored danePrzesylki_Specified;
    property numer:         string         Index (IS_OPTN or IS_NLBL) read Fnumer write Setnumer stored numer_Specified;
    property status:        Integer        Index (IS_OPTN) read Fstatus write Setstatus stored status_Specified;
  end;



  // ************************************************************************ //
  // XML       : DanePrzesylki, global, <complexType>
  // Namespace : http://ws.sledzenie.pocztapolska.pl/xsd
  // ************************************************************************ //
  DanePrzesylki = class(TRemotable)
  private
    FdataNadania: TXSDate;
    FdataNadania_Specified: boolean;
    FkodKrajuNadania: string;
    FkodKrajuNadania_Specified: boolean;
    FkodKrajuPrzezn: string;
    FkodKrajuPrzezn_Specified: boolean;
    FkodRodzPrzes: string;
    FkodRodzPrzes_Specified: boolean;
    FkrajNadania: string;
    FkrajNadania_Specified: boolean;
    FkrajPrzezn: string;
    FkrajPrzezn_Specified: boolean;
    Fmasa: Single;
    Fmasa_Specified: boolean;
    Fnumer: string;
    Fnumer_Specified: boolean;
    FrodzPrzes: string;
    FrodzPrzes_Specified: boolean;
    FurzadNadania: Jednostka;
    FurzadNadania_Specified: boolean;
    FurzadPrzezn: Jednostka;
    FurzadPrzezn_Specified: boolean;
    FzakonczonoObsluge: Boolean;
    FzakonczonoObsluge_Specified: boolean;
    Fzdarzenia: ListaZdarzen;
    Fzdarzenia_Specified: boolean;
    procedure SetdataNadania(Index: Integer; const ATXSDate: TXSDate);
    function  dataNadania_Specified(Index: Integer): boolean;
    procedure SetkodKrajuNadania(Index: Integer; const Astring: string);
    function  kodKrajuNadania_Specified(Index: Integer): boolean;
    procedure SetkodKrajuPrzezn(Index: Integer; const Astring: string);
    function  kodKrajuPrzezn_Specified(Index: Integer): boolean;
    procedure SetkodRodzPrzes(Index: Integer; const Astring: string);
    function  kodRodzPrzes_Specified(Index: Integer): boolean;
    procedure SetkrajNadania(Index: Integer; const Astring: string);
    function  krajNadania_Specified(Index: Integer): boolean;
    procedure SetkrajPrzezn(Index: Integer; const Astring: string);
    function  krajPrzezn_Specified(Index: Integer): boolean;
    procedure Setmasa(Index: Integer; const ASingle: Single);
    function  masa_Specified(Index: Integer): boolean;
    procedure Setnumer(Index: Integer; const Astring: string);
    function  numer_Specified(Index: Integer): boolean;
    procedure SetrodzPrzes(Index: Integer; const Astring: string);
    function  rodzPrzes_Specified(Index: Integer): boolean;
    procedure SeturzadNadania(Index: Integer; const AJednostka: Jednostka);
    function  urzadNadania_Specified(Index: Integer): boolean;
    procedure SeturzadPrzezn(Index: Integer; const AJednostka: Jednostka);
    function  urzadPrzezn_Specified(Index: Integer): boolean;
    procedure SetzakonczonoObsluge(Index: Integer; const ABoolean: Boolean);
    function  zakonczonoObsluge_Specified(Index: Integer): boolean;
    procedure Setzdarzenia(Index: Integer; const AListaZdarzen: ListaZdarzen);
    function  zdarzenia_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property dataNadania:       TXSDate       Index (IS_OPTN or IS_NLBL) read FdataNadania write SetdataNadania stored dataNadania_Specified;
    property kodKrajuNadania:   string        Index (IS_OPTN or IS_NLBL) read FkodKrajuNadania write SetkodKrajuNadania stored kodKrajuNadania_Specified;
    property kodKrajuPrzezn:    string        Index (IS_OPTN or IS_NLBL) read FkodKrajuPrzezn write SetkodKrajuPrzezn stored kodKrajuPrzezn_Specified;
    property kodRodzPrzes:      string        Index (IS_OPTN or IS_NLBL) read FkodRodzPrzes write SetkodRodzPrzes stored kodRodzPrzes_Specified;
    property krajNadania:       string        Index (IS_OPTN or IS_NLBL) read FkrajNadania write SetkrajNadania stored krajNadania_Specified;
    property krajPrzezn:        string        Index (IS_OPTN or IS_NLBL) read FkrajPrzezn write SetkrajPrzezn stored krajPrzezn_Specified;
    property masa:              Single        Index (IS_OPTN or IS_NLBL) read Fmasa write Setmasa stored masa_Specified;
    property numer:             string        Index (IS_OPTN or IS_NLBL) read Fnumer write Setnumer stored numer_Specified;
    property rodzPrzes:         string        Index (IS_OPTN or IS_NLBL) read FrodzPrzes write SetrodzPrzes stored rodzPrzes_Specified;
    property urzadNadania:      Jednostka     Index (IS_OPTN or IS_NLBL) read FurzadNadania write SeturzadNadania stored urzadNadania_Specified;
    property urzadPrzezn:       Jednostka     Index (IS_OPTN or IS_NLBL) read FurzadPrzezn write SeturzadPrzezn stored urzadPrzezn_Specified;
    property zakonczonoObsluge: Boolean       Index (IS_OPTN) read FzakonczonoObsluge write SetzakonczonoObsluge stored zakonczonoObsluge_Specified;
    property zdarzenia:         ListaZdarzen  Index (IS_OPTN or IS_NLBL) read Fzdarzenia write Setzdarzenia stored zdarzenia_Specified;
  end;


  // ************************************************************************ //
  // Namespace : http://sledzenie.pocztapolska.pl
  // soapAction: urn:%operationName%
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // use       : literal
  // binding   : SledzenieSoap11Binding
  // service   : Sledzenie
  // port      : SledzenieHttpSoap11Endpoint
  // URL       : https://tt.poczta-polska.pl/Sledzenie/services/Sledzenie.SledzenieHttpSoap11Endpoint/
  // ************************************************************************ //
  SledzeniePortType = interface(IInvokable)
  ['{8C0B419F-11EA-387F-DE46-CA42E76E4747}']
    function  wersja: string; stdcall;
    function  sprawdzPrzesylkiPl(const numer: sprawdzPrzesylki): Komunikat; stdcall;
    function  sprawdzPrzesylkePl(const numer: string): Przesylka; stdcall;
    function  sprawdzPrzesylkiOdDo(const numer: sprawdzPrzesylki; const odDnia: string; const doDnia: string): Komunikat; stdcall;
    function  maksymalnaLiczbaPrzesylek: Integer; stdcall;
    function  sprawdzPrzesylke(const numer: string): Przesylka; stdcall;
    function  sprawdzPrzesylkiOdDoPl(const numer: sprawdzPrzesylki; const odDnia: string; const doDnia: string): Komunikat; stdcall;
    function  witaj(const imie: string): string; stdcall;
    function  sprawdzPrzesylki(const numer: sprawdzPrzesylki): Komunikat; stdcall;
  end;

function GetSledzeniePortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): SledzeniePortType;


implementation
  uses System.SysUtils;

function GetSledzeniePortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): SledzeniePortType;
const
  defWSDL = 'https://tt.poczta-polska.pl/Sledzenie/services/Sledzenie?wsdl';
  defURL  = 'https://tt.poczta-polska.pl/Sledzenie/services/Sledzenie.SledzenieHttpSoap11Endpoint/';
  defSvc  = 'Sledzenie';
  defPrt  = 'SledzenieHttpSoap11Endpoint';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as SledzeniePortType);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


destructor GodzinyPracy.Destroy;
begin
  System.SysUtils.FreeAndNil(FdniRobocze);
  System.SysUtils.FreeAndNil(FniedzISw);
  System.SysUtils.FreeAndNil(Fsoboty);
  inherited Destroy;
end;

procedure GodzinyPracy.SetdniRobocze(Index: Integer; const AGodzinyZUwagami: GodzinyZUwagami);
begin
  FdniRobocze := AGodzinyZUwagami;
  FdniRobocze_Specified := True;
end;

function GodzinyPracy.dniRobocze_Specified(Index: Integer): boolean;
begin
  Result := FdniRobocze_Specified;
end;

procedure GodzinyPracy.SetniedzISw(Index: Integer; const AGodzinyZUwagami: GodzinyZUwagami);
begin
  FniedzISw := AGodzinyZUwagami;
  FniedzISw_Specified := True;
end;

function GodzinyPracy.niedzISw_Specified(Index: Integer): boolean;
begin
  Result := FniedzISw_Specified;
end;

procedure GodzinyPracy.Setsoboty(Index: Integer; const AGodzinyZUwagami: GodzinyZUwagami);
begin
  Fsoboty := AGodzinyZUwagami;
  Fsoboty_Specified := True;
end;

function GodzinyPracy.soboty_Specified(Index: Integer): boolean;
begin
  Result := Fsoboty_Specified;
end;

destructor Jednostka.Destroy;
begin
  System.SysUtils.FreeAndNil(FdaneSzczegolowe);
  inherited Destroy;
end;

procedure Jednostka.SetdaneSzczegolowe(Index: Integer; const ASzczDaneJednostki: SzczDaneJednostki);
begin
  FdaneSzczegolowe := ASzczDaneJednostki;
  FdaneSzczegolowe_Specified := True;
end;

function Jednostka.daneSzczegolowe_Specified(Index: Integer): boolean;
begin
  Result := FdaneSzczegolowe_Specified;
end;

procedure Jednostka.Setnazwa(Index: Integer; const Astring: string);
begin
  Fnazwa := Astring;
  Fnazwa_Specified := True;
end;

function Jednostka.nazwa_Specified(Index: Integer): boolean;
begin
  Result := Fnazwa_Specified;
end;

destructor Zdarzenie.Destroy;
begin
  System.SysUtils.FreeAndNil(Fjednostka);
  System.SysUtils.FreeAndNil(Fprzyczyna);
  inherited Destroy;
end;

procedure Zdarzenie.Setczas(Index: Integer; const Astring: string);
begin
  Fczas := Astring;
  Fczas_Specified := True;
end;

function Zdarzenie.czas_Specified(Index: Integer): boolean;
begin
  Result := Fczas_Specified;
end;

procedure Zdarzenie.Setjednostka(Index: Integer; const AJednostka: Jednostka);
begin
  Fjednostka := AJednostka;
  Fjednostka_Specified := True;
end;

function Zdarzenie.jednostka_Specified(Index: Integer): boolean;
begin
  Result := Fjednostka_Specified;
end;

procedure Zdarzenie.Setkod(Index: Integer; const Astring: string);
begin
  Fkod := Astring;
  Fkod_Specified := True;
end;

function Zdarzenie.kod_Specified(Index: Integer): boolean;
begin
  Result := Fkod_Specified;
end;

procedure Zdarzenie.Setkonczace(Index: Integer; const ABoolean: Boolean);
begin
  Fkonczace := ABoolean;
  Fkonczace_Specified := True;
end;

function Zdarzenie.konczace_Specified(Index: Integer): boolean;
begin
  Result := Fkonczace_Specified;
end;

procedure Zdarzenie.Setnazwa(Index: Integer; const Astring: string);
begin
  Fnazwa := Astring;
  Fnazwa_Specified := True;
end;

function Zdarzenie.nazwa_Specified(Index: Integer): boolean;
begin
  Result := Fnazwa_Specified;
end;

procedure Zdarzenie.Setprzyczyna(Index: Integer; const APrzyczyna: Przyczyna);
begin
  Fprzyczyna := APrzyczyna;
  Fprzyczyna_Specified := True;
end;

function Zdarzenie.przyczyna_Specified(Index: Integer): boolean;
begin
  Result := Fprzyczyna_Specified;
end;

procedure GodzinyZUwagami.Setgodziny(Index: Integer; const Astring: string);
begin
  Fgodziny := Astring;
  Fgodziny_Specified := True;
end;

function GodzinyZUwagami.godziny_Specified(Index: Integer): boolean;
begin
  Result := Fgodziny_Specified;
end;

procedure GodzinyZUwagami.Setuwagi(Index: Integer; const Astring: string);
begin
  Fuwagi := Astring;
  Fuwagi_Specified := True;
end;

function GodzinyZUwagami.uwagi_Specified(Index: Integer): boolean;
begin
  Result := Fuwagi_Specified;
end;

procedure Przyczyna.Setkod(Index: Integer; const Astring: string);
begin
  Fkod := Astring;
  Fkod_Specified := True;
end;

function Przyczyna.kod_Specified(Index: Integer): boolean;
begin
  Result := Fkod_Specified;
end;

procedure Przyczyna.Setnazwa(Index: Integer; const Astring: string);
begin
  Fnazwa := Astring;
  Fnazwa_Specified := True;
end;

function Przyczyna.nazwa_Specified(Index: Integer): boolean;
begin
  Result := Fnazwa_Specified;
end;

destructor SzczDaneJednostki.Destroy;
begin
  System.SysUtils.FreeAndNil(FgodzinyPracy);
  inherited Destroy;
end;

procedure SzczDaneJednostki.SetdlGeogr(Index: Integer; const ASingle: Single);
begin
  FdlGeogr := ASingle;
  FdlGeogr_Specified := True;
end;

function SzczDaneJednostki.dlGeogr_Specified(Index: Integer): boolean;
begin
  Result := FdlGeogr_Specified;
end;

procedure SzczDaneJednostki.SetgodzinyPracy(Index: Integer; const AGodzinyPracy: GodzinyPracy);
begin
  FgodzinyPracy := AGodzinyPracy;
  FgodzinyPracy_Specified := True;
end;

function SzczDaneJednostki.godzinyPracy_Specified(Index: Integer): boolean;
begin
  Result := FgodzinyPracy_Specified;
end;

procedure SzczDaneJednostki.Setmiejscowosc(Index: Integer; const Astring: string);
begin
  Fmiejscowosc := Astring;
  Fmiejscowosc_Specified := True;
end;

function SzczDaneJednostki.miejscowosc_Specified(Index: Integer): boolean;
begin
  Result := Fmiejscowosc_Specified;
end;

procedure SzczDaneJednostki.SetnrDomu(Index: Integer; const Astring: string);
begin
  FnrDomu := Astring;
  FnrDomu_Specified := True;
end;

function SzczDaneJednostki.nrDomu_Specified(Index: Integer): boolean;
begin
  Result := FnrDomu_Specified;
end;

procedure SzczDaneJednostki.SetnrLokalu(Index: Integer; const Astring: string);
begin
  FnrLokalu := Astring;
  FnrLokalu_Specified := True;
end;

function SzczDaneJednostki.nrLokalu_Specified(Index: Integer): boolean;
begin
  Result := FnrLokalu_Specified;
end;

procedure SzczDaneJednostki.Setpna(Index: Integer; const Astring: string);
begin
  Fpna := Astring;
  Fpna_Specified := True;
end;

function SzczDaneJednostki.pna_Specified(Index: Integer): boolean;
begin
  Result := Fpna_Specified;
end;

procedure SzczDaneJednostki.SetszerGeogr(Index: Integer; const ASingle: Single);
begin
  FszerGeogr := ASingle;
  FszerGeogr_Specified := True;
end;

function SzczDaneJednostki.szerGeogr_Specified(Index: Integer): boolean;
begin
  Result := FszerGeogr_Specified;
end;

procedure SzczDaneJednostki.Setulica(Index: Integer; const Astring: string);
begin
  Fulica := Astring;
  Fulica_Specified := True;
end;

function SzczDaneJednostki.ulica_Specified(Index: Integer): boolean;
begin
  Result := Fulica_Specified;
end;

destructor Komunikat.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(Fprzesylki)-1 do
    System.SysUtils.FreeAndNil(Fprzesylki[I]);
  System.SetLength(Fprzesylki, 0);
  inherited Destroy;
end;

procedure Komunikat.Setprzesylki(Index: Integer; const AListaPrzesylek: ListaPrzesylek);
begin
  Fprzesylki := AListaPrzesylek;
  Fprzesylki_Specified := True;
end;

function Komunikat.przesylki_Specified(Index: Integer): boolean;
begin
  Result := Fprzesylki_Specified;
end;

procedure Komunikat.Setstatus(Index: Integer; const AInteger: Integer);
begin
  Fstatus := AInteger;
  Fstatus_Specified := True;
end;

function Komunikat.status_Specified(Index: Integer): boolean;
begin
  Result := Fstatus_Specified;
end;

destructor Przesylka.Destroy;
begin
  System.SysUtils.FreeAndNil(FdanePrzesylki);
  inherited Destroy;
end;

procedure Przesylka.SetdanePrzesylki(Index: Integer; const ADanePrzesylki: DanePrzesylki);
begin
  FdanePrzesylki := ADanePrzesylki;
  FdanePrzesylki_Specified := True;
end;

function Przesylka.danePrzesylki_Specified(Index: Integer): boolean;
begin
  Result := FdanePrzesylki_Specified;
end;

procedure Przesylka.Setnumer(Index: Integer; const Astring: string);
begin
  Fnumer := Astring;
  Fnumer_Specified := True;
end;

function Przesylka.numer_Specified(Index: Integer): boolean;
begin
  Result := Fnumer_Specified;
end;

procedure Przesylka.Setstatus(Index: Integer; const AInteger: Integer);
begin
  Fstatus := AInteger;
  Fstatus_Specified := True;
end;

function Przesylka.status_Specified(Index: Integer): boolean;
begin
  Result := Fstatus_Specified;
end;

destructor DanePrzesylki.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(Fzdarzenia)-1 do
    System.SysUtils.FreeAndNil(Fzdarzenia[I]);
  System.SetLength(Fzdarzenia, 0);
  System.SysUtils.FreeAndNil(FdataNadania);
  System.SysUtils.FreeAndNil(FurzadNadania);
  System.SysUtils.FreeAndNil(FurzadPrzezn);
  inherited Destroy;
end;

procedure DanePrzesylki.SetdataNadania(Index: Integer; const ATXSDate: TXSDate);
begin
  FdataNadania := ATXSDate;
  FdataNadania_Specified := True;
end;

function DanePrzesylki.dataNadania_Specified(Index: Integer): boolean;
begin
  Result := FdataNadania_Specified;
end;

procedure DanePrzesylki.SetkodKrajuNadania(Index: Integer; const Astring: string);
begin
  FkodKrajuNadania := Astring;
  FkodKrajuNadania_Specified := True;
end;

function DanePrzesylki.kodKrajuNadania_Specified(Index: Integer): boolean;
begin
  Result := FkodKrajuNadania_Specified;
end;

procedure DanePrzesylki.SetkodKrajuPrzezn(Index: Integer; const Astring: string);
begin
  FkodKrajuPrzezn := Astring;
  FkodKrajuPrzezn_Specified := True;
end;

function DanePrzesylki.kodKrajuPrzezn_Specified(Index: Integer): boolean;
begin
  Result := FkodKrajuPrzezn_Specified;
end;

procedure DanePrzesylki.SetkodRodzPrzes(Index: Integer; const Astring: string);
begin
  FkodRodzPrzes := Astring;
  FkodRodzPrzes_Specified := True;
end;

function DanePrzesylki.kodRodzPrzes_Specified(Index: Integer): boolean;
begin
  Result := FkodRodzPrzes_Specified;
end;

procedure DanePrzesylki.SetkrajNadania(Index: Integer; const Astring: string);
begin
  FkrajNadania := Astring;
  FkrajNadania_Specified := True;
end;

function DanePrzesylki.krajNadania_Specified(Index: Integer): boolean;
begin
  Result := FkrajNadania_Specified;
end;

procedure DanePrzesylki.SetkrajPrzezn(Index: Integer; const Astring: string);
begin
  FkrajPrzezn := Astring;
  FkrajPrzezn_Specified := True;
end;

function DanePrzesylki.krajPrzezn_Specified(Index: Integer): boolean;
begin
  Result := FkrajPrzezn_Specified;
end;

procedure DanePrzesylki.Setmasa(Index: Integer; const ASingle: Single);
begin
  Fmasa := ASingle;
  Fmasa_Specified := True;
end;

function DanePrzesylki.masa_Specified(Index: Integer): boolean;
begin
  Result := Fmasa_Specified;
end;

procedure DanePrzesylki.Setnumer(Index: Integer; const Astring: string);
begin
  Fnumer := Astring;
  Fnumer_Specified := True;
end;

function DanePrzesylki.numer_Specified(Index: Integer): boolean;
begin
  Result := Fnumer_Specified;
end;

procedure DanePrzesylki.SetrodzPrzes(Index: Integer; const Astring: string);
begin
  FrodzPrzes := Astring;
  FrodzPrzes_Specified := True;
end;

function DanePrzesylki.rodzPrzes_Specified(Index: Integer): boolean;
begin
  Result := FrodzPrzes_Specified;
end;

procedure DanePrzesylki.SeturzadNadania(Index: Integer; const AJednostka: Jednostka);
begin
  FurzadNadania := AJednostka;
  FurzadNadania_Specified := True;
end;

function DanePrzesylki.urzadNadania_Specified(Index: Integer): boolean;
begin
  Result := FurzadNadania_Specified;
end;

procedure DanePrzesylki.SeturzadPrzezn(Index: Integer; const AJednostka: Jednostka);
begin
  FurzadPrzezn := AJednostka;
  FurzadPrzezn_Specified := True;
end;

function DanePrzesylki.urzadPrzezn_Specified(Index: Integer): boolean;
begin
  Result := FurzadPrzezn_Specified;
end;

procedure DanePrzesylki.SetzakonczonoObsluge(Index: Integer; const ABoolean: Boolean);
begin
  FzakonczonoObsluge := ABoolean;
  FzakonczonoObsluge_Specified := True;
end;

function DanePrzesylki.zakonczonoObsluge_Specified(Index: Integer): boolean;
begin
  Result := FzakonczonoObsluge_Specified;
end;

procedure DanePrzesylki.Setzdarzenia(Index: Integer; const AListaZdarzen: ListaZdarzen);
begin
  Fzdarzenia := AListaZdarzen;
  Fzdarzenia_Specified := True;
end;

function DanePrzesylki.zdarzenia_Specified(Index: Integer): boolean;
begin
  Result := Fzdarzenia_Specified;
end;

initialization
  { SledzeniePortType }
  InvRegistry.RegisterInterface(TypeInfo(SledzeniePortType), 'http://sledzenie.pocztapolska.pl', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(SledzeniePortType), 'urn:%operationName%');
  InvRegistry.RegisterInvokeOptions(TypeInfo(SledzeniePortType), ioDocument);
  { SledzeniePortType.wersja }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'wersja', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'wersja', 'return', '',
                                '', IS_NLBL);
  { SledzeniePortType.sprawdzPrzesylkiPl }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiPl', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiPl', 'numer', '',
                                '[ArrayItemName="numer"]', IS_UNBD or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiPl', 'return', '',
                                '[Namespace="http://ws.sledzenie.pocztapolska.pl/xsd"]', IS_NLBL);
  { SledzeniePortType.sprawdzPrzesylkePl }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkePl', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkePl', 'numer', '',
                                '', IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkePl', 'return', '',
                                '[Namespace="http://ws.sledzenie.pocztapolska.pl/xsd"]', IS_NLBL);
  { SledzeniePortType.sprawdzPrzesylkiOdDo }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDo', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDo', 'numer', '',
                                '[ArrayItemName="numer"]', IS_UNBD or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDo', 'odDnia', '',
                                '', IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDo', 'doDnia', '',
                                '', IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDo', 'return', '',
                                '[Namespace="http://ws.sledzenie.pocztapolska.pl/xsd"]', IS_NLBL);
  { SledzeniePortType.maksymalnaLiczbaPrzesylek }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'maksymalnaLiczbaPrzesylek', '',
                                 '[ReturnName="return"]', IS_OPTN);
  { SledzeniePortType.sprawdzPrzesylke }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylke', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylke', 'numer', '',
                                '', IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylke', 'return', '',
                                '[Namespace="http://ws.sledzenie.pocztapolska.pl/xsd"]', IS_NLBL);
  { SledzeniePortType.sprawdzPrzesylkiOdDoPl }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDoPl', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDoPl', 'numer', '',
                                '[ArrayItemName="numer"]', IS_UNBD or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDoPl', 'odDnia', '',
                                '', IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDoPl', 'doDnia', '',
                                '', IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylkiOdDoPl', 'return', '',
                                '[Namespace="http://ws.sledzenie.pocztapolska.pl/xsd"]', IS_NLBL);
  { SledzeniePortType.witaj }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'witaj', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'witaj', 'imie', '',
                                '', IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'witaj', 'return', '',
                                '', IS_NLBL);
  { SledzeniePortType.sprawdzPrzesylki }
  InvRegistry.RegisterMethodInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylki', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylki', 'numer', '',
                                '[ArrayItemName="numer"]', IS_UNBD or IS_NLBL);
  InvRegistry.RegisterParamInfo(TypeInfo(SledzeniePortType), 'sprawdzPrzesylki', 'return', '',
                                '[Namespace="http://ws.sledzenie.pocztapolska.pl/xsd"]', IS_NLBL);
  RemClassRegistry.RegisterXSInfo(TypeInfo(ListaZdarzen), 'http://ws.sledzenie.pocztapolska.pl/xsd', 'ListaZdarzen');
  RemClassRegistry.RegisterXSClass(GodzinyPracy, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'GodzinyPracy');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ListaPrzesylek), 'http://ws.sledzenie.pocztapolska.pl/xsd', 'ListaPrzesylek');
  RemClassRegistry.RegisterXSClass(Jednostka, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'Jednostka');
  RemClassRegistry.RegisterXSClass(Zdarzenie, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'Zdarzenie');
  RemClassRegistry.RegisterXSClass(GodzinyZUwagami, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'GodzinyZUwagami');
  RemClassRegistry.RegisterXSClass(Przyczyna, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'Przyczyna');
  RemClassRegistry.RegisterXSInfo(TypeInfo(sprawdzPrzesylki), 'http://sledzenie.pocztapolska.pl', 'sprawdzPrzesylki');
  RemClassRegistry.RegisterXSClass(SzczDaneJednostki, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'SzczDaneJednostki');
  RemClassRegistry.RegisterXSClass(Komunikat, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'Komunikat');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(Komunikat), 'przesylki', '[ArrayItemName="przesylka"]');
  RemClassRegistry.RegisterXSClass(Przesylka, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'Przesylka');
  RemClassRegistry.RegisterXSClass(DanePrzesylki, 'http://ws.sledzenie.pocztapolska.pl/xsd', 'DanePrzesylki');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(DanePrzesylki), 'zdarzenia', '[ArrayItemName="zdarzenie"]');
end.

Gdzie się zgłosić po browara?

Chcesz pomocy - pokaż kod - abrakadabra źle działa z techniką.
edytowany 1x, ostatnio: abrakadaber
flowCRANE
Raczej po skrzynkę, za tyle kodu ;)
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
norbert_kacz
NK
norbert_kacz
NK
  • Rejestracja:ponad 9 lat
  • Ostatnio:około 8 lat
  • Postów:19
0

Zartujesz sobie ze mnie?. Jakiego browara? Człowieku masz u mnie duzego Jaska Wędrowniczka lub to tam sobie chcesz. Wyslij mi tylko adres.
Jestem Ci bardzo bardzo wdzieczny. Juz się poddałem. Jeszcze duzo nauki przede mna, ale korzystając z pomocy takich ludzi jak TY nie zginę.
WIELKIE DZIEKUJE!!!

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
abrakadaber
abrakadaber
abrakadaber
abrakadaber
  • Rejestracja:ponad 12 lat
  • Ostatnio:7 miesięcy
  • Postów:6610
0

Jeszce mi się przypomniało - przy dodawaniu nagłówka Security może niektórych dziwić to nieszczęsne 0 w tym miejscu n1 := n1.AddChild('SOAP-ENV:Header', 0);. Otóż okazuje się, że kolejność poszczególnych elementów w pliku XML, który wysyłamy do WS poczty jest WAŻNA! Jeśli dodamy ten element na końcu to przy próbie pobrania info o przesyłce serwis zwróci informację o niemożliwości poprawnego sparsowania dokumentu... A ja głupi zawsze myślałem, że w XMLu kolejność elementów nie ma znaczenia

Chcesz pomocy - pokaż kod - abrakadabra źle działa z techniką.
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
Treść
Podgląd
Kliknij, aby dodać treść...
Kliknij, aby dodać załącznik lub wklej ze schowka.
Instrukcja obsługi Markdown
Pomoc 1.18.8

Typografia

Edytor obsługuje składnie Markdown, w której pojedynczy akcent *kursywa* oraz _kursywa_ to pochylenie. Z kolei podwójny akcent **pogrubienie** oraz __pogrubienie__ to pogrubienie. Dodanie znaczników ~~strike~~ to przekreślenie.

Możesz dodać formatowanie komendami , , oraz .

Ponieważ dekoracja podkreślenia jest przeznaczona na linki, markdown nie zawiera specjalnej składni dla podkreślenia. Dlatego by dodać podkreślenie, użyj <u>underline</u>.

Komendy formatujące reagują na skróty klawiszowe: Ctrl+B, Ctrl+I, Ctrl+U oraz Ctrl+S.

Linki

By dodać link w edytorze użyj komendy lub użyj składni [title](link). URL umieszczony w linku lub nawet URL umieszczony bezpośrednio w tekście będzie aktywny i klikalny.

Jeżeli chcesz, możesz samodzielnie dodać link: <a href="link">title</a>.

Wewnętrzne odnośniki

Możesz umieścić odnośnik do wewnętrznej podstrony, używając następującej składni: [[Delphi/Kompendium]] lub [[Delphi/Kompendium|kliknij, aby przejść do kompendium]]. Odnośniki mogą prowadzić do Forum 4programmers.net lub np. do Kompendium.

Wspomnienia użytkowników

By wspomnieć użytkownika forum, wpisz w formularzu znak @. Zobaczysz okienko samouzupełniające nazwy użytkowników. Samouzupełnienie dobierze odpowiedni format wspomnienia, zależnie od tego czy w nazwie użytkownika znajduje się spacja.

Znaczniki HTML

Dozwolone jest używanie niektórych znaczników HTML: <a>, <b>, <i>, <kbd>, <del>, <strong>, <dfn>, <pre>, <blockquote>, <hr/>, <sub>, <sup> oraz <img/>.

Skróty klawiszowe

Dodaj kombinację klawiszy komendą notacji klawiszy lub skrótem klawiszowym Alt+K.

Reprezentuj kombinacje klawiszowe używając taga <kbd>. Oddziel od siebie klawisze znakiem plus, np <kbd>Alt+Tab</kbd>.

Indeks górny oraz dolny

Przykład: wpisując H<sub>2</sub>O i m<sup>2</sup> otrzymasz: H2O i m2.

Składnia Tex

By precyzyjnie wyrazić działanie matematyczne, użyj składni Tex.

<tex>arcctg(x) = argtan(\frac{1}{x}) = arcsin(\frac{1}{\sqrt{1+x^2}})</tex>

Kod źródłowy

Krótkie fragmenty kodu

Wszelkie jednolinijkowe instrukcje języka programowania powinny być zawarte pomiędzy obróconymi apostrofami: `kod instrukcji` lub ``console.log(`string`);``.

Kod wielolinijkowy

Dodaj fragment kodu komendą . Fragmenty kodu zajmujące całą lub więcej linijek powinny być umieszczone w wielolinijkowym fragmencie kodu. Znaczniki ``` lub ~~~ umożliwiają kolorowanie różnych języków programowania. Możemy nadać nazwę języka programowania używając auto-uzupełnienia, kod został pokolorowany używając konkretnych ustawień kolorowania składni:

```javascript
document.write('Hello World');
```

Możesz zaznaczyć również już wklejony kod w edytorze, i użyć komendy  by zamienić go w kod. Użyj kombinacji Ctrl+`, by dodać fragment kodu bez oznaczników języka.

Tabelki

Dodaj przykładową tabelkę używając komendy . Przykładowa tabelka składa się z dwóch kolumn, nagłówka i jednego wiersza.

Wygeneruj tabelkę na podstawie szablonu. Oddziel komórki separatorem ; lub |, a następnie zaznacz szablonu.

nazwisko;dziedzina;odkrycie
Pitagoras;mathematics;Pythagorean Theorem
Albert Einstein;physics;General Relativity
Marie Curie, Pierre Curie;chemistry;Radium, Polonium

Użyj komendy by zamienić zaznaczony szablon na tabelkę Markdown.

Lista uporządkowana i nieuporządkowana

Możliwe jest tworzenie listy numerowanych oraz wypunktowanych. Wystarczy, że pierwszym znakiem linii będzie * lub - dla listy nieuporządkowanej oraz 1. dla listy uporządkowanej.

Użyj komendy by dodać listę uporządkowaną.

1. Lista numerowana
2. Lista numerowana

Użyj komendy by dodać listę nieuporządkowaną.

* Lista wypunktowana
* Lista wypunktowana
** Lista wypunktowana (drugi poziom)

Składnia Markdown

Edytor obsługuje składnię Markdown, która składa się ze znaków specjalnych. Dostępne komendy, jak formatowanie , dodanie tabelki lub fragmentu kodu są w pewnym sensie świadome otaczającej jej składni, i postarają się unikać uszkodzenia jej.

Dla przykładu, używając tylko dostępnych komend, nie możemy dodać formatowania pogrubienia do kodu wielolinijkowego, albo dodać listy do tabelki - mogłoby to doprowadzić do uszkodzenia składni.

W pewnych odosobnionych przypadkach brak nowej linii przed elementami markdown również mógłby uszkodzić składnie, dlatego edytor dodaje brakujące nowe linie. Dla przykładu, dodanie formatowania pochylenia zaraz po tabelce, mogłoby zostać błędne zinterpretowane, więc edytor doda oddzielającą nową linię pomiędzy tabelką, a pochyleniem.

Skróty klawiszowe

Skróty formatujące, kiedy w edytorze znajduje się pojedynczy kursor, wstawiają sformatowany tekst przykładowy. Jeśli w edytorze znajduje się zaznaczenie (słowo, linijka, paragraf), wtedy zaznaczenie zostaje sformatowane.

  • Ctrl+B - dodaj pogrubienie lub pogrub zaznaczenie
  • Ctrl+I - dodaj pochylenie lub pochyl zaznaczenie
  • Ctrl+U - dodaj podkreślenie lub podkreśl zaznaczenie
  • Ctrl+S - dodaj przekreślenie lub przekreśl zaznaczenie

Notacja Klawiszy

  • Alt+K - dodaj notację klawiszy

Fragment kodu bez oznacznika

  • Alt+C - dodaj pusty fragment kodu

Skróty operujące na kodzie i linijkach:

  • Alt+L - zaznaczenie całej linii
  • Alt+, Alt+ - przeniesienie linijki w której znajduje się kursor w górę/dół.
  • Tab/⌘+] - dodaj wcięcie (wcięcie w prawo)
  • Shit+Tab/⌘+[ - usunięcie wcięcia (wycięcie w lewo)

Dodawanie postów:

  • Ctrl+Enter - dodaj post
  • ⌘+Enter - dodaj post (MacOS)