Merge pull request #39 from mateusvicente100/master

Identify blob field
viniciussanchez · Apr 23, 2020 · 59ed56d · 59ed56d
2 parents ad5581d + eab56ec
commit 59ed56d
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/core/DataSet.Serialize.Import.pas b/src/core/DataSet.Serialize.Import.pas
@@ -422,8 +422,14 @@ procedure TJSONSerialize.LoadFieldsFromJSON(const ADataSet: TDataSet; const AJSO
     with ADataSet.FieldDefs.AddFieldDef do
     begin
       Name := JSONPairToFieldName(LJSONPair);
-      DataType := ftString;
       Size := 4096;
+      if Length(LJSONPair.JsonValue.Value) > Size then
+      begin
+        Size := Length(LJSONPair.Value);
+        DataType := ftBlob;
+      end
+      else
+        DataType := ftString;
     end;
   end;
 end;