mORMot Open Source

SELECT `ID`, COLUMN_GET(`Data`, 'Firstname' AS CHAR) AS Firstname, COLUMN_GET(`Data`, 'Lastname' AS CHAR) AS Lastname FROM `person`;

var
  dbConnProps: TSQLDBConnectionProperties;
begin
  dbConnProps := TSQLDBFireDACConnectionProperties.Create('MySQL?localhost;Port=3307', 'general', 'root', 'suhgUKpH5BLQPxFNvCJl');
  dbConnProps.DefinitionToFile('dbConnDef.json');
end;

  ConnDefFromIni := TSynConnectionDefinition.Create();
  ConnDefFromIni.ServerName := 'MySQL?localhost;Port=3307';
  ConnDefFromIni.User := 'root';
  ConnDefFromIni.DatabaseName := 'general';
  ConnDefFromIni.PasswordPlain := 'suhgUKpH5BLQPxFNvCJl';
  
  JSONSynDef := ConnDefFromIni.SaveToJSON()

  TMeasurement = class(TSQLRecord)
  private
    fName: RawUTF8;
  published
    /// ORM will create a NAME VARCHAR(80) column
    property Name: RawUTF8 index 80 read fName write fName;
  end;

  TAnalyses = class(TSQLRecord)
  private
    fName: RawUTF8;
  published
    /// ORM will create a NAME VARCHAR(80) column
    property Name: RawUTF8 index 80 read fName write fName;
  end;

  function DataModel: TSQLModel;
  begin
    Result := TSQLModel.Create([TMeasurement, TAnalyses], SERVER_ROOT);
    TMeasurement.AddFilterOrValidate('Name',TSynValidateText.Create); // ensure exists
    TAnalyses.AddFilterOrValidate('Name',TSynValidateText.Create); // ensure exists
  end;

procedure CreateMeasurementAndAnalyses;
begin
  aProps := TSQLDBFireDACConnectionProperties.Create('MySQL?localhost;Port=3306', 'dbname', 'user', 'pass');
  try
    // get the shared data model
    aModel := DataModel;

    // use PostgreSQL database for all tables
    VirtualTableExternalRegisterAll(aModel,aProps);
    try
      aModel.Props[TMeasurement].ExternalDB.MapField('ID','IdMeasurement');
      aModel.Props[TAnalyses].ExternalDB.MapField('ID','IdAnalyses');

      // create the main mORMot server
      aRestServer := TSQLRestServerDB.Create(aModel,':memory:',false);
      try
        // create tables or fields if missing
        aRestServer.CreateMissingTables;

        // create a mORMot client
        aClient := TSQLRestClientDB.Create(aRestServer);
        try
          aMeasurement := TMeasurement.Create;
          try
            Randomize;
            aMeasurement.Name := 'Name'+Int32ToUtf8(Random(10000));
            aID := aClient.Add(aMeasurement,true);
          finally
            aMeasurement.Free;
          end;

          aAnalyses := TAnalyses.Create;
          try
            Randomize;
            aAnalyses.Name := 'Name'+Int32ToUtf8(Random(10000));
            aID := aClient.Add(aAnalyses,true);
          finally
            aAnalyses.Free;
          end;

        finally
          aClient.Free;
        end;
      finally
        aRestServer.Free;
      end;
    finally
      aModel.Free;
    end;
  finally
    aProps.Free;
  end;
end.