RTTI und ShortString in records...

[mytbo]

Zitat von MyRealName:

Ich versuche gerade, records in einer Liste durch RTTI in Datenbankfelder und -register zu verwandeln. Dazu will ich die genutzten records dynamisch über RTTI auslesen, ein Memory-Dataset nutzen um die Felder anzulegen und dann das Dataset mit den Daten aus den records füllen.

Reicht ein Read-Only DataSet aus, ist die Umsetzung mit mORMot einfach. Nur durch den ShortString ist ein eigener Serialisierer erforderlich. Allerdings ergibt sich daraus auch die Möglichkeit der Formatierung oder Erweiterung, wie zum Beispiel berechnete Felder hinzuzufügen:

Delphi-Quellcode:

uses
  mormot.core.base,
  mormot.core.data,
  mormot.core.json,
  mormot.core.text,
  mormot.orm.base,
  mormot.db.core,
  mormot.ui.rad.json;

type
  PSampleRec = ^TSampleRec;
  TSampleRec = packed record
    Id: Integer;
    FirstName: String;
    LastName: String;
    MiddleName: String[125];
    Sex: Char;
    IsActive: Boolean;
  end;
  TSampleRecDynArray = array of TSampleRec;
  
  ...
  private
    class procedure TSampleRecWriter(pmWriter: TJsonWriter; pmData: Pointer; pmOptions: TTextWriterWriteObjectOptions);

class procedure ...TSampleRecWriter(pmWriter: TJsonWriter; pmData: Pointer; pmOptions: TTextWriterWriteObjectOptions);
var 
  rec: PSampleRec absolute pmData;
begin
  pmWriter.AddJsonEscape(['ID', rec.Id, 'FirstName', rec.FirstName, 'LastName', rec.LastName, 'MiddleName', rec.MiddleName, 'Sex', rec.Sex, 'IsActive', rec.IsActive]);
end;

procedure ...TestOrmTableDataSet;
var
  dataArr: TSampleRecDynArray;
begin
  SetLength(dataArr, 2);
  dataArr[0].Id := 1;
  dataArr[0].FirstName := 'Klaus';
  dataArr[0].LastName := 'Meier';
  dataArr[0].MiddleName := 'Peter';
  dataArr[0].Sex := 'M';
  dataArr[0].IsActive := True;
  dataArr[1].Id := 2;
  dataArr[1].FirstName := 'Carmen';
  dataArr[1].LastName := 'Schmitt';
  dataArr[1].MiddleName := 'Maria';
  dataArr[1].Sex := 'F';
  dataArr[1].IsActive := True;
  
  var content: RawByteString := DynArraySaveJson(dataArr, TypeInfo(TSampleRecDynArray));
  var dataSet: TOrmTableDataSet := JsonToDataSet(Self, content);
  if dataSet <> Nil then
  begin  
    dataSet.Last;
    ShowMessage(Format('RowCount: %d, ID: %d, FirstName: %s, LastName: %s, MiddleName: %s', [
      dataSet.RecordCount,
      dataSet.FieldByName('ID').AsInteger,
      dataSet.FieldByName('FirstName').AsString,
      dataSet.FieldByName('LastName').AsString,
      dataSet.FieldByName('MiddleName').AsString]));

    dataSet.Free;
  end;

initialization
  TRttiJson.RegisterCustomSerializer(TypeInfo(TSampleRec), Nil, ...TSampleRecWriter);

Bis bald...
Thomas