Ha funcionado muuu bien keys, siguiendo la idea he hecho lo siguiente, por si le sirve a alguien:
Código Delphi
[-]
procedure TData.HTTPRIO6BeforeExecute(const MethodName: string;
SOAPRequest: TStream);
var
Document: IXMLDocument;
registro:integer;
ss:TFileStream;
Cadena: TStringList;
begin
SOAPRequest.Position := 0;
Document := TXMLDocument.Create(nil);
Document.Options := [];
Document.LoadFromStream(SOAPRequest);
Document.XML.Text := xmlDoc.FormatXMLData(Document.XML.Text);
main.richedit1.Lines.Add(StringReplace(Document.XML.Text,'','',[rfReplaceAll, rfIgnoreCase]));
Cadena := TStringList.Create;
Cadena.Add(Main.RichEdit1.Lines.Text);
Cadena.SaveToFile('c:\tmp\1.xml');
ss := TFileStream.Create('c:\tmp\1.xml',fmOpenRead);
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom(ss,ss.Size);
ss.Free;
SOAPRequest.Position := 0;
end;
Que es lo que ha sugerido KEYS pero a mi modo.
Grache Mille
