xml Antwort von wcf soap Dienst abspeichern?

[jus]

Hallo,

Ich muß zugeben, dass ich in Sachen Webservices ein totaler Anfänger bin. Es geht wieder um die Anbindung von Fiskaltrust Middleware. Ich hole mir Daten von einem Windows WCF-Dienst runter. Die Schnittstellendefiniton wird über eine WSDL Datei definiert, das ich über den Delphi WSDL Importer konvertiere. Das Endergebbnis ist eine Unit, dass ich in den Programm einbinden kann. Die Kommunikation funktioniert einwandfrei. Wenn ich Fiddler anwerfe, dann sehe ich, dass vom Server als Antwort eine XML Datei gesendet wird. Diese XML wird anscheinend geparst und es wird ein Objekt mit den Variablen zurückgegeben.

Delphi-Quellcode:

var
  RRequest: ReceiptRequest;
  RResponse: ReceiptResponse;
begin
  RRequest:= ReceiptRequest.Create;
  RRequest.ftCashBoxID := 'xxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx';
  RRequest.cbTerminalID := '1';
  RRequest.ftReceiptCase := $4154000000000002;
  RResponse:=GetIPOS.Sign(RRequest);

  if RResponse<>nil then
  begin
   Memo1.Lines.Add('ftCashBoxID: '+RResponse.ftCashBoxID);
   Memo1.Lines.Add('ftSignatures Length: '+IntToStr(Length(RResponse.ftSignatures)));
  end;

Ich möchte aber nicht nur die einzelnen geparsten Variablen vom Objekt "RResponse" haben, sondern die komplette XML Antwort als Datei abspeichern. Weiss einer wie sowas geht?

lg,
jus

[Tyrolean]

Zitat von jus:

Hallo,

Ich muß zugeben, dass ich in Sachen Webservices ein totaler Anfänger bin. Es geht wieder um die Anbindung von Fiskaltrust Middleware. Ich hole mir Daten von einem Windows WCF-Dienst runter. Die Schnittstellendefiniton wird über eine WSDL Datei definiert, das ich über den Delphi WSDL Importer konvertiere. Das Endergebbnis ist eine Unit, dass ich in den Programm einbinden kann. Die Kommunikation funktioniert einwandfrei. Wenn ich Fiddler anwerfe, dann sehe ich, dass vom Server als Antwort eine XML Datei gesendet wird. Diese XML wird anscheinend geparst und es wird ein Objekt mit den Variablen zurückgegeben.

Delphi-Quellcode:

var
  RRequest: ReceiptRequest;
  RResponse: ReceiptResponse;
begin
  RRequest:= ReceiptRequest.Create;
  RRequest.ftCashBoxID := 'xxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx';
  RRequest.cbTerminalID := '1';
  RRequest.ftReceiptCase := $4154000000000002;
  RResponse:=GetIPOS.Sign(RRequest);

  if RResponse<>nil then
  begin
   Memo1.Lines.Add('ftCashBoxID: '+RResponse.ftCashBoxID);
   Memo1.Lines.Add('ftSignatures Length: '+IntToStr(Length(RResponse.ftSignatures)));
  end;

Ich möchte aber nicht nur die einzelnen geparsten Variablen vom Objekt "RResponse" haben, sondern die komplette XML Antwort als Datei abspeichern. Weiss einer wie sowas geht?

lg,
jus

Du hast ja bei SOAP die Möglichkeit dein eigenes RIO-Objekt zu übergeben und dort kannst du das XML vor dem Request und nach dem Response abfragen.

[jus]

@Tyrolean: vielen Dank für den Tipp, werde es morgen gleich mal nachgehen.

lg,
jus