处理错误 SOAP 客户端

Question

我需要在 Delphi 2007 中使用 SSL 编写一个 SOAP 客户端。 我使用 WSDL 导入器 $Rev: 10138 来生成代码。我有错误处理的问题。 代码中有以下类（除其他外）

SzczegolyBledu = class(TRemotable)
private
  Fkod: KodBledu;
  Fzrodlo: KrotkiTekst;
  Fopis: KrotkiTekst;
published
  property kod:    KodBledu     read Fkod write Fkod;
  property zrodlo: KrotkiTekst  read Fzrodlo write Fzrodlo;
  property opis:   KrotkiTekst  read Fopis write Fopis;
end;

BladTechniczny = class(ERemotableException)
private
  Fkod: KodBledu;
  Fopis: KrotkiTekst;
  Fopis_Specified: boolean;
  FopisTechniczny: DlugiTekst;
  FopisTechniczny_Specified: boolean;
  procedure Setopis(Index: Integer; const AKrotkiTekst: KrotkiTekst);
  function  opis_Specified(Index: Integer): boolean;
  procedure SetopisTechniczny(Index: Integer; const ADlugiTekst: DlugiTekst);
  function  opisTechniczny_Specified(Index: Integer): boolean;
published
  property kod:            KodBledu     read Fkod write Fkod;
  property opis:           KrotkiTekst  Index (IS_OPTN) read Fopis write Setopis stored opis_Specified;
  property opisTechniczny: DlugiTekst   Index (IS_OPTN) read FopisTechniczny write SetopisTechniczny stored opisTechniczny_Specified;
end;

bladTechniczny2 = class(BladTechniczny)
private
published
end;

Array_Of_SzczegolyBledu = array of SzczegolyBledu;   { -- }

BladBiznesowy = class(ERemotableException)
private
  Fkod: KodBledu;
  Fopis: KrotkiTekst;
  Fopis_Specified: boolean;
  Fszczegoly: Array_Of_SzczegolyBledu;
  Fszczegoly_Specified: boolean;
  procedure Setopis(Index: Integer; const AKrotkiTekst: KrotkiTekst);
  function  opis_Specified(Index: Integer): boolean;
  procedure Setszczegoly(Index: Integer; const AArray_Of_SzczegolyBledu: Array_Of_SzczegolyBledu);
  function  szczegoly_Specified(Index: Integer): boolean;
public
  destructor Destroy; override;
published
  property kod:       KodBledu                 read Fkod write Fkod;
  property opis:      KrotkiTekst              Index (IS_OPTN) read Fopis write Setopis stored opis_Specified;
  property szczegoly: Array_Of_SzczegolyBledu  Index (IS_OPTN) read Fszczegoly write Setszczegoly stored szczegoly_Specified;
end;

bladBiznesowy2 = class(BladBiznesowy)
private
published
end;

implementation

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

procedure BladBiznesowy.Setopis(Index: Integer; const AKrotkiTekst: KrotkiTekst);
begin
  Fopis := AKrotkiTekst;
  Fopis_Specified := True;
end;

function BladBiznesowy.opis_Specified(Index: Integer): boolean;
begin
  Result := Fopis_Specified;
end;

procedure BladBiznesowy.Setszczegoly(Index: Integer; const AArray_Of_SzczegolyBledu: Array_Of_SzczegolyBledu);
begin
  Fszczegoly := AArray_Of_SzczegolyBledu;
  Fszczegoly_Specified := True;
end;

function BladBiznesowy.szczegoly_Specified(Index: Integer): boolean;
begin
  Result := Fszczegoly_Specified;
end;

procedure BladTechniczny.Setopis(Index: Integer; const AKrotkiTekst: KrotkiTekst);
begin
  Fopis := AKrotkiTekst;
  Fopis_Specified := True;
end;

function BladTechniczny.opis_Specified(Index: Integer): boolean;
begin
  Result := Fopis_Specified;
end;

procedure BladTechniczny.SetopisTechniczny(Index: Integer; const ADlugiTekst: DlugiTekst);
begin
  FopisTechniczny := ADlugiTekst;
  FopisTechniczny_Specified := True;
end;

function BladTechniczny.opisTechniczny_Specified(Index: Integer): boolean;
begin
  Result := FopisTechniczny_Specified;
end;

initialization

  RemClassRegistry.RegisterXSClass(BladTechniczny, 'http://msw.gov.pl/srp/v3_0/uslugi/wspolne/', 'BladTechniczny');
  RemClassRegistry.RegisterXSClass(bladTechniczny2, 'http://msw.gov.pl/srp/v3_0/uslugi/subskrypcje/', 'bladTechniczny2', 'bladTechniczny');

  RemClassRegistry.RegisterXSClass(BladBiznesowy, 'http://msw.gov.pl/srp/v3_0/uslugi/wspolne/', 'BladBiznesowy');
  RemClassRegistry.RegisterXSClass(bladBiznesowy2, 'http://msw.gov.pl/srp/v3_0/uslugi/subskrypcje/', 'bladBiznesowy2', 'bladBiznesowy');

SOAPUI 为我生成响应

<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
   <SOAP-ENV:Header xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"/>
   <soap:Body>
     <soap:Fault>
         <faultcode>soap:Server</faultcode>
         <faultstring>Błąd: xxx</faultstring>
         <detail>
            <ns2:bladTechniczny xmlns:ns2="http://msw.gov.pl/srp/v3_0/uslugi/subskrypcje/">
               <kod>xxx</kod>
               <opisx>xxx</opis>
               <opisTechniczny></opisTechniczny>
            </ns2:bladTechniczny>
         </detail>
      </soap:Fault>
   </soap:Body>
</soap:Envelope>

在 Delphi 中未生成 RemotableException bladTechniczny 但我得到 EIdHTTPProtocolException 有办法改吗？

Answer 1

如果我点击 Web 服务端点 http://msw.gov.pl/srp/v3_0/uslugi/subskrypcje/，服务器将重定向到 https://msw.gov.pl/srp/v3_0/uslugi/subskrypcje/。

所以我建议您使用 https URI 导入 WSDL，然后再试一次。