procedure TdmRIO.BeforeExecute(const MethodName: string;
SOAPRequest: TStream);
begin
SOAPRequest.Size:=0;
ssResponse:=TStringStream.Create(UTF8Encode(ssRequest.DataString));
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom( ssResponse, ssResponse.Size);
ssResponse.Free;
SOAPRequest.Position := 0;
end;