Позвоните в веб-службу отслеживания посылок UPS с Delphi? - PullRequest
2 голосов
/ 02 февраля 2010

Delphi 2009 импортировал UPS WSDL без каких-либо ошибок, и мне удалось вызвать веб-сервис с моей учетной записью и примерным идентификатором посылки. Ответ от сервера:

<detail>
  <err:Errors xmlns:err="http://www.ups.com/XMLSchema/XOLTWS/Error/v1.1">
    <err:ErrorDetail>
      <err:Severity>Hard</err:Severity>
      <err:PrimaryErrorCode>
        <err:Code>9150002</err:Code>
        <err:Description>Invalid or missing inquiry number - TrackingNumber, ShipmentIdentificationNumber, or ReferenceNumber</err:Description>
      </err:PrimaryErrorCode>
    </err:ErrorDetail>
  </err:Errors>
</detail>

Кто-нибудь уже успешно использовал веб-сервис UPS Parcel Tracking с клиентом Delphi и знает, что не так?

Вот код клиента:

var
  Service: TrackPortType;
  MyRequest: TrackRequest;
  Security: UPSSecurity;
  MyResponse: TrackResponse;
  ReqOpt: Array_Of_string;
begin
  Service := (HTTPRIO1 as TrackPortType);

  Security := UPSSecurity.Create;
  Security.UsernameToken := UsernameToken.Create;
  Security.UsernameToken.Username := 'username';
  Security.UsernameToken.Password := 'password';
  Security.ServiceAccessToken := ServiceAccessToken.Create;
  Security.ServiceAccessToken.AccessLicenseNumber := 'licensenumber';

  MyRequest := TrackRequest.Create;
  SetLength(ReqOpt, 1);
  ReqOpt[0] := '0';
  MyRequest.Request := Request.Create;
  MyRequest.Request.RequestOption := ReqOpt;
  MyRequest.TrackingOption := '02';
  MyRequest.InquiryNumber := '1Z...'; 

  try
    (Service as ISoapHeaders).Send(Security);
    MyResponse := Service.ProcessTrack(MyRequest, nil);
  except
    on E:ERemotableException do
    begin
      Memo1.Lines.Text := FormatXmlData(E.FaultDetail);
    end;    
  end;

1 Ответ

0 голосов
/ 06 февраля 2010

Решено с помощью Java API для XML-веб-сервисов ( JAX-WS ).

Для интеграции с Delphi я проксирую его как Интранет Servlet .Затем приложение Delphi GUI может использовать простой HTTP-запрос для запроса статуса отслеживания.

Обновление: во второй попытке заставить его работать в Delphi я жестко закодировал тело запроса SOAP XML и вместо этого использовал Indy и XMLDocumentбиблиотеки Delphi SOAP.

...