paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

boolean are now serialized as 'true' or 'false'

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@501 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2008-07-01 19:38:55 +00:00
parent 3a3ac174b1
commit b48c112f91
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
wst/trunk/base_soap_formatter.pas
View File

@ -357,10 +357,21 @@ type
{$M-}
function BoolToSoapBool(const AValue : Boolean) : string;{$IFDEF USE_INLINE}inline;{$ENDIF}
implementation
Uses {$IFDEF WST_DELPHI}XMLDoc,XMLIntf,{$ELSE}XMLWrite, XMLRead,wst_fpc_xml,{$ENDIF}
StrUtils, imp_utils;
function BoolToSoapBool(const AValue : Boolean) : string;
begin
if AValue then
Result := 'true'
else
Result := 'false';
end;
{ TStackItem }
function TStackItem.GetItemsCount: Integer;
@ -741,7 +752,7 @@ function TSOAPBaseFormatter.PutBool(
const AData : Boolean
): TDOMNode;
begin
Result := InternalPutData(AName,ATypeInfo,LowerCase(BoolToStr(AData)));
Result := InternalPutData(AName,ATypeInfo,BoolToSoapBool(AData));
end;
function TSOAPBaseFormatter.PutInt64(
@ -1519,7 +1530,7 @@ begin
tkBool :
begin
boolData := Boolean(AData);
dataBuffer := BoolToStr(boolData);
dataBuffer := BoolToSoapBool(boolData);
end;
{$ENDIF}
tkInteger :

2
wst/trunk/tests/test_suite/testformatter_unit.pas
View File

@ -1085,7 +1085,7 @@ begin
f.EndScope();
s := TMemoryStream.Create();
f.SaveToStream(s);
f.SaveToStream(s); s.SaveToFile(ClassName + '.Test_Bool.xml');
intVal_1 := False;
intVal_3 := True;