TJson.JsonToObject<T> arroja errores en un entorno de subprocesos múltiples

multithreading delphi

Question

Cuando se usa TJson.JsonToObject en un entorno multihilo, se producen infracciones de acceso aleatorio. Estuve buscando el problema durante mucho tiempo y pude aislarlo con el siguiente código

Clase JSON

type
   TParameter = class
   public
      FName     : string;
      FDataType : string;
      FValue    : string;
   end;

Prueba de funcionamiento:

procedure Test();
var
   myTasks: array of ITask;
   i : integer;
   max : integer;
begin

  max := 50;
  SetLength(myTasks, max);
  for i := 0 to max  -1  do begin
     myTasks[i] := TTask.Create(procedure ()
       var
          json : string;
          p : TParameter;
       begin
          json := ''{"name":"NameOfParam","dataType":"TypeOfParam","value":"ValueOfParam"}'';
          p := TJson.JsonToObject<TParameter>(json);
          p.Free;
       end);
     myTasks[i].Start;
  end;

  TTask.WaitForAll(myTasks);
  ShowMessage(''all done!'');
end;

Es solo un fragmento de código basado en una fuente mucho más compleja. Mientras uso este código en un solo hilo, todo funciona sin problemas. Me pregunto si hay algún problema con el código.

Answer 1

El método TJSONUnMarshal.ObjectInstance en REST.JsonReflect.pas tiene un error grave:

Llama a FreeAndNil en una instancia de TRttiType. Esto nunca debe hacerse porque todas las instancias de TRtti *** son administradas por TRttiContext.

Después de eliminar la llamada de FreeAndNil, ya no pude reproducir la infracción de acceso.

Reportado como: https://quality.embarcadero.com/browse/RSP-10035

PD: También creo que https://quality.embarcadero.com/browse/RSP-9815 afectará su código.