mORMot Open Source

Using Delphi XE8 and the latest nightly build of mORMot, I have created a 'stand-alone' ReST Server (as shown below) that runs on a Windows Server hosted by Amazon.

  iConnection := TSQLDBZEOSConnectionProperties.Create(TSQLDBZEOSConnectionProperties.URI(dMySQL, c_mySQLDBServer + ':3306'), c_mySQLDB, c_mySQLDBUsername, c_mySQlDBPassword);
  try
    iModel := OurDataModel;
    VirtualTableExternalRegister(iModel, TCustomersProducts, iConnection, 'TableCustomersProducts');
    try
      iRestServer := TSQLRestServerDB.Create(iModel, ':memory:', false);
      try
        iRestServer.CreateMissingTables;
        iHttpServer := TSQLHttpServer.Create(SERVER_PORT, [iRestServer], '+', useHttpApiRegisteringURI);
        try
          writeln('Background server is running.'#10);
          write('Press [Enter] to close the server.');
          readln;
        finally
          iHttpServer.Free;
        end;
      finally
        iRestServer.Free;
      end;
    finally
      iModel.Free;
    end;
  finally
    iConnection.Free;
  end;

Everything works as expected during the day. Indeed, my server is running in the background and my Client is able to access it without any problems. However, if the server has been 'running' all night long, the next morning, my Client app is no longer able to access it. At that point, I have to stop and re-start the server.

I suppose that, because the server was not called during the night, the connection to the database was lost.

What should I do in order to keep my server running functionally for long period of time? Any suggestions, pointers would be greatly appreciated.

On my local machine, I have created a ReST Server and Client (code bewlow). When I run the Server locally, I am able via the Client to retrieve a list of products stored in a mySQL database hosted externally. My end goal is to run (at first as a console) my ReSt Server on a Windows instance hosted by Amazon.

I am able to 'install' and run my 'console' server on the Windows instance. However, for the life of me, I am unable to figure out how to modify the client so that it might access my 'mORMot' server. Any pointers and/or advices would be greatly appreciated.

My ReST Server is defined as follow:

uses
  ...,
  OurReST_Model;

var
  iModel: TSQLModel;
  iHttpServer: TSQLHttpServer;
  iRestServer: TSQLRestServerDB;
  iConnection: TSQLDBConnectionProperties;
begin
  SQLite3Log.Family.Level        := LOG_VERBOSE;
  SQLite3Log.Family.PerThreadLog := ptIdentifiedInOnFile;
  iConnection := TSQLDBZEOSConnectionProperties.Create(TSQLDBZEOSConnectionProperties.URI(dMySQL, c_mySQLDBServer + ':3306'), c_mySQLDB, c_mySQLDBUsername, c_mySQlDBPassword);
  try
    iModel := OurDataModel;
    VirtualTableExternalRegister(iModel, TCustomersProducts, iConnection, 'TableCustomersProducts');
    try
      iRestServer := TSQLRestServerDB.Create(iModel, ':memory:', false);
      try
        iRestServer.CreateMissingTables;
        iHttpServer := TSQLHttpServer.Create(SERVER_PORT, [iRestServer], '+', useHttpApiRegisteringURI);
        try
          writeln('Background server is running.'#10);
          write('Press [Enter] to close the server.');
          readln;
        finally
          iHttpServer.Free;
        end;
      finally
        iRestServer.Free;
      end;
    finally
      iModel.Free;
    end;
  finally
    iConnection.Free;
  end;
end.

'OurReST_Model' is defined as follow:

unit OurReST_Model;

interface

uses
  SynCommons,
  mORMot;

type
  TCustomersProducts = class(TSQLRecord)      // TSQLRecord has a built-in ID: integer primary key
    private
      fProductName: RawUTF8;
      fProductAddedOn: TDateTime;
    published
      /// ORM will create the table columns
      property ProductName: RawUTF8 index 12 read fProductName write fProductName;
      property ProductAddedOn: TDateTime read fProductAddedOn write fProductAddedOn;
  end;

function OurDataModel: TSQLModel;

const
  SERVER_ROOT = 'root';
  SERVER_PORT = '888';

implementation

function OurDataModel: TSQLModel;
begin
  Result := TSQLModel.Create([TCustomersProducts], SERVER_ROOT);
end;

end.

Within my 'client' VCL application, if I want to retrieve a list of products that belongs to a specific customer, I do the following:

function get_UserProducts(aUserID: Integer; var aClientDataSet: TClientDataSet): Boolean;
var
  iModel: TSQLModel;
  iClient: TSQLRestClientHTTP;
  iUserRecord: TCustomersProducts;
begin
  iModel  := GetModel;
  iClient := GetClient('localhost');
  try
    iUserRecord := TCustomersProducts.CreateAndFillPrepare(iClient, '', 'ID = ?', [aUserID]);
    try
      aClientDataSet.Close;
      aClientDataSet.Open;
      while iUserRecord.FillOne do begin
        aClientDataSet.Append;
        aClientDataSet.FieldByName('ProductName').AsString      := iUserRecord.ProductName;
        aClientDataSet.FieldByName('ProductAddedOn').AsDateTime := iUserRecord.ProductAddedOn;
        aClientDataSet.Post;
      end;
      Result := True;
    finally
      iUserRecord.Free;
    end;
  finally
    iClient.Free;
    iModel.Free;
  end;
end;

Using Delphi XE7 Update 1 and the latest 'unstable' version of 'mORMot', I have compiled project 'httpservice.'

When I run the 'httpservice' executable with the '-c' parameter, everything works as expected.

When I try to install the service (via a call, in administrator mode, to the command line  'httpservice /install'), I do not get the usual 'Service installed' confirmation message. In addition, the service does not show up in the list of installed services.

Am I missing something important?

On a Windows 8 64-bit machine, using Delphi XE7 Update 1, I adapted the '28 - Simple RESTful ORM Server' example, so that the server 'links' to a mySQL database stored in the cloud. Everything works as expected.

My question is 'how to I implement the client side?' As suggested in '16.2. Generating client wrappers,' I tried to generate the source code needed for client access. But, so far, all my attempts have failed. Am I going at it the wrong way?

If I understand the 'mORMot' documentation properly, using 'TSQLDBZEOSConnectionProperties' in conjunction with 'libmysql.dll' is the prefered method to connect to a mySQL database. I also understand that the recommended version of Zeos to used is: 7.2. I have downloaded Zeos v. 7.2 (dated October 21, 2014).

I now have a stupid question. Do I install Zeos into my Delphi XE7 in order to use it with 'mORmot' or do I simply add the path to the 'src' folder to my application?

I am using Delphi XE7 Update 1 on a Windows 8 virtual machine. I downloaded and uncompressed the snapshot of the latest source code repository into "C:\Dev\Lib\". Idownloaded and uncompressed the static 32 bit SQLite3 .obj files into "C:\Dev\Lib\SQLite3\". I opened the TestSQL3.dpr program from the SQLite3 sub-folder. I compiled the program. When I run it, I get the following fails:

1.4. Synopse PDF:
!  - TPdfDocument: 1 / 4 FAILED  50.88ms
  - TPdfDocumentGDI: 8 assertions passed  46.90ms
  Total failed: 1 / 12  - Synopse PDF FAILED  98.96ms

2.8. External database:
  - TQuery: 2,003 assertions passed  8.43ms

! Exception ESQLDBRemote raised with messsage:
!  TSQLDBServerHttpApi.Create: administrator rights needed to register URI root on port 888

What am I doing wrong?

I am a Delphi programmer that, until this month, has only developed desktop applications. The company I worked for has decided to create a mobile app to be used in conjunction with our desktop app. As a result of this decision, we have upgraded to Delphi XE7 and they have asked me to implement the following features:

- both the desktop and the mobile app should be able to login onto a database in the Cloud. The purpose of the login is to verify the user membership as well as retrieve the path to the user data storage;
- both the desktop and the mobile app should be able to upload and/or download data located under the path retrieved during the login process.

We are thinking of using Amazon S3 for our data storage and a SQLite database. Both the Amazon S3 account and the SQLite database would be accessed via a web server (ReST server) for security purposes.

As a neophyte, I have never dealt with this type of problem before. As a result, I have been spending some time researching the subject online. As I was doing so, I discovered the mORMot Framework. Not really knowing where to start and being rather overwhelmed by the complexity of the task, I would like your expert opinions on the feasibility of using mORMot Framework for our project. If you do not think that we should use mORMot Framework, would you recommend another framework and/or a different approach?

Thank you, in advance, for your inputs.