AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi HTTPRIO SOAP Header/Request ändern D2006
Thema durchsuchen
Ansicht
Themen-Optionen

HTTPRIO SOAP Header/Request ändern D2006

Ein Thema von DennisR · begonnen am 22. Dez 2020 · letzter Beitrag vom 29. Dez 2020
 
DennisR

Registriert seit: 22. Dez 2020
4 Beiträge
 
Delphi 2006 Professional
 
#1

HTTPRIO SOAP Header/Request ändern D2006

  Alt 22. Dez 2020, 15:55
Delphi-Version: 5
Hallo zusammen.
Bin gerade dabei einen lokalen WebService anzusprechen und via XML die Daten hin und her zu schubsen.

Verbindung usw. klappt alles, zumindest wenn ich den XML-Text per Hand schreibe und als WideString übergebe.
Das Problem habe ich, wenn ich den durch Delphi erstellen Quellcode zur WSDL benutze:
Der Text des per Hand geschriebenen und automatisch erstellten weicht eigentlich nur in den ersten paar Zeilen ab, alles danach ist fast identisch.

Über das OnBeforeExecute wollte ich nun den Request stumpf per StringReplace abändern.
Delphi-Quellcode:
procedure Tdmt.htprMainBeforeExecute(const MethodName: string;
  var SOAPRequest: WideString);
var
  test: WideString;
begin
  test := SOAPRequest;
  test := StringReplace(test,WideString('<s:Header xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"> + #13#10'),'');
  test := StringReplace(test,WideString('<To s:mustUnderstand="1" xmlns="http://schemas.microsoft.com/ws/2005/05/addressing/none">http://localhost:1200/38f9edad-b272-4649-917e-1180b4c5207e</To>' + #13#10),'');
  test := StringReplace(test,WideString('<Action s:mustUnderstand="1" xmlns="http://schemas.microsoft.com/ws/2005/05/addressing/none">http://tempuri.org/IPOS/Sign</Action>' + #13#10),'');
  test := StringReplace(test,WideString('</s:Header>' + #13#10),'');
  test := StringReplace(test,WideString('<data'),'<tem:data');
  test := StringReplace(test,WideString('</data'),'</tem:data');
  SOAPRequest := test;
end;
Wenn ich mir während des Debuggens den Text anschaue, passt er auch. Wenn ich in die Konsole meines WebService schaue, kommt es aber so an, als ob ich überhaupt keine Änderungen gemacht hätte.

Könnte mir hier evtl. jemand auf die Sprünge helfen?
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz