🚀 go-pugleaf

W dniu poniedziałek, 18 marca 2019 12:56:14 UTC+1 użytkownik MKi napisał:
> Witajcie,
> przyszło mi napisać obsługę webservice klienta DPD.
> 
> Niestety pierwsze podejście i od razu problem, którego nie
> potrafię przeskoczyć.
> 
> Na razie działam w sandboksie, oczywiście.
> 
> Utworzyłem w Delphi nowy projekt, zaimportowałem WSDL:
> https://dpdservicesdemo.dpd.com.pl/DPDPackageObjServicesService/DPDPackageObjServices?WSDL
> 
> Wygenerował się plik DPDPackageObjServices1.pas
> 
> Napisałem krótki programik (na formie jest button i HTTPRIO),
> na koniec tekstu załączam go w całości. Efektem działania
> jest wyjątek przy wywołaniu findPostalCodeV1 z komunikatem
> "Auth is null". Według dokumentacji ten komunikat pojawia się,
> gdy nie jest w ogóle wypełniona struktura autoryzacji.
> 
> Bardzo podobnie wyglądający przykład PHP zamieszczony z dokumentacją
> działa bez problemu.
> 
> Nie bardzo wiem, gdzie szukać błędu.
> 
> ----------------------------------------------------
> 
> Działający przykład PHP:
> 
> 
> <?php
> 
> class PostalCodeV1
> {
>      public $countryCode;
>      public $zipCode;
> }
> 
> class AuthDataV1
> {
>      public $login;
>      public $masterFid;
>      public $password;
> }
> 
> $clientOBJ = new 
> SoapClient("https://dpdservicesdemo.dpd.com.pl/DPDPackageObjServicesService/DPDPackageObjServices?WSDL",array('features' 
> => SOAP_SINGLE_ELEMENT_ARRAYS));
> 
> $authData = new AuthDataV1();
> $authData->login = "test";
> $authData->masterFid = "1234";
> $authData->password = "thetu4Ee";
> 
> echo "Wyszukiwanie kodu pocztowego \n";
> $param16 = new stdClass();
> $postalCodeV1 = new PostalCodeV1();
> $postalCodeV1->countryCode = 'PL';
> $postalCodeV1->zipCode = '02274';
> $param16->postalCodeV1 = $postalCodeV1;
> $param16->authDataV1 = $authData;
> $result = $clientOBJ->findPostalCodeV1($param16);
> echo "Status operacji wyszukiwanie kodu pocztowego: " . 
> $result->return->status . "";
> ?>
> 
> -------------------------------------------------------------------
> 
> Mój program:
> 
> 
> unit Udpd;
> 
> interface
> 
> uses
>    DPDPackageObjServices1,
>    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, 
> Forms,
>    Dialogs, InvokeRegistry, Rio, SOAPHTTPClient, StdCtrls;
> 
> type
>    TForm1 = class(TForm)
>      HTTPRIO1: THTTPRIO;
>      bTest: TButton;
>      procedure FormCreate(Sender: TObject);
>      procedure bTestClick(Sender: TObject);
>      procedure FormDestroy(Sender: TObject);
>    private
>      { Private declarations }
>      dpos : DPDPackageObjServices ;
>    public
>      { Public declarations }
>    end;
> 
> var
>    Form1: TForm1;
> 
> implementation
> 
> {$R *.dfm}
> 
> procedure TForm1.bTestClick(Sender: TObject);
> var
>    pc : postalCodeV1 ;
>    ad : authDataV1 ;
>    x : findPostalCodeResponseV1 ;
> begin
>    pc := postalCodeV1.Create ;
>    pc.countryCode := 'PL' ;
>    pc.zipCode := '02274' ;
>    ad := authDataV1.Create ;
>    ad.login := 'test' ;
>    ad.masterFid := 1495 ;
>    ad.password := 'thetu4Ee' ;
>    x := dpos.findPostalCodeV1(pc,ad) ;
>    ShowMessage(x.status) ;
>    pc.Free ;
>    ad.Free ;
> end;
> 
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>    dpos := GetDPDPackageObjServices(False,'',HTTPRIO1) ;
> end;
> 
> procedure TForm1.FormDestroy(Sender: TObject);
> begin
>    if dpos <> nil then
>      dpos._Release ;
> end;
> 
> end.
> 
> ---------------------------------------------------------
> Pozdrowienia,
> MKi

Cześć

A może to problem wersji Delphi, którego używasz?
Zrobiłem to co napisałeś w XE5 i nie było żadnego problemu a x.status dostał wartość 'OK'.

Piotr