mORMot Open Source

unit mClient;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, SynCrossPlatformREST;

type
  TForm5 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  Model: TSQLModel;
  Client: TSQLRestClientHTTP;
implementation

{$R *.fmx}
begin
  Model := TSQLModel.Create([TSQLAuthUser,TSQLAuthGroup,TSQLRecordPeople]);
  Client := TSQLRestClientHTTP.Create('localhost','888',Model);
  if not Client.Connect then
    raise Exception.Create('Impossible to connect to the server');
  if Client.ServerTimeStamp=0 then
    raise Exception.Create('Incorrect server');
  if not Client.SetUser(TSQLRestAuthenticationDefault,'User','synopse') then
    raise Exception.Create('Impossible to authenticate to the server');
end.