pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

XMLRPC Serializer : type free data defaults to string

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@882 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-30 16:04:12 +00:00
parent d4075cf58c
commit 124f02acb3
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
wst/trunk/base_xmlrpc_formatter.pas
View File

@ -1035,7 +1035,7 @@ function TXmlRpcBaseFormatter.GetAnsiChar(
var var
locBuffer : DOMString; locBuffer : DOMString;
begin begin
Result := GetNodeValue(AName,locBuffer); Result := GetNodeValue(AName,locBuffer,True);
if Result then begin if Result then begin
if ( Length(locBuffer) = 0 ) then if ( Length(locBuffer) = 0 ) then
AData := #0 AData := #0
@ -1052,7 +1052,7 @@ function TXmlRpcBaseFormatter.GetWideChar(
var var
locBuffer : DOMString; locBuffer : DOMString;
begin begin
Result := GetNodeValue(AName,locBuffer); Result := GetNodeValue(AName,locBuffer,True);
if Result then begin if Result then begin
if ( Length(locBuffer) = 0 ) then if ( Length(locBuffer) = 0 ) then
AData := #0 AData := #0
@ -1129,7 +1129,7 @@ function TXmlRpcBaseFormatter.GetUnicodeStr(
var var
locBuffer : DOMString; locBuffer : DOMString;
begin begin
Result := GetNodeValue(AName,locBuffer); Result := GetNodeValue(AName,locBuffer,True);
if Result then if Result then
AData := locBuffer; AData := locBuffer;
end; end;
@ -1143,7 +1143,7 @@ function TXmlRpcBaseFormatter.GetWideStr(
var var
locBuffer : DOMString; locBuffer : DOMString;
begin begin
Result := GetNodeValue(AName,locBuffer); Result := GetNodeValue(AName,locBuffer,True);
if Result then if Result then
AData := locBuffer; AData := locBuffer;
end; end;