SOAP Envelope bearbeiten

[wilroe]

Hallo zusammen,

Ich hoffe, Ihr könnt mir weiter helfen.

Ich möchte einen von einem externen Unternehmen angebotenen Web Service nutzen. Dazu nutze ich den WebServices WSDL Import in Delphi 2007. Anhand der eingegebenen Daten wird eine Unit generiert, über eine kleine Form erarbeite ich einen Input Satz und starte damit den Web Service. Es wird automatisch eine Anfrage mit einem SOAP Envelope erstellt, der folgendermaßen aussieht (Der Namespace ist nicht qualifiziert!):

Anhang 45663

Beim Test mit der Anwendung „SOAP UI“ bekomme ich folgenden Fehler zurück:

Anhang 45664

Nach Rücksprache mit dem Anbieter des Web Service habe ich festgestellt, dass mein Request wohl funktionieren würde, wenn folgende Änderungen im SOAP-Envelope realisiert würden. Die leeren Namespaces (xmlns=““) stören offensichtlich nicht. Ein Test mit „SOAP UI“ bestätigt das. Ich bekomme eine korrekte Antwort.

Anhang 45665

Body Elemente benötigen offenbar einen qualifizierten Namespace (hier „guid“). Der wird bei der Generierung nicht mitgeliefert. Und ich habe derzeit keinen blassen Schimmer, wie ich das nachträglich anpassen soll. Einen Schalter bzw. eine Einstellungsmöglichkeit habe ich dafür nicht gefunden.

Kann mir da eventuell jemand helfen?

LG Willi

[DeddyH]

Hallo, als erster Ansatz kann das hier dienen: http://stackoverflow.com/questions/1...nbeforeexecute (wobei ich hier wohl eher mit "echtem" XML arbeiten würde, anstatt mit einer Stringliste).

[wilroe]

Danke Detlef,

bin ich vorhin schon drauf gestoßen, habe aber das Problem, dass er mir bei:

RIO.OnBeforeExecute := RIO_BeforeExecute;

den Fehler "E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'" schmeißt.

Willi

[DeddyH]

RIO_BeforeExecute muss auch eine Methode einer Klasse (notfalls der eigenen) sein.

[edit] Zur Verdeutlichung:

Delphi-Quellcode:

(* Reguläre Prozedur *)
procedure TuWas;
begin
  //Code
end;

(* (Instanz-)Methode der Klasse TDingens *)
type
  TDingens = class
  public
    //Deklaration 
    procedure TuWas;
  end;

...

//Implementation
procedure TDingens.Tuwas;
begin
  //Code
end;

[/edit]

[wilroe]

Hallo Detlef,

vielen Dank. Hat mir sehr geholfen. Problem gelöst. :-D

Schönes Wochenende
Willi