Client für Webservice

[HiWieGehts]

Hallo,
natürlich kann ich genauere Informationen liefern. Habe das WSDL gekürzt - hoffe damit wird es etwas einfacher (die entscheidenden Codeteile sind unterhalb nochmal extra beschrieben):

XML-Code:

<?xml version="1.0"?>
<wsdl:definitions name="WSTAS_S_WStoTASTobiRequestService-interface" targetNamespace="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest-interface" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:jms="http://schemas.xmlsoap.org/wsdl/jms/" xmlns:mns="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest-interface" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <wsdl:types>
    <xsd:schema targetNamespace="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" xmlns="http://www.w3.org/2001/XMLSchema" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" xmlns:wbia="http://www.ibm.com/wbia/adapters/webservices" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
      <xsd:import namespace="http://www.ibm.com/wbia/adapters/webservices"/>
      <xsd:annotation>
        <xsd:documentation>21.04.2005 20:45:05 Central European Time; Deutsch (Deutschland)</xsd:documentation>
      </xsd:annotation>
      <xsd:complexType name="WS_Tobi">
        <xsd:sequence>
          <xsd:element ref="wbia:verb"/>
          <xsd:element name="WS_Tobi_Request" type="tns:WS_Tobi_Input"/>
          <xsd:element name="WS_Tobi_21_Response" type="tns:WS_Tobi_21_Output"/>
          <xsd:element name="WS_Tobi_23_Response" type="tns:WS_Tobi_23_Output"/>
          <xsd:element name="WS_Fault" type="tns:WS_Fault"/>
        </xsd:sequence>
      </xsd:complexType>
      <xsd:complexType name="WS_Tobi_Input">
        <xsd:sequence>
          <xsd:element name="APIART" type="xsd:string"/>
          <xsd:element name="KZ_TNNR" type="xsd:string"/>
        </xsd:sequence>
      </xsd:complexType>
      <xsd:complexType name="WS_Tobi_21_Output">
        <xsd:sequence>
          <xsd:element name="LAENDERCODE" type="xsd:string"/>
          <xsd:element name="KENNZAHL" type="xsd:string"/>
          <xsd:element name="RUFNUMMER" type="xsd:string"/>
        </xsd:sequence>
      </xsd:complexType>
      <xsd:complexType name="WS_Tobi_23_Output">
        <xsd:sequence>
          <xsd:element name="PARTNERID" type="xsd:string"/>
          <xsd:element name="ST_PLZ" type="xsd:string"/>
          <xsd:element name="ST_ORT" type="xsd:string"/>
        </xsd:sequence>
      </xsd:complexType>
      <xsd:complexType name="WS_Tobi_Partner_Beziehung">
        <xsd:sequence>
          <xsd:element name="COUNTRY_NRP" type="xsd:string"/>
          <xsd:element name="KZ_NRP" type="xsd:string"/>
          <xsd:element name="TN_NRP" type="xsd:string"/>
        </xsd:sequence>
      </xsd:complexType>
      <xsd:complexType name="WS_Tobi_Kurzzeichen_Liste">
        <xsd:sequence>
          <xsd:element name="ANZAHL" type="xsd:string"/>
          <xsd:element name="KURZZEICHEN" type="xsd:string"/>
          <xsd:element name="DATUM" type="xsd:string"/>
          <xsd:element name="KZTEXT" type="xsd:string"/>
        </xsd:sequence>
      </xsd:complexType>
      <xsd:complexType name="ArrayOfWS_Tobi_Kurzzeichen_Liste">
        <xsd:complexContent>
          <xsd:restriction base="soapenc:Array">
            <xsd:attribute ref="soapenc:arrayType" wsdl:arrayType="tns:WS_Tobi_Kurzzeichen_Liste[]"/>
          </xsd:restriction>
        </xsd:complexContent>
      </xsd:complexType>
      <xsd:complexType name="WS_Fault">
        <xsd:sequence>
          <xsd:element name="FaultCode" type="xsd:string"/>
          <xsd:element name="FaultString" type="xsd:string"/>
          <xsd:element name="FaultActor" type="xsd:string"/>
          <xsd:element name="FaultType" type="xsd:string"/>
          <xsd:element name="FaultSeverity" type="xsd:string"/>
        </xsd:sequence>
      </xsd:complexType>
    </xsd:schema>
    <xsd:schema targetNamespace="http://www.ibm.com/wbia/adapters/webservices" xmlns="http://www.w3.org/2001/XMLSchema" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://www.ibm.com/wbia/adapters/webservices" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
      <xsd:annotation>
        <xsd:documentation>21.04.2005 20:45:05 Central European Time; Deutsch (Deutschland)</xsd:documentation>
      </xsd:annotation>
      <xsd:element name="verb" type="xsd:string"/>
    </xsd:schema>
  </wsdl:types>
  <wsdl:message name="WS_TobiRequestMsg">
    <wsdl:part name="WS_Tobi" type="mns:WS_Tobi"/>
  </wsdl:message>
  <wsdl:message name="WS_TobiResponseMsg">
    <wsdl:part name="WS_Tobi" type="mns:WS_Tobi"/>
  </wsdl:message>
  <wsdl:portType name="WSTAS_S_WStoTASTobiRequest_From_PortType">
    <wsdl:operation name="WSTAS_S_WStoTASTobiRequestWS_TobiFrom">
      <wsdl:input message="tns:WS_TobiRequestMsg" name="WS_TobiInput"/>
      <wsdl:output message="tns:WS_TobiResponseMsg" name="WS_TobiOutput"/>
    </wsdl:operation>
  </wsdl:portType>
  <wsdl:binding name="From_SOAPHTTPSListener1_Binding" type="tns:WSTAS_S_WStoTASTobiRequest_From_PortType">
    <soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
    <wsdl:operation name="WSTAS_S_WStoTASTobiRequestWS_TobiFrom">
      <soap:operation soapAction=""/>
      <wsdl:input name="WS_TobiInput">
        <soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" use="literal"/>
      </wsdl:input>
      <wsdl:output name="WS_TobiOutput">
        <soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" use="literal"/>
      </wsdl:output>
    </wsdl:operation>
  </wsdl:binding>
  <wsdl:binding name="From_SOAPHTTPListener1_Binding" type="tns:WSTAS_S_WStoTASTobiRequest_From_PortType">
    <soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
    <wsdl:operation name="WSTAS_S_WStoTASTobiRequestWS_TobiFrom">
      <soap:operation soapAction=""/>
      <wsdl:input name="WS_TobiInput">
        <soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" use="literal"/>
      </wsdl:input>
      <wsdl:output name="WS_TobiOutput">
        <soap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" use="literal"/>
      </wsdl:output>
    </wsdl:operation>
  </wsdl:binding>
  <wsdl:service name="WSTAS_S_WStoTASTobiRequest">
    <wsdl:port binding="tns:From_SOAPHTTPListener1_Binding" name="From_SOAPHTTPListener1_BindingPort">
      <soap:address location="http://10.1.1.2:8080/usr/app/crossworlds/WebSphereICS/connectors/WebServices/samples"/>
    </wsdl:port>
  </wsdl:service>
