Thema: Delphi SOAP, WSDL und Arrays

Einzelnen Beitrag anzeigen

Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
435 Beiträge
 
Delphi 12 Athens
 
#7

AW: SOAP, WSDL und Arrays

  Alt 24. Aug 2021, 17:36
So richtig kann ich das Problem nicht erkennen: Wenn die WSDL importiert wurde, wird eine .pas-Datei erzeugt. Die kommt in die uses-Klausel. Dann den WebService über einen HTTPRIO-Verbinden - etwa so:
WS:=[die_erstellte_pas-Datei_aus_der_wsdl].Get[wieauchimmer](false, [hierdieAufrufAdresse], HTTPRIO1); Dann über den Opbjektinspektor das OnBeforeExecute-Ereignis von HTTPRIO1 erzeugen und folgenden Eintrag machen:
Delphi-Quellcode:
procedure xxx.HTTPRIO1.BeforeExecute(const MethodName: string; SOAPRequest: TStream);
begin
with TStringList.Create do
 try
 SOAPRequest.Position:=0;
 LoadFromStream(SOAPRequest, TEncoding.UTF8);
 Text:= //hier den Text beliebig manipulieren
 Text:= //z.B. Text:=StringReplace(Text, '<guid>', '<a:guid>', [rfReplaceAll]);
 SOAPRequest.Position:=0; SOAPRequest.Size:=0;
 SaveToStream(SOAPRequest, TEncoding.UTF8);
 finally Free; end;
end;

Geändert von Papaschlumpf73 (24. Aug 2021 um 17:52 Uhr)
  Mit Zitat antworten Zitat