Problem beim SOAP Abruf

[hoika]

Hallo,
laut dem hier
https://entwickler-forum.de/forum/ar...9-soap-problem
liegt es an einem NIL-Pointer

Du benutzt das WebLogin-Objekt (den SOAP-Header) ja auch gar nicht.
Schau mal hier http://docwiki.embarcadero.com/RADSt...g_SOAP_Headers.

[Blackpit]

Zitat von hoika:

...

Du benutzt das WebLogin-Objekt (den SOAP-Header) ja auch gar nicht.
Schau mal hier http://docwiki.embarcadero.com/RADSt...g_SOAP_Headers.

War ein Kopierfehler (oben korrigiert), ich benutze es schon. Den Link kannte ich auch schon, es sind auch alle Parameter gefüllt.
Wie, ausser mit WireShark o.a., kann ich hier debuggen?

[hoika]

Hallo,
hm, wo genau benutzt Du den Header?

http://docwiki.embarcadero.com/RADSt...t_Applications

Meines Erachtens fehlt ein

Delphi-Quellcode:

  
(myService as ISOAPHeaders).Send(myLogin);  { add the header to outgoing message }

vor dem

Delphi-Quellcode:

  
  myInfo := myService.CompleteVehicleInformation(edt3.text);

[Blackpit]

Hallo Heiko,

ich denke auch das hier der Hund begraben ist.
Dein Vorschlag läuft durch, ändert aber leider nichts am Problem.

[Blackpit]

Ich komm nicht weiter, deshalb nochmals die Frage:

Zitat von Blackpit:

...Wie, ausser mit WireShark o.a., kann ich hier debuggen?

Danke im Voraus!

[hoika]

Hallo,
zeig doch noch mal den geänderten Code.
Und bitte nicht im alten Post ändern, sondern hier neu reinstellen.

[Blackpit]

Delphi-Quellcode:

procedure TForm3.btn1Click(Sender: TObject);
var
myService : SalesServiceSoap;
myLogin : WebLogin;
myDealer : DealerInformationModel;
myInfo : CompleteVehicleInformationModel;
myEquipment : ArrayOfEquipmentModel;
//myHeader : ISOAPHeaders;

begin
 myService := GetSalesServiceSoap();
 myLogin := WebLogin.Create;
 myLogin.User := edt1.Text;
 myLogin.Password := edt2.Text;
 myLogin.Language := 1;
 //myHeader := myService as ISOAPHeaders;
 //myHeader.Send(myLogin); { add the header to outgoing message }
 (myService as ISOAPHeaders).Send(myLogin); { add the header to outgoing message }
 myInfo := myService.CompleteVehicleInformation(edt3.text);
 myEquipment := myService.CompleteVehicleInformation(edt3.text).Equipment;
end;
end;

Läuft durch,der Fehler bleibt

[hoika]

Hallo,
myInfo := myService.CompleteVehicleInformation(edt3.text);
myEquipment := myService.CompleteVehicleInformation(edt3.text).Eq uipment;

in welcher der beiden Zeilen?

BTW:
myEquipment := myService.CompleteVehicleInformation(edt3.text).Eq uipment;
macht für mich erst mal keinen Sinn.
Ich könnte ja gleich
myInfo..Equipment;
benutzen

[Blackpit]

Es ist alles beim alten, myinfo ist die komplette Fahrzeuginfo, der Rest sind Teilbereiche im Service abrufbar.
Ich suche jetzt einen Weg das Protokol auszulesen, der Service funktioniert grundsätzlich per SoapUI.
Ich würde es gerne verstehen.

[SebastianZ]

Zitat von Blackpit:

Zitat von hoika:

...

Du benutzt das WebLogin-Objekt (den SOAP-Header) ja auch gar nicht.
Schau mal hier http://docwiki.embarcadero.com/RADSt...g_SOAP_Headers.

War ein Kopierfehler (oben korrigiert), ich benutze es schon. Den Link kannte ich auch schon, es sind auch alle Parameter gefüllt.
Wie, ausser mit WireShark o.a., kann ich hier debuggen?

Eine Möglichkeit die Netzwerkabfragen zu debuggen ist das Tool Membrane
Mit dem Monitor dort kann man einen Proxy zwischen Anwendung und Server schalten und die Anfragen, die reinkommen entsprechend mitlesen.

https://www.predic8.com/