Hallo Ihr Lieben,

ich kämpfe mit dem Aufruf von verschiedenen Websservicen.

markieren

Code:

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
                  xmlns:web="http://xxxxxxx"
                                                xmlns:xsd="http://www.w3.org/2001/XMLSchema"
                  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
                  xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
   <soapenv:Header>
      <wsse:Security soapenv:mustUnderstand="1">
         <wsse:UsernameToken>
            <wsse:Username>####</wsse:Username>
            <wsse:Password>####</wsse:Password>
         </wsse:UsernameToken>
      </wsse:Security>
   </soapenv:Header>
   <soapenv:Body>
      <web:angebotsdetail>
         <angebotsnummer>123456789</angebotsnummer>
      </web:angebotsdetail>
   </soapenv:Body>
</soapenv:Envelope>

Ich muss mit StringReplace einige Ersetzungen vor dem Senden vornehmen. Letztendlich kommt das oben stehende XLM (natürlich ohne die Platzhalter, raus. Im SoapUI funktioniert es tadellos. Will ich es aber in Delphi in den Stream zurückschreiben, kommt:
"org.xml.sax.SAXParseException; lineNumber: 3; columnNumber: 2; The markup in the document following the root element must be well-formed." als Fehlermeldung. Ich schreibe so zurück..

markieren

Code:

memsec.Lines.SaveToStream(SOAPRequest);

HILFE, was mache ich falsch.


Ach ich arbeite mit Delphi 2009.

Lieben Gruß,
Samashy

Kein Stringreplace verwenden für XML-Parsen!
Warum wird hier ab Beitrag 9 diskutiert:
http://www.delphipraxis.net/192207-x...-aber-wie.html

Zitat von TiGü:

Kein Stringreplace verwenden für XML-Parsen!
Warum wird hier ab Beitrag 9 diskutiert:
http://www.delphipraxis.net/192207-x...-aber-wie.html

Danke für den Hinweis.
Ursprung der ganzen Geschichte ist, dass die Namespaces nicht richtig gesetzt werden.
Bsp. so soll es aussehen

markieren

Code:

  <wsse:UsernameToken>          
        <wsse:Username>#####</wsse:Username>
        <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">####</wsse:Password>
         </wsse:UsernameToken>

und so macht es meine wsse.pas:

markieren

Code:

<UsernameToken>          
      <Username>####</Username>
      <Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">####</Password>
      </UsernameToken>

Wenn ich ehrlich bin, ich verstehe dein Problem nicht!
Wie sehen die Ursprungsdaten aus?
Was machst Du mit ihnen?
Was ist das Ergebnis,
welches Ergebnis erwartest Du?

(Abgesehen davon, daß mit XML nicht digital (mit de finger) bearbeitet)

Gruß
K-H

Zitat von p80286:

Wenn ich ehrlich bin, ich verstehe dein Problem nicht!
Wie sehen die Ursprungsdaten aus?
Was machst Du mit ihnen?
Was ist das Ergebnis,
welches Ergebnis erwartest Du?

(Abgesehen davon, daß mit XML nicht digital (mit de finger) bearbeitet)

Gruß
K-H

Ich habe über WSDL die .pas zu dem Webservice erzeugt. Außerdem nutze ich eine wsse.paswsse.pas (welche mir damals mal ein Embarcadero Mitarbeiter angepasst hat), damit das richtige Format für Security verwendet wird.

markieren

Code:

procedure SetSecurityHeader2(Service: ######); stdcall;
var
   Header: Security;
   SOAPHeaders: ISOAPHeaders;
begin
    Header := Security.Create;
    Header.MustUnderstand := True;
    Header.UsernameToken := UserNameToken.Create;
    Header.UsernameToken.Username := '#####';
    Header.UsernameToken.Password := PasswordString.Create;
    Header.UsernameToken.Password.Type_ := 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText';
    Header.UsernameToken.Password.Text := '#####';
    SOAPHeaders := Service as ISOAPHeaders;
    SOAPHeaders.OwnsSentHeaders := True;
    SOAPHeaders.Send(Header);
end;

Mein Problem ist, das das beim Aufruf erzeugte XML den Namespace nicht setzt. Seltsamerweise funktioniert es aber mit SoapUI tadellos.
Ich dachte mir also, ich passe mir vor dem Senden das XML an, so wie es bei SoapUI funktioniert. Das ich StringReplace nicht nutzen soll, hab ich verstanden, aber leider auch nicht, wie ich mir sonst helfen soll.

Hier noch mal wie es sein soll:

markieren

Code:

<wsse:UsernameToken>        
        <wsse:Username>#####</wsse:Username>
        <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">####</wsse:Password>
         </wsse:UsernameToken>

und so macht es meine wsse.pas:

markieren

Code:

<UsernameToken>          
      <Username>####</Username>
      <Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">####</Password>
      </UsernameToken>