1
0
mirror of synced 2024-09-19 10:26:08 +00:00

Fixed deserializing dictionary details: size mismatch exception and valued incorrectly being freed

This commit is contained in:
Mark van Renswoude 2017-01-09 14:48:35 +01:00
parent 9571bb4f97
commit 7887a0ba68

View File

@ -682,10 +682,11 @@ begin
end; end;
if Assigned(valueClass) then if Assigned(valueClass) then
values.Add(key, valueClass.Create(valueType, AStream)); values.Add(key, valueClass.Create(valueType, AStream, payloadSize));
end; end;
Result := TX2LogDictionaryDetails.CreateOwned(values); Result := TX2LogDictionaryDetails.CreateOwned(values);
values := nil;
finally finally
FreeAndNil(values); FreeAndNil(values);
end; end;