Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Improved support for Nullable types in URLEncoded serializer (very useful in case of SSV and HTMX)

Browse Source
This commit is contained in:
Daniele Teti 2024-11-05 12:29:44 +01:00
parent 8b256f787f
commit 70265984bb
1 changed files with 92 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
sources/MVCFramework.Serializer.URLEncoded.pas
View File

@ -119,7 +119,7 @@ type
implementation
uses
System.NetEncoding, System.Math, JsonDataObjects;
System.NetEncoding, System.Math, JsonDataObjects, MVCFramework.Nullables;
{ TMVCURLEncodedSerializer }
@ -422,6 +422,14 @@ procedure TMVCURLEncodedSerializer.DataValueToAttribute(const AObject: TObject;
const AIgnored: TMVCIgnoredList; const ACustomAttributes: TArray<TCustomAttribute>);
var
RttiType: TRttiType;
lValueTypeInfo: PTypeInfo;
lOutInteger: Integer;
lOutInteger64: Int64;
lOutUInteger64: UInt64;
lOutSingle: Double;
lOutDouble: Double;
lOutExtended: Extended;
lOutUInteger: Cardinal;
begin
RttiType := nil;
AValue.Empty;
@ -432,6 +440,7 @@ begin
RttiType := TRttiField(ARttiMember).FieldType;
end;
case RttiType.TypeKind of
tkString, tkWideString, tkAnsiString, tkUString:
AValue := TNetEncoding.URL.Decode(RawData);
@ -446,6 +455,88 @@ begin
if SameText(RttiType.ToString, 'boolean') then
AValue := RawData.ToBoolean;
end;
tkRecord:
begin
if String(RttiType.Handle^.Name).StartsWith('Nullable', True) then
begin
lValueTypeInfo := AValue.TypeInfo;
if lValueTypeInfo = TypeInfo(NullableString) then
begin
AValue := TValue.From<NullableString>(RawData);
end
else if lValueTypeInfo = TypeInfo(NullableInt32) then
begin
if TryStrToInt(RawData, lOutInteger) then
AValue := TValue.From<NullableInt32>(lOutInteger)
else
AValue := TValue.Empty;
end
else if lValueTypeInfo = TypeInfo(NullableUInt32) then
begin
if TryStrToUInt(RawData, lOutUInteger) then
AValue := TValue.From<NullableUInt32>(lOutUInteger)
else
AValue := TValue.Empty;
end
else if lValueTypeInfo = TypeInfo(NullableInt16) then
begin
if TryStrToInt(RawData, lOutInteger) then
AValue := TValue.From<NullableInt16>(lOutInteger)
else
AValue := TValue.Empty;
end
else if lValueTypeInfo = TypeInfo(NullableUInt16) then
begin
if TryStrToUInt(RawData, lOutUInteger) then
AValue := TValue.From<NullableUInt16>(lOutUInteger)
else
AValue := TValue.Empty;
end
else if lValueTypeInfo = TypeInfo(NullableInt64) then
begin
if TryStrToInt64(RawData, lOutInteger64) then
AValue := TValue.From<NullableInt64>(lOutInteger64)
else
AValue := TValue.Empty;
end
else if lValueTypeInfo = TypeInfo(NullableUInt64) then
begin
if TryStrToUInt64(RawData, lOutUInteger64) then
AValue := TValue.From<NullableUInt64>(lOutUInteger64)
else
AValue := TValue.Empty;
end
else if (lValueTypeInfo = TypeInfo(NullableSingle)) then
begin
if TryStrToFloat(RawData, lOutSingle) then
AValue := TValue.From<NullableSingle>(lOutSingle)
else
AValue := TValue.Empty;
end
else if (lValueTypeInfo = TypeInfo(NullableDouble)) then
begin
if TryStrToFloat(RawData, lOutDouble) then
AValue := lOutDouble
else
AValue := TValue.Empty;
end
else if (lValueTypeInfo = TypeInfo(NullableExtended)) then
begin
if TryStrToFloat(RawData, lOutExtended) then
AValue := lOutExtended
else
AValue := TValue.Empty;
end
else
begin
raise EMVCDeserializationException.Create('(DataValueToAttribute) Cannot deserialize Nullable type ' + String(RttiType.Handle^.Name));
end;
end
else
begin
raise EMVCDeserializationException.Create('(DataValueToAttribute) Invalid Record Type ' + String(RttiType.Handle^.Name));
end;
end
else
raise EMVCDeserializationException.Create('(DataValueToAttribute) Invalid TypeKind: ' + GetEnumName(TypeInfo(TTypeKind), Ord(RttiType.TypeKind)));
end;