mORMot Open Source

HttpSetUrlGroupProperty failed: The parameter is incorrect (87)

  EHttpApiServer.RaiseOnError(hSetUrlGroupProperty,
    Http.SetUrlGroupProperty(fUrlGroupID, HttpServerLoggingProperty,
      @logInfo, SizeOf(logInfo)));

begin
  try
    Log := TMailLog.CreateAndFillPrepare(CurrentContext.ORMServer, 'MailResume is null');
    while log.FillOne do
    begin
      // do something 
    end;
  finally
    log.free;
  end;
end;

type

DiskDatabase = TSQLRestServerDB;
MemDatabase = TSQLRestServerFullMemory;

TName = class(TSQLRecord)
   private
     fnam : RawUTF8;
   published 
     property Nam : RawUTF8 read fnam write fnam;
end;

end;

var
  Nam : TName;
  MemoryContext : TSQLRestServerFullMemory;
  DiskContext : TSQLRestServerDB;
begin
  //Create two context one from memory and another from disk file and search one TName record on Memory (we added one) database (WHERE Name = Turrican)
  //... Context creation Skipped ...
  Nam := TName.CreateAndFillPrepare(MemoryContext , 'Name=?', ['Turrican'])
  if Nam.Fillone
  begin
    //We insert TName record to disk file database
    DiskContext.AddOrUpdate(Nam);
  end;
end;

  DiskContext.AddOrUpdate(Nam); //Doesn't fail but doesn't insert or update the record.

uses
  System.SysUtils,
  mormot,
  mORMotSQLite3,
  mORMotDB,
  System.Contnrs,
  synsqlite3static;

type

  TUser = class(TSQLRecord)
    private
      fname: UTF8String;
      fgroupid: TID;
    published
      property IDGroup: TID read fgroupid write fgroupid;
      property Name: UTF8String read fname write fname;
  end;

  TGroupe = class(TSQLRecord)
    private
      fclient: TSQLRestServerDB;
      fname: UTF8String;
      fusers: TObjectList;
    public
      function GetUsers(aClient: TSQLRestServerDB): TObjectList;
      function AddUser(aClient: TSQLRestServerDB; aUser: TUser): TID;
    published
      property Name: UTF8String read fname write fname;
  end;

function TGroupe.GetUsers(aClient: TSQLRestServerDB): TObjectList;
begin
  if Assigned(fusers) then fusers.Free;
  fusers:=aClient.RetrieveList(TUser, 'IDGroup=?', [ID]);
  Result:=fusers;
end;

function TGroupe.AddUser(aClient: TSQLRestServerDB; aUser: TUser): TID;
begin
  aUser.IDGroup:=ID;
  Result:=aClient.AddOrUpdate(aUser);
end;

var
  fSQLContext: TSQLRestServerDB;
  x: Integer;
  user: Pointer;
  group: TGroupe;
  groupid: TID;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    fSQLContext:=TSQLRestServerDB.Create(TSQLModel.Create([TUser, TGroupe], 'root'),'prueba.db3');
    fSQLContext.CreateMissingTables;
    Writeln('Create Group');
    group:=TGroupe.Create;
    group.Name:='Test Group';
    Writeln('Storing group');
    groupid:=fSQLContext.Add(group, True);
    Writeln('Adding users to group');
    for x := 0 to 100 do
    begin
      user:=TUser.Create;
      TUser(user).Name:='Name ' + x.ToString;
      writeln('Added user with id : ' + Int64(group.AddUser(fSQLContext,User)).ToString);
      TUser(user).Free;
    end;
    Writeln('Users added, freeing group');
    group.Free;
    Writeln('Create group again and retrieve users');
    group:=TGroupe.Create;
    fSQLContext.Retrieve(groupid,group);
    begin
      for user in group.GetUsers(fSQLContext) do
      begin
        writeln(TUser(user).Name);
      end;
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

program JSONSerializer;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  mORMOt,
  SynCommons,
  System.Generics.Collections;

type

  TMyCollection = class(TCollection)
    public
      destructor Destroy; override;
      function Serialize: string;
      procedure Searlizetofile(tofile: string);
  end;

  TSubItem = class(TCollectionItem)
    private
      ftext: string;
    published
      property Text: string read ftext write ftext;
  end;

  TItem = class(TCollectionItem)
    private
      fname: string;
      fsubitems: TCollection;
    published
      property Name: string read fname write fname;
      property SubItems: TCollection read fsubitems write fsubitems;
    public
      destructor Destroy; override;
  end;

destructor TMyCollection.Destroy;
var
  Item: TCollectionItem;
begin
  for Item in Self do Item.Free;
end;

function TMyCollection.Serialize: string;
begin
  TJSONSerializer.RegisterClassForJSON(Self.ClassType);
  Result:=ObjectToJSON(Self);
end;

procedure TMyCollection.Searlizetofile(tofile: string);
begin
  TJSONSerializer.RegisterClassForJSON(Self.ClassType);
  ObjectToJSONFile(Self,tofile);
end;

destructor TItem.Destroy;
begin
  if Assigned(fsubitems) then SubItems.Free;
end;

var
 Collection1: TMyCollection;
 Item: TItem;
 Subitem: TSubItem;
 X: Integer;
 Y: Integer;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    Writeln(GetTickCount64.ToString);
    Collection1:=TMyCollection.Create(TItem);
    for X := 1 to 3 do
    begin
      Item:=TItem(Collection1.Add);
      Item.Name:='Iteration ' + X.ToString;
      Item.SubItems:=TCollection.Create(TSubItem);
      for Y:= 1 to 500 do
      begin
        Subitem:=TSubItem(Item.SubItems.Add);
        Subitem.Text:='Subitem ' + Y.ToString;
      end;
    end;
    Collection1.Searlizetofile('.\file1.txt');
    Collection1.Free;
    Collection1:=TMyCollection.Create(TItem);
    JSONFileToObject('.\file1.txt', Collection1, nil);
    Writeln(Collection1.Serialize);
    Writeln(GetTickCount64.ToString);
    Readln;
  except
    on E: Exception do
    Writeln(E.ClassName, ': ', E.Message);
  end;
end.