</wsdl:definitions>

Innerhalb von <xsd:complexType name="WS_Tobi"> (= targetNamespace="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest") wird mit <xsd:element ref="wbia:verb"/> das Element verb verwendet.
verb ist aber mit

XML-Code:

    <xsd:schema targetNamespace="http://www.ibm.com/wbia/adapters/webservices" xmlns="http://www.w3.org/2001/XMLSchema" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://www.ibm.com/wbia/adapters/webservices" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
      <xsd:annotation>
        <xsd:documentation>21.04.2005 20:45:05 Central European Time; Deutsch (Deutschland)</xsd:documentation>
      </xsd:annotation>
      <xsd:element name="verb" type="xsd:string"/>
    </xsd:schema>

einem anderen Namespace zugewiesen.

Der WSDL-Import liefert folgendes Ergebnis:

Delphi-Quellcode:

// ************************************************************************ //
// Die in dieser Datei deklarierten Typen wurden aus Daten generiert, die aus 
// unten beschriebener WSDL-Datei stammen:
// WSDL     : D:\Temp\IVR2005\WStoTASTobiRequest.wsdl
// Codegen  : [wfDebug,wfOutputLiteralTypes,wfSkipUnusedTypes,wfUseSerializerClassForAttrs]
// Version  : 1.0
// (19.08.2005 15:54:09 - 1.33.2.5)
// ************************************************************************ //

