SOAP Problem

[hungrycoder]

@Lemmy
Ich erzeuge keinen eigenen Response, wie denn auch? Dein Beispiel ist nur eine Umformung meines Codes. Das heißt der Fehler besteht weiterhin, wie auch von theoneand geschrieben.

[Lemmy]

Zitat von hungrycoder:

@Lemmy
Ich erzeuge keinen eigenen Response, wie denn auch? geschrieben.

hm...
results := UCheckAddressSimpleResponse.Create; sei es drum: Ich habe dir eben ne PN geschickt.

[Keldorn]

Hallo,

ich komm andersrum irgendwie immer besser klar (so wie Lemmy)

1. wsdl importieren
2. Httprio mit auf die Form
3. after und beforeexecute zuweisen

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
var WS:QACWebServiceSoap;
    checks : UCheckAddressSimple;
    results : UCheckAddressSimpleResponse;
begin
  WS := GetQACWebServiceSoap(false,'',HTTPRIO1);
  checks := UCheckAddressSimple.Create;
  checks.UserName := 'test';
  checks.UserPassword := 'test';
  checks.Tolerance := 1;
  checks.Country := 'DE';
  checks.ZIP := '41252';
  checks.City := 'Sp';
  checks.Street := 'Eugen-Bolz-Straße';
  results:=WS.uCheckAddressSimple(checks);

  ShowMessage(inttostr(results.UCheckAddressSimpleResult.ResultStatus)+'err:'+results.UCheckAddressSimpleResult.ErrorMessage);
  //ich bin der Meinung, daß hier keine Freigabe erfolgen muß, irgendwo stand das.
end;

procedure TForm6.HTTPRIO1AfterExecute(const MethodName: string; SOAPResponse: TStream);
//soapresponse zu Debugzwecken als xml abspeichern
Var sl:Tstrings;
begin
  sl:=TStringList.Create;
  try
    SOAPResponse.Position:=0;
    sl.LoadFromStream(SOAPResponse);
    sl.SaveToFile(ExtractFilePath(Application.ExeName)+'Soap-Response.xml');

  finally
  sl.free;
  end;
end;

procedure TForm6.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
//hier das erzeugte xml abändern, damit es für die Gegenseite "passt" und xml zu debugzwecken speichern
Var sl:TStrings;
    sSoaprequest:string;
begin
  //Debug
  sl:=TStringList.Create;

  soaprequest.Position := 0;
  sl.LoadFromStream(SOAPRequest);
  sSoaprequest:=sl.Text;

  sl.SaveToFile(ExtractFilePath(Application.ExeName)+'Soap-Request-Orig.xml');

  //anpassen
  sSoaprequest:=StringReplace(sSoaprequest,...,...,[rfReplaceAll,rfIgnoreCase]);

  //wieder in stream schreiben
  sl.text:=sSoaprequest;
  SOAPRequest.Position :=0;
  sl.SaveToStream(SOAPRequest);
  sl.free;
end;

bekomme ich mit XE2 erstmal nur den "Login Failed! Login info is incorrect" als Fehler zurück.

wenns nicht passt und ich immer noch nicht weiß wie es besser geht: genau wie mjustin soapui verwenden und den request im beforeexecute solange anpassen, bis es "passt". Bei mir sind es öfters namespace-Angaben, die nicht richtig gesetzt sind.

Wenn du Delphi2007 verwendest, geht das genauso, da waren nur noch keine streams im Event.
Wie sieht dein erzeugter Request aus?

Gruß Frank

[hungrycoder]

@Keldorn
Danke für deine Antwort. Der Request und die Response sieht genau so aus wie in SOAPUI, kein einziger Unterschied...
Ich weiß nicht woran der Fehler liegt, bin aber zu dem Punkt gestossen, dass es etwas mit dem Parser von Delphi 2007 zu tun haben muss. Der Fehler tritt in der Klasse EXMLDocError auf.
Habe jetzt einen kleinen Workaround. Da ich den Response als Stream übergeben bekomme, greife ich diesen Response im AfterExecute von HTTPRio ab und parse ihn in NativeXML Knoten für Knoten durch. Daten werden dann in einem Record abgespeichert. Ist nicht die schönste Lösung, aahaaber sie geht

[Keldorn]

Hallo,

hab heute nochmal mein altes Delphi2007 angeworfen. die WSDL mit Delphi2007 importiert und gleiches Vorgehen wie oben und auch gleiches Resultat wie oben mit XE2: "Login Failed! Login info is incorrect."

kannst bitte du mal die echte Response (also eine Abfrage mit richtigen Zugangsdaten) als XML dranhängen?

Gruß Frank

[hungrycoder]

@Keldorn
Natürlich bekommst du nur den Fehler, dass die Login falsch ist. Mein Fehler kommt ja bei der Antwort. Ich kann dir die Login Daten nicht geben, ist aber auch verständlich....

[Keldorn]

ich meinte damit, daß ich den Fehler auch unter 2007 bekomme und nicht gleich den von dir beschriebenen Fehler.
Egal ob Loginfehler oder nicht: die Response hat ja prinzipiell erstmal den gleichen Aufbau. Das du die logindaten nicht rausgeben kannst, ist klar . Wenn Du Lust hast, schickste mir die Response-xml mal per PN an.