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

[MyRealName]

Also das Geheimrezept ist also, dass man in Records keine String[125] direkt nutzt, sondern die als Typ z.B. TString125 anlegt und diesen typ dann im Record nutzt...
Vielen Dank, hätte ich jetzt so nicht erwartet, aber naja..

Zitat von mytbo;1522194
Reicht ein Read-Only DataSet aus, ist die Umsetzung mit [URL="https://github.com/synopse/mORMot2":

mORMot[/URL] einfach. Nur durch den ShortString ist ein eigener Serialisierer erforderlich. Allerdings ergibt sich daraus auch die Möglichkeit der Formatierung oder Erweiterung, Bis bald...
Thomas

Das wäre natürlich hilfreich, aber da geht mir die Information der 125er-Stringlänge verloren. Trotzdem danke für die Info, es ist gut zu wissen, dass Mormot das so kann...

[mytbo]

Zitat von MyRealName:

Also das Geheimrezept ist also, dass man in Records keine String[125] direkt nutzt, sondern die als Typ z.B. TString125 anlegt und diesen typ dann im Record nutzt...
Vielen Dank, hätte ich jetzt so nicht erwartet, aber naja..

Du kannst nur die Runtime Type Information(en) verwenden, die vorhanden sind. Ein Feld String[125] hat keine. Wie die Struktur der RTTI Daten für ein Record aussieht, lässt sich beim Durchsteppen der Funktion TRttiInfo.RecordAllFields erkennen:

Delphi-Quellcode:

uses
  System.Rtti,
  System.TypInfo,
  mormot.core.base,
  mormot.core.rtti;
  
type
  TString125 = String[125];
  
  TSampleRec = packed record
    Id: Integer;
    FirstName: String;
    LastName: String;
    MiddleName: TString125;
    Sex: Char;
    IsActive: Boolean;
  end;
  
begin
  ShowMessage(GetTypeName(TypeInfo(TString125)));
  ShowMessage(GetTypeData(TypeInfo(TString125)).MaxLength.ToString);
  
  ShowMessage(GetTypeName(TypeInfo(TSampleRec)));
  ShowMessage(GetTypeData(TypeInfo(TSampleRec)).elSize.ToString);
  ShowMessage(GetTypeData(TypeInfo(TSampleRec)).RecSize.ToString);
  ShowMessage(GetTypeData(TypeInfo(TSampleRec)).ManagedFldCount.ToString);

  var info: PRttiInfo := TypeInfo(TSampleRec);
  var recSize: Integer;
  for var recField: TRttiRecordAllField in info.RecordAllFields(recSize) do
  begin
    ShowMessage(Format('Offset: %d, FieldName: %s, FieldType: %s, FieldSize: %d', [
      recField.Offset, recField.Name^, recField.TypeInfo.RawName, recField.TypeInfo.RttiSize]));
  end;
  ShowMessage(recSize.ToString);

Bis bald...
Thomas