From 124f02acb30d94db0a5713b87b0ba18c2b77305f Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 30 Jun 2009 16:04:12 +0000
Subject: [PATCH] XMLRPC Serializer : type free data defaults to string

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@882 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/base_xmlrpc_formatter.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/wst/trunk/base_xmlrpc_formatter.pas b/wst/trunk/base_xmlrpc_formatter.pas
index effa2bbd0..e094ae53a 100644
--- a/wst/trunk/base_xmlrpc_formatter.pas
+++ b/wst/trunk/base_xmlrpc_formatter.pas
@@ -1035,7 +1035,7 @@ function TXmlRpcBaseFormatter.GetAnsiChar(
 var
   locBuffer : DOMString;
 begin
-  Result := GetNodeValue(AName,locBuffer);
+  Result := GetNodeValue(AName,locBuffer,True);
   if Result then begin
     if ( Length(locBuffer) = 0 ) then
       AData := #0
@@ -1052,7 +1052,7 @@ function TXmlRpcBaseFormatter.GetWideChar(
 var
   locBuffer : DOMString;
 begin
-  Result := GetNodeValue(AName,locBuffer);
+  Result := GetNodeValue(AName,locBuffer,True);
   if Result then begin
     if ( Length(locBuffer) = 0 ) then
       AData := #0
@@ -1129,7 +1129,7 @@ function TXmlRpcBaseFormatter.GetUnicodeStr(
 var
   locBuffer : DOMString;
 begin
-  Result := GetNodeValue(AName,locBuffer);
+  Result := GetNodeValue(AName,locBuffer,True);
   if Result then
     AData := locBuffer;
 end;
@@ -1143,7 +1143,7 @@ function TXmlRpcBaseFormatter.GetWideStr(
 var
   locBuffer : DOMString;
 begin
-  Result := GetNodeValue(AName,locBuffer);
+  Result := GetNodeValue(AName,locBuffer,True);
   if Result then
     AData := locBuffer;
 end;