Delphi-PRAXiS - WSDL Import - ist die Nutzung richtig

Bank BLZ Service (Bank Sort Codes): This WSDL generates request and response for a web service using which you can fetch Bank Sort Codes (called Bank BLZ codes) for banks in Germany.
In the request, you need to pass the BLZ code for any bank in Germany and it comes back with the bank details. You can get plenty of Bank BLZ codes at blzcodes.com.

Quelle

Ich habe diese URL "

http://www.thomas-bayer.com/axis2/se...LZService?wsdl" in Delphi über "Delphi Projekte - Webservices" als WSDL-Import importiert.
Die automatisch generierte Datei sieht dann wie folgt aus:

Delphi-Quellcode:

			// ************************************************************************ //

// Die in dieser Datei deklarierten Typen wurden aus Daten der unten

// beschriebenen WSDL-Datei generiert:

// WSDL     : http://www.thomas-bayer.com/axis2/services/BLZService?wsdl

//  >Import : http://www.thomas-bayer.com/axis2/services/BLZService?wsdl>0

// Version: 1.0

// (17.01.2017 12:09:09 - - $Rev: 45757 $)

// ************************************************************************ //

unit BLZService;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const

  IS_OPTN = $0001;

type

  // ************************************************************************ //

  // Die folgenden Typen, auf die im WSDL-Dokument Bezug genommen wird, sind in dieser Datei

  // nicht repräsentiert. Sie sind entweder Aliase[@] anderer repräsentierter Typen oder auf sie wurde Bezug genommen,

  // aber sie sind in diesem Dokument nicht[!] deklariert. Die Typen aus letzterer Kategorie

  // sind in der Regel vordefinierten/bekannten XML- oder Embarcadero-Typen zugeordnet; sie könnten aber auf 

  // ein inkorrektes WSDL-Dokument hinweisen, das einen Schematyp nicht deklariert oder importiert hat.

  // ************************************************************************ //

  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]

  detailsType          = class;                 { "http://thomas-bayer.com/blz/"[GblCplx] }

  // ************************************************************************ //

  // XML       : detailsType, global, <complexType>

  // Namespace : http://thomas-bayer.com/blz/

  // ************************************************************************ //

  detailsType = class(TRemotable)

  private

    Fbezeichnung: string;

    Fbezeichnung_Specified: boolean;

    Fbic: string;

    Fbic_Specified: boolean;

    Fort: string;

    Fort_Specified: boolean;

    Fplz: string;

    Fplz_Specified: boolean;

    procedure Setbezeichnung(Index: Integer; const Astring: string);

    function  bezeichnung_Specified(Index: Integer): boolean;

    procedure Setbic(Index: Integer; const Astring: string);

    function  bic_Specified(Index: Integer): boolean;

    procedure Setort(Index: Integer; const Astring: string);

    function  ort_Specified(Index: Integer): boolean;

    procedure Setplz(Index: Integer; const Astring: string);

    function  plz_Specified(Index: Integer): boolean;

  published

    property bezeichnung: string  Index (IS_OPTN) read Fbezeichnung write Setbezeichnung stored bezeichnung_Specified;

    property bic:         string  Index (IS_OPTN) read Fbic write Setbic stored bic_Specified;

    property ort:         string  Index (IS_OPTN) read Fort write Setort stored ort_Specified;

    property plz:         string  Index (IS_OPTN) read Fplz write Setplz stored plz_Specified;

  end;

  // ************************************************************************ //

  // Namespace : http://thomas-bayer.com/blz/

  // Transport : http://schemas.xmlsoap.org/soap/http

  // Stil     : document

  // Verwenden von       : literal

  // Bindung   : BLZServiceSOAP12Binding

  // Service   : BLZService

  // Port      : BLZServiceSOAP12port_http

  // URL       : http://www.thomas-bayer.com/axis2/services/BLZService

  // ************************************************************************ //

  BLZServicePortType = interface(IInvokable)

  ['{83022A17-51E1-867E-FE61-73762B29E2EA}']

    function  getBank(const blz: string): detailsType; stdcall;

  end;

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

implementation

  uses SysUtils;

function GetBLZServicePortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): BLZServicePortType;

const

  defWSDL = 'http://www.thomas-bayer.com/axis2/services/BLZService?wsdl';

  defURL  = 'http://www.thomas-bayer.com/axis2/services/BLZService';

  defSvc  = 'BLZService';

  defPrt  = 'BLZServiceSOAP12port_http';

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 BLZServicePortType);

    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;

procedure detailsType.Setbezeichnung(Index: Integer; const Astring: string);

begin

  Fbezeichnung := Astring;

  Fbezeichnung_Specified := True;

end;

function detailsType.bezeichnung_Specified(Index: Integer): boolean;

begin

  Result := Fbezeichnung_Specified;

end;

procedure detailsType.Setbic(Index: Integer; const Astring: string);

begin

  Fbic := Astring;

  Fbic_Specified := True;

end;

function detailsType.bic_Specified(Index: Integer): boolean;

begin

  Result := Fbic_Specified;

end;

procedure detailsType.Setort(Index: Integer; const Astring: string);

begin

  Fort := Astring;

  Fort_Specified := True;

end;

function detailsType.ort_Specified(Index: Integer): boolean;

begin

  Result := Fort_Specified;

end;

procedure detailsType.Setplz(Index: Integer; const Astring: string);

begin

  Fplz := Astring;

  Fplz_Specified := True;

end;

function detailsType.plz_Specified(Index: Integer): boolean;

begin

  Result := Fplz_Specified;

end;

initialization

  { BLZServicePortType }

  InvRegistry.RegisterInterface(TypeInfo(BLZServicePortType), 'http://thomas-bayer.com/blz/', '');

  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(BLZServicePortType), '');

  InvRegistry.RegisterInvokeOptions(TypeInfo(BLZServicePortType), ioDocument);

  InvRegistry.RegisterInvokeOptions(TypeInfo(BLZServicePortType), ioSOAP12);

  { BLZServicePortType.getBank }

  InvRegistry.RegisterMethodInfo(TypeInfo(BLZServicePortType), 'getBank', '',

                                 '[ReturnName="details"]');

  RemClassRegistry.RegisterXSClass(detailsType, 'http://thomas-bayer.com/blz/', 'detailsType');

end.

Form mit Button & Memo Feld, BLZService per uses hinzugefügt. Der Aufruf erfolgt über:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  erg: detailsType;

begin

  erg := detailsType.Create;

  try

    erg := GetBLZServicePortType(true).getBank('50010517');

    Memo1.Lines.Append(erg.bezeichnung);

    Memo1.Lines.Append(erg.bic);

    Memo1.Lines.Append(erg.ort);

    Memo1.Lines.Append(erg.plz);

  finally

    erg.Free;

  end;

end;

Im Memo ist dann folgendes Ergebnis:

Code:

			ING-DiBa

INGDDEFFXXX

Frankfurt am Main

60628

Frage 1: Mache ich das richtig so, meine den Aufruf?
Frage 2: Setze ich bei obigem Code "ReportMemoryLeaksOnShutdown := True;" so erhalte ich beim Beenden der Anwendung nachfolgende Meldung, warum ?

Code:

			---------------------------

Unexpected Memory Leak

---------------------------

An unexpected memory leak has occurred. The unexpected small block leaks are:

45 - 52 bytes: detailsType x 2

---------------------------

OK   

---------------------------