unit WStoTASTobiRequest;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

  // ************************************************************************ //
  // Die folgenden Typen, auf die im WSDL-Dokument Bezug genommen wird, sind in dieser Datei
  // nicht reprsentiert. Sie sind entweder Aliase(@) anderer reprsentierter Typen oder auf sie wurde Bezug genommen,
  // aber in diesem Dokument nicht deklariert (!). Die Typen aus letzterer Kategorie
  // sind normalerweise mit vordefinierten/bekannten XML- oder Borland-Typen verbunden; sie knnten aber auch ein Anzeichen 
  // fr ein falsches WSDL-Dokument sein, das einen Schema-Typ nicht deklariert oder importiert..
  // ************************************************************************ //
  // !:string          - "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest"
  // !:string          - "http://www.w3.org/2001/XMLSchema"

  WS_Fault             = class;                 { "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" }
  WS_Tobi_23_Output    = class;                 { "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" }
  WS_Tobi_21_Output    = class;                 { "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" }
  WS_Tobi_Input        = class;                 { "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" }
  WS_Tobi              = class;                 { "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest" }
  WS_Tobi_Kurzzeichen_Liste = class;            { "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest"[!U] }
  WS_Tobi_Partner_Beziehung = class;            { "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest"[!U] }



  // ************************************************************************ //
  // Namespace : [url]http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest[/url]
  // ************************************************************************ //
  WS_Fault = class(TRemotable)
  private
    FFaultCode: WideString;
    FFaultString: WideString;
    FFaultActor: WideString;
    FFaultType: WideString;
    FFaultSeverity: WideString;
  published
    property FaultCode: WideString read FFaultCode write FFaultCode;
    property FaultString: WideString read FFaultString write FFaultString;
    property FaultActor: WideString read FFaultActor write FFaultActor;
    property FaultType: WideString read FFaultType write FFaultType;
    property FaultSeverity: WideString read FFaultSeverity write FFaultSeverity;
  end;



  // ************************************************************************ //
  // Namespace : [url]http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest[/url]
  // ************************************************************************ //
  WS_Tobi_23_Output = class(TRemotable)
  private
    FPARTNERID: WideString;
    FST_PLZ: WideString;
    FST_ORT: WideString;
  published
    property PARTNERID: WideString read FPARTNERID write FPARTNERID;
    property ST_PLZ: WideString read FST_PLZ write FST_PLZ;
    property ST_ORT: WideString read FST_ORT write FST_ORT;
  end;



  // ************************************************************************ //
  // Namespace : [url]http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest[/url]
  // ************************************************************************ //
  WS_Tobi_21_Output = class(TRemotable)
  private
    FLAENDERCODE: WideString;
    FKENNZAHL: WideString;
    FRUFNUMMER: WideString;
  published
    property LAENDERCODE: WideString read FLAENDERCODE write FLAENDERCODE;
    property KENNZAHL: WideString read FKENNZAHL write FKENNZAHL;
    property RUFNUMMER: WideString read FRUFNUMMER write FRUFNUMMER;
  end;



  // ************************************************************************ //
  // Namespace : [url]http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest[/url]
  // ************************************************************************ //
  WS_Tobi_Input = class(TRemotable)
  private
    FAPIART: WideString;
    FKZ_TNNR: WideString;
  published
    property APIART: WideString read FAPIART write FAPIART;
    property KZ_TNNR: WideString read FKZ_TNNR write FKZ_TNNR;
  end;



  // ************************************************************************ //
  // Namespace : [url]http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest[/url]
  // ************************************************************************ //
  WS_Tobi = class(TRemotable)
  private
    Fverb: WideString;
    FWS_Tobi_Request: WS_Tobi_Input;
    FWS_Tobi_21_Response: WS_Tobi_21_Output;
    FWS_Tobi_23_Response: WS_Tobi_23_Output;
    FWS_Fault: WS_Fault;
  public
    destructor Destroy; override;
  published
    property verb: WideString read Fverb write Fverb;
    property WS_Tobi_Request: WS_Tobi_Input read FWS_Tobi_Request write FWS_Tobi_Request;
    property WS_Tobi_21_Response: WS_Tobi_21_Output read FWS_Tobi_21_Response write FWS_Tobi_21_Response;
    property WS_Tobi_23_Response: WS_Tobi_23_Output read FWS_Tobi_23_Response write FWS_Tobi_23_Response;
    property WS_Fault: WS_Fault read FWS_Fault write FWS_Fault;
  end;



  // ************************************************************************ //
  // Namespace : [url]http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest[/url]
  // ************************************************************************ //
  WS_Tobi_Kurzzeichen_Liste = class(TRemotable)
  private
    FANZAHL: WideString;
    FKURZZEICHEN: WideString;
    FDATUM: WideString;
    FKZTEXT: WideString;
  published
    property ANZAHL: WideString read FANZAHL write FANZAHL;
    property KURZZEICHEN: WideString read FKURZZEICHEN write FKURZZEICHEN;
    property DATUM: WideString read FDATUM write FDATUM;
    property KZTEXT: WideString read FKZTEXT write FKZTEXT;
  end;

  verb            =  type WideString;      { "http://www.ibm.com/wbia/adapters/webservices"[!U] }
  ArrayOfWS_Tobi_Kurzzeichen_Liste = array of WS_Tobi_Kurzzeichen_Liste;   { "http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest"[!U] }


  // ************************************************************************ //
  // Namespace : [url]http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest[/url]
  // ************************************************************************ //
  WS_Tobi_Partner_Beziehung = class(TRemotable)
  private
    FCOUNTRY_NRP: WideString;
    FKZ_NRP: WideString;
    FTN_NRP: WideString;
  published
    property COUNTRY_NRP: WideString read FCOUNTRY_NRP write FCOUNTRY_NRP;
    property KZ_NRP: WideString read FKZ_NRP write FKZ_NRP;
    property TN_NRP: WideString read FTN_NRP write FTN_NRP;
  end;


  // ************************************************************************ //
  // Namespace : [url]http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest[/url]
  // Transport : [url]http://schemas.xmlsoap.org/soap/http[/url]
  // Stil     : rpc
  // Bindung   : From_SOAPHTTPListener1_Binding
  // Service   : WSTAS_S_WStoTASTobiRequest
  // Port      : From_SOAPHTTPListener1_BindingPort
  // URL       : [url]http://10.1.1.2:8080/usr/app/crossworlds/WebSphereICS/connectors/WebServices/samples[/url]
  // ************************************************************************ //
  WSTAS_S_WStoTASTobiRequest_From_PortType = interface(IInvokable)
  ['{34CFA67F-2F5B-5C77-CD8F-3F0D3E56FF8C}']
    procedure WSTAS_S_WStoTASTobiRequestWS_TobiFrom(var WS_Tobi: WS_Tobi); stdcall;
  end;

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


