SOAP Problem

[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