mORMot Open Source

I'm trying to implement an object view for a given database. With a single class and the mapping change via .ExternalDB.MapField I found the way to grab records and store them back with their internal database key field. Also the loading of a "list" of objects with CreateAndFillPrepare / .FillOne and a wider select works fine (i.e. load all TDest).

So now I want to include one class into another, because in database it is a sub table and I want the sub class to be autoloaded, if the top class is loaded.

type
  TDest = class;
  TSource = class;

  TDests = class(TSQLRecordMany)
  ..
    property Source: TSource..
    property Dest: TDest...
...
  TSource = class(TSQLRecord)
    property Destinations: TDests read fDestinations;
  end;

  VirtualTableExternalRegister(Model, TDest, aConnProps, 'D_TABLE_DEST);
  VirtualTableExternalRegister(Model, TSource, aConnProps, 'D_TABLE_SRC');

  Model.Props[TDest].ExternalDB.MapField('ID', 'D_DST_ID');
  Model.Props[TDests].ExternalDB.MapField('ID', 'D_DST_ID');
  Model.Props[TSource].ExternalDB.MapField('ID', 'D_SRC_ID');

The TDests object is created in constructor of TSource. But the linking between the two tables is not done via a ManyToMany table inbetween. The TDest table has a column which refers to the source table (ID_SRC_TABLE). Did I have a chance to modify the autoconstructed joins and tell the created model, that the field "D_DST_SRC_ID" should be used to identify all TDest(s) and load them into Destinations within the loading/creating a TSource?

Maybe this is a very simple thing to do, but I'm looking for a solution now several hours without finding an answer. All examples I've found in the SQLLite3\Samples are using the auto mechanism for joining. If I run the server with this shorten example I always getting the error message "TDests expects a SOURCE field" - so I'm searching where to set it correctly.

Hi to all,

I'm new here and to mORMot also Yesterday I looked up the possibilities to create file based logging and found SynLog.pas.
I'm using the nightly build from yesterday, Delphi is XE5. But two small things I didn't get running.

1.) If I want to log a TPersistent object always "info  null" written to the log file

  TTest = class(TPersistent)
  private
    FVorname: SynUnicode;
    FNachname: SynUnicode;
    FPLZ: integer;
  published
    property Vorname: SynUnicode read FVorname write FVorname;
    property Nachname: SynUnicode read FNachname write FNachname;
    property PLZ: integer read FPLZ write FPLZ;
  end;
..
var
  test: TTest;
begin
  test := TTest.Create;
  try
    test.Vorname := 'Carsten';

    TSynLog.Add.Log(sllInfo, test);
  finally
    test.Free;
  end;

// Part where it is produced is SynCommons.pas, line about 34486
// Last part always true and nil is assigned

// didn't it work with TPersistent and published properties??

procedure TTextWriter.WriteObject(Value: TObject; Options: TTextWriterWriteObjectOptions);
...
    if not(woFullExpand in Options) or
       not (Value.InheritsFrom(TList)
       {$ifndef LVCL} or Value.InheritsFrom(TCollection){$endif}) then
      Value := nil;
...

How could I write an object content in json notation? Didn't find an automatic call to WriteObjectAsString to serialize objects to json.

2.) Debug console doesn't work for me, as descriped in this thread. As written I'm using the nighly build with the discribed changes included

http://synopse.info/forum/viewtopic.php?id=2419

I used exact the same example, nothing appears in Debug/Messages window, if I use OutputDebugString instead it works.

Because many more people will use logging, my thought is that something is missing or misconfigurated in my environment.
I only use SynCommons.pas, SynLog.pas, Synapse.inc (without modification), SynLz.pas and SynZip.pas + the two .obj files for packing logs into zip files. But packing can't be the problem, both problems occurring in flat file logging.

Thanks for your time to read and any hint

Excalibur (Carsten)