implementation

function GetWSTAS_S_WStoTASTobiRequest_From_PortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): WSTAS_S_WStoTASTobiRequest_From_PortType;
const
  defWSDL = 'D:\Temp\IVR2005\WStoTASTobiRequest.wsdl';
  defURL  = 'http://10.1.1.2:8080/usr/app/crossworlds/WebSphereICS/connectors/WebServices/samples';
  defSvc  = 'WSTAS_S_WStoTASTobiRequest';
  defPrt  = 'From_SOAPHTTPListener1_BindingPort';
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 WSTAS_S_WStoTASTobiRequest_From_PortType);
    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 WS_Tobi.Destroy;
begin
  if Assigned(FWS_Tobi_Request) then
    FWS_Tobi_Request.Free;
  if Assigned(FWS_Tobi_21_Response) then
    FWS_Tobi_21_Response.Free;
  if Assigned(FWS_Tobi_23_Response) then
    FWS_Tobi_23_Response.Free;
  if Assigned(FWS_Fault) then
    FWS_Fault.Free;
  inherited Destroy;
end;

initialization
  InvRegistry.RegisterInterface(TypeInfo(WSTAS_S_WStoTASTobiRequest_From_PortType), 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', '');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(WSTAS_S_WStoTASTobiRequest_From_PortType), '');
  RemClassRegistry.RegisterXSClass(WS_Fault, 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', 'WS_Fault');
  RemClassRegistry.RegisterXSClass(WS_Tobi_23_Output, 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', 'WS_Tobi_23_Output');
  RemClassRegistry.RegisterXSClass(WS_Tobi_21_Output, 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', 'WS_Tobi_21_Output');
  RemClassRegistry.RegisterXSClass(WS_Tobi_Input, 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', 'WS_Tobi_Input');
  RemClassRegistry.RegisterXSClass(WS_Tobi, 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', 'WS_Tobi');
  RemClassRegistry.RegisterXSClass(WS_Tobi_Kurzzeichen_Liste, 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', 'WS_Tobi_Kurzzeichen_Liste');
  RemClassRegistry.RegisterXSInfo(TypeInfo(verb), 'http://www.ibm.com/wbia/adapters/webservices', 'verb');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfWS_Tobi_Kurzzeichen_Liste), 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', 'ArrayOfWS_Tobi_Kurzzeichen_Liste');
  RemClassRegistry.RegisterXSClass(WS_Tobi_Partner_Beziehung, 'http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest', 'WS_Tobi_Partner_Beziehung');

end.

Hier ist verb zwar mit dem richtigen Namespace registriert, wird aber nicht verwendet. Daher habe ich bereits folgende Änderungen durchgeführt:
verb = type WideString; { "http://www.ibm.com/wbia/adapters/webservices"[!U] } geänder auf
TVerb = type WideString; { "http://www.ibm.com/wbia/adapters/webservices"[!U] } Fverb: WideString; geändert auf Fverb: TVerb; property verb: WideString read Fverb write Fverb; geändert auf property verb: TVerb read Fverb write Fverb; RemClassRegistry.RegisterXSInfo(TypeInfo(verb), 'http://www.ibm.com/wbia/adapters/webservices', 'verb'); geändert auf RemClassRegistry.RegisterXSInfo(TypeInfo(TVerb), 'http://www.ibm.com/wbia/adapters/webservices', 'verb'); Beim Serveraufruf wird folgender XML-String gesendet:

XML-Code:

<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" 
   xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
   xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
   
   <SOAP-ENV:Body>
      <WSTAS_S_WStoTASTobiRequestWS_TobiFrom xmlns="http://www.firma.at/eai/WSTAS_S_WStoTASTobiRequest">
         <WS_Tobi>
            <verb>Retrieve</verb>
            <WS_Tobi_Request>
               <APIART>23</APIART>
               <KZ_TNNR>+0815/4711</KZ_TNNR>
            </WS_Tobi_Request>
         </WS_Tobi>
      </WSTAS_S_WStoTASTobiRequestWS_TobiFrom>
   </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Diese Abfrage liefert folgende Fehlermeldung: Cannot Parse the message.
Wird die Zeile <verb>Retrieve</verb> auf <verb xmlns="http://www.ibm.com/wbia/adapters/webservices">Retrieve</verb> geändert und zum Server übertragen (z. B. Telnet), funktioniert der Aufruf.
Wer kann mir bitte Tips geben, wie ich Delphi dazu bringe den Namespace für verb richtig einzutragen?