Aber wie seht ihr das Argument den Stack nicht unnötig mit langlebigen Daten zu befüllen?
Ich weiß nicht, warum du dir Sorgen um den Stack machst. So wie ich deine Anforderung verstanden habe, wird es vermutlich mit einem "array of ..." enden und damit landest du auf dem Heap. Auf dem Heap werden angelegt: Klassen, dynamische Arrays, alle gemanagten Typen (String, Variant, Interface) und Speicher der mit GetMem() oder New() angefordert wird. Daher funktioniert auch Folgendes problemlos:
Delphi-Quellcode:
uses
mormot.core.base,
mormot.core.data,
mormot.core.text,
mormot.core.json,
mormot.core.unicode,
mormot.core.variants,
mormot.core.os,
mormot.core.perf;
procedure SpeedTestRecords;
type
TSubItem =
record
id: Integer;
value: RawUtf8;
end;
TDataItem =
record
id: Integer;
value: RawUtf8;
subItem: TSubItem;
end;
TDataItems =
array of TDataItem;
var
json,
xml: RawByteString;
timer: TPrecisionTimer;
items: TDataItems;
begin
SetLength(items, 1000000);
for var i: Integer := Low(items)
to High(items)
do
begin
items[i].id := i;
items[i].value := StringToUtf8('
value' + i.ToString);
items[i].subItem.id := i;
items[i].subItem.value := StringToUtf8('
subItem_value' + i.ToString);
end;
timer.Start;
json := DynArraySaveJson(items, TypeInfo(TDataItems));
timer.Pause;
FileFromString(json, '
_testData.json');
timer.Resume;
xml := JsonToXML(json);
timer.Pause;
FileFromString(
xml, '
_testData.xml');
WriteLn(Format('
Total time: %s', [timer.Stop]));
end;
Habe ich schon erwähnt, dass mORMot diese 1M Records JSON und
XML Serialisierung in
1 Sekunde schafft.
Bis bald...
Thomas