pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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-} {$M-}
function BoolToSoapBool(const AValue : Boolean) : string;{$IFDEF USE_INLINE}inline;{$ENDIF}
implementation implementation
Uses {$IFDEF WST_DELPHI}XMLDoc,XMLIntf,{$ELSE}XMLWrite, XMLRead,wst_fpc_xml,{$ENDIF} Uses {$IFDEF WST_DELPHI}XMLDoc,XMLIntf,{$ELSE}XMLWrite, XMLRead,wst_fpc_xml,{$ENDIF}
StrUtils, imp_utils; StrUtils, imp_utils;
function BoolToSoapBool(const AValue : Boolean) : string;
begin
if AValue then
Result := 'true'
else
Result := 'false';
end;
{ TStackItem } { TStackItem }
function TStackItem.GetItemsCount: Integer; function TStackItem.GetItemsCount: Integer;
@ -741,7 +752,7 @@ function TSOAPBaseFormatter.PutBool(
const AData : Boolean const AData : Boolean
): TDOMNode; ): TDOMNode;
begin begin
Result := InternalPutData(AName,ATypeInfo,LowerCase(BoolToStr(AData))); Result := InternalPutData(AName,ATypeInfo,BoolToSoapBool(AData));
end; end;
function TSOAPBaseFormatter.PutInt64( function TSOAPBaseFormatter.PutInt64(
@ -1519,7 +1530,7 @@ begin
tkBool : tkBool :
begin begin
boolData := Boolean(AData); boolData := Boolean(AData);
dataBuffer := BoolToStr(boolData); dataBuffer := BoolToSoapBool(boolData);
end; end;
{$ENDIF} {$ENDIF}
tkInteger : tkInteger :

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

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