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

UnicodeString Fix

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1482 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-02-02 15:34:13 +00:00
parent 1ba130c8c4
commit 2e55ad976d
5 changed files with 111 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
wst/trunk/base_binary_formatter.pas
View File

@ -1320,9 +1320,15 @@ var
locBuffer : PDataBuffer;
begin
Result := GetDataBuffer(AName,locBuffer);
if Result then
if Result then begin
case locBuffer^.DataType of
dtUnicodeString : AData := locBuffer^.UnicodeStrData^.Data;
dtWideString : AData := locBuffer^.WideStrData^.Data;
else
AData := locBuffer^.AnsiStrData^.Data;
end;
end;
end;
function TBaseBinaryFormatter.GetWideStr(
const ATypeInfo: PTypeInfo;
@ -1333,9 +1339,15 @@ var
locBuffer : PDataBuffer;
begin
Result := GetDataBuffer(AName,locBuffer);
if Result then
if Result then begin
case locBuffer^.DataType of
dtAnsiString : AData := locBuffer^.AnsiStrData^.Data;
dtUnicodeString : AData := locBuffer^.UnicodeStrData^.Data;
else
AData := locBuffer^.WideStrData^.Data;
end;
end;
end;
{ $IFDEF WST_UNICODESTRING}
function TBaseBinaryFormatter.GetUnicodeStr(
@ -1347,9 +1359,15 @@ var
locBuffer : PDataBuffer;
begin
Result := GetDataBuffer(AName,locBuffer);
if Result then
if Result then begin
case locBuffer^.DataType of
dtAnsiString : AData := locBuffer^.AnsiStrData^.Data;
dtWideString : AData := locBuffer^.WideStrData^.Data;
else
AData := locBuffer^.UnicodeStrData^.Data;
end;
end;
end;
{ $ENDIF WST_UNICODESTRING}
function TBaseBinaryFormatter.GetObj(
@ -1530,7 +1548,7 @@ begin
end;
tkLString{$IFDEF FPC},tkAString{$ENDIF} :
Begin
ansiStrData := String(AData);
ansiStrData := AnsiString(AData);
PutAnsiStr(AName,ATypeInfo,ansiStrData);
End;
tkWString :
@ -1659,7 +1677,7 @@ begin
end;
tkLString{$IFDEF FPC},tkAString{$ENDIF} :
begin
strData := string(AData);
strData := AnsiString(AData);
StackTop().CreateInnerBuffer(dtAnsiString)^.AnsiStrData^.Data := strData;
end;
tkWString :
@ -1838,7 +1856,7 @@ begin
strData := '';
Result := GetAnsiStr(ATypeInfo,AName,strData);
if Result then
String(AData) := strData;
AnsiString(AData) := strData;
End;
tkWString :
begin
@ -1973,10 +1991,34 @@ begin
tkLString
{$IFDEF FPC},
tkAString
{$ENDIF} : string(AData) := dataBuffer^.AnsiStrData^.Data;
tkWString : WideString(AData) := dataBuffer^.WideStrData^.Data;
{$ENDIF} :
begin
case dataBuffer^.DataType of
dtUnicodeString : AnsiString(AData) := dataBuffer^.UnicodeStrData^.Data;
dtWideString : AnsiString(AData) := dataBuffer^.WideStrData^.Data;
else
AnsiString(AData) := dataBuffer^.AnsiStrData^.Data;
end;
end;
tkWString :
begin
case dataBuffer^.DataType of
dtUnicodeString : WideString(AData) := dataBuffer^.UnicodeStrData^.Data;
dtAnsiString : WideString(AData) := dataBuffer^.AnsiStrData^.Data;
else
WideString(AData) := dataBuffer^.WideStrData^.Data;
end;
end;
{$IFDEF WST_UNICODESTRING}
tkUString : UnicodeString(AData) := dataBuffer^.UnicodeStrData^.Data;
tkUString :
begin
case dataBuffer^.DataType of
dtAnsiString : UnicodeString(AData) := dataBuffer^.AnsiStrData^.Data;
dtWideString : UnicodeString(AData) := dataBuffer^.WideStrData^.Data;
else
UnicodeString(AData) := dataBuffer^.UnicodeStrData^.Data;
end;
end;
{$ENDIF WST_UNICODESTRING}
tkClass, tkRecord : raise EBinaryFormatterException.Create(SERR_InnerScopeMustBeSimpleType);

8
wst/trunk/base_service_intf.pas
View File

@ -5206,7 +5206,13 @@ begin
ok := ( GetInt64Prop(Self,p^.Name) = GetInt64Prop(ACompareTo,p^.Name) );
{$IFDEF HAS_TKBOOL}tkBool,{$ENDIF} tkEnumeration, tkInteger :
ok := ( GetOrdProp(Self,p^.Name) = GetOrdProp(ACompareTo,p^.Name) );
tkLString{$IFDEF FPC}, tkAString{$ENDIF} :
{$IFDEF FPC}
tkAString,
{$ENDIF FPC}
{$IFDEF WST_UNICODESTRING}
tkUString,
{$ENDIF WST_UNICODESTRING}
tkLString :
ok := ( GetStrProp(Self,p^.Name) = GetStrProp(ACompareTo,p^.Name) );
tkClass :
begin

8
wst/trunk/base_soap_formatter.pas
View File

@ -1820,7 +1820,7 @@ begin
{$ENDIF HAS_QWORD}
tkLString{$IFDEF FPC},tkAString{$ENDIF} :
Begin
strData := String(AData);
strData := AnsiString(AData);
PutStr(ANameSpace,AName,ATypeInfo,strData);
End;
{$IFDEF WST_UNICODESTRING}
@ -1949,7 +1949,7 @@ begin
{$ENDIF HAS_QWORD}
tkLString{$IFDEF FPC},tkAString{$ENDIF} :
begin
strData := string(AData);
strData := AnsiString(AData);
dataBuffer := strData;
end;
tkWString :
@ -2087,7 +2087,7 @@ begin
strData := '';
Result := GetStr(ATypeInfo,ANameSpace,AName,strData);
if Result then
String(AData) := strData;
AnsiString(AData) := strData;
End;
{$IFDEF WST_UNICODESTRING}
tkUString :
@ -2222,7 +2222,7 @@ begin
{$IFDEF HAS_QWORD}
tkQWord : QWord(AData) := StrToQWordDef(Trim(dataBuffer),0);
{$ENDIF HAS_QWORD}
tkLString{$IFDEF FPC},tkAString{$ENDIF} : string(AData) := dataBuffer;
tkLString{$IFDEF FPC},tkAString{$ENDIF} : AnsiString(AData) := dataBuffer;
tkWString : WideString(AData) := dataBuffer;
{$IFDEF WST_UNICODESTRING}
tkUString : UnicodeString(AData) := dataBuffer;

8
wst/trunk/base_xmlrpc_formatter.pas
View File

@ -1433,7 +1433,7 @@ begin
{$ENDIF HAS_QWORD}
tkLString{$IFDEF FPC},tkAString{$ENDIF} :
Begin
strData := String(AData);
strData := AnsiString(AData);
PutStr(AName,ATypeInfo,strData);
End;
tkWString :
@ -1562,7 +1562,7 @@ begin
{$ENDIF HAS_QWORD}
tkLString{$IFDEF FPC},tkAString{$ENDIF} :
begin
strData := string(AData);
strData := AnsiString(AData);
dataBuffer := strData;
end;
tkWString :
@ -1706,7 +1706,7 @@ begin
strData := '';
Result := GetStr(ATypeInfo,AName,strData);
if Result then
String(AData) := strData;
AnsiString(AData) := strData;
End;
{$IFDEF WST_UNICODESTRING}
tkUString :
@ -1842,7 +1842,7 @@ begin
{$IFDEF HAS_QWORD}
tkQWord : QWord(AData) := StrToQWordDef(Trim(dataBuffer),0);
{$ENDIF HAS_QWORD}
tkLString{$IFDEF FPC},tkAString{$ENDIF} : string(AData) := dataBuffer;
tkLString{$IFDEF FPC},tkAString{$ENDIF} : AnsiString(AData) := dataBuffer;
tkWString : WideString(AData) := dataBuffer;
{$IFDEF WST_UNICODESTRING}
tkUString : UnicodeString(AData) := dataBuffer;

4
wst/trunk/binary_streamer.pas
View File

@ -34,6 +34,10 @@ Type
TWideStringData = WideString;
{$IFDEF WST_UNICODESTRING}
TUnicodeStringData = UnicodeString;
{$ELSE WST_UNICODESTRING}
UnicodeString = WideString;
TUnicodeStringData = UnicodeString;
UnicodeChar = WideChar;
{$ENDIF WST_UNICODESTRING}
TAnsiCharacter = AnsiChar;
TWideCharacter = WideChar;