mORMot Open Source

@ab,
It is the only search result about AsynchRedirect that has sample code.
Can you make documentation more clear or give a simple sample on this subject? because as you mentioned in the doc it seems using AsynchRedirect is the only good way to prevents locks (For example calling server again in the callback)

Thanks you very much ab.
Can I ask why TShort63?

Yes, so I will wait for him to validate my findings.

Nice point.
So what can I do for supporting many concurrent users?

Any comment on this @ab?

Can you example more? I use classes and I cant go with records if you mean that.
Also, can I ask why you removed that? When I use mORMot with servers that made in another language there is a high chance of using Pascal keywords like Class, Type, To, From and ...

This ability seems broken in last Lazarus and mORMot with 64bit fpc.
I checked the code and somehow pointer of the specific field will change in the process so in JSONCustomParsersFieldProp it cant find the correct property.
@ab do you have a test case to check?

I changed TJSONSerializerCustomReader and removed const so I can change value and made a very simple sample, I have 2 class that maybe I need them to put them in there and one has a string value and another has an integer.

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    function ValueReader(aValue: TObject; aFrom: PUTF8Char; var aValid: boolean; aOptions: TJSONToObjectOptions): PUTF8Char;
  public

  end;

  { TTestValue }

  TTestValue = class(TSynAutoCreateFields)
  private
    FName: string;
  published
    property Name: string read FName write FName;
  end;

  { TTestValue1 }

  TTestValue1 = class(TTestValue)
  private
    FValue: string;
  published
    property Value: string read FValue write FValue;
  end;

  TTestValue2 = class(TTestValue)
  private
    FValue: integer;
  published
    property Value: integer read FValue write FValue;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  tv: TTestValue;
begin
  TJSONSerializer.RegisterCustomSerializer(TTestValue, @ValueReader, nil);
  tv := TTestValue.Create;
  ObjectLoadJSON(tv, ReadFileToString('1.json'), nil, [j2oIgnoreUnknownProperty]);
  WriteLn(tv.Name);
  ObjectLoadJSON(tv, ReadFileToString('2.json'), nil, [j2oIgnoreUnknownProperty]);
  WriteLn(tv.Name);
end;

function TForm1.ValueReader(aValue: TObject; aFrom: PUTF8Char; var aValid: boolean; aOptions: TJSONToObjectOptions): PUTF8Char;
var
  op: RawUTF8;
  Values: TPUtf8CharDynArray;
  N: PUTF8Char;
begin
  FreeAndNil(aValue);
  aValid := False;
  Result := nil;
  op := UTF8ToString(aFrom);
  Values := nil;
  JSONDecode(op, ['Name'], Values);
  N := Values[0];
  WriteLn(N);
  if N = 'V1' then
    aValue := TTestValue1.Create
  else if N = 'V2' then
    aValue := TTestValue2.Create;
  Result := JSONToObject(aValue, aFrom, aValid, nil, JSONTOOBJECT_TOLERANTOPTIONS);
end;                              

for a sample JOSN like:

{
	"Name": "V1",
	"Value": "String"
}

and 2.json

{
	"Name": "V2",
	"Value": 10
}

It is a naive solution but it does not work anyway because when I call JSONToObject it brings me back to the custom reader because TTestValue1 is inherited from TTestValue. Is there a way for me to prevent it or another good way to decode a JSON and read it in 2 different class by a condition?
As you can see I don't want to write all the read and write by myself because the classes are very complicated and if I force to use a custom reader, using mORMot reader will lose the point.

Hi ab,

I install newpascal and lazarus with fpcdeluxe  and rebuild mORMot and project with that , Broken pipe exception goes away and project works fine.
I compile project with delphi and fpc in windows and all tests passed successful.

Pardon me.My goal of the code is an example of my program.

Thank you for attention.

I can't use StringFromFile function because I have process data before saving them in file.
After many tries I found a way to reproduce exception, if Calling server methods in a loop all process work fine but if I make a delay between request Broken pipe exception raised. Maybe it's occur because some threads closed.
Lazarus Thread window doesn't show any thread change activity except TProcessThread running and closing.

When I press continue button of Broken Pipe exception other process work fine and file send to server and receive by client.

Thanks turrican, you are very kind.
I got many multiple question in last few days and here are their links, if you git time to help:
In JSON Serializer:
https://synopse.info/forum/viewtopic.ph … 757#p23757
https://synopse.info/forum/viewtopic.ph … 821#p23821

And this is more for ab but he didint respond unfortunately:
https://synopse.info/forum/viewtopic.php?id=3893

And about making a client working offline:
https://synopse.info/forum/viewtopic.php?id=3910

I appreciate if you can help in any one.

Thank you warleyalex.

Sorry but I cant understand how it can help and I looked in the samples list an there is not one to show how it works.
I tried to change Sample 4 to make it like the doc and add TRecordVersion property and do RecordVersionSynchronizeSlave but it is not clear in the doc how it can help.

Can you point me to the working sample?

PS, https://synopse.info/forum/viewtopic.php?id=3912

Is this way right from your view?

Works very well. Thanks.

Thanks, but where is it?
If you mean this https://synopse.info/files/html/Synopse … ml#TITL_71 I cant understand how it can help because it need "ClassName" value but I get this JSON from another sever and the value is "Type" for example.

I'm still looking for a solution in documentation and the code and the best I found is something like this and it seems it works.

  procedure TestIt;
  var
    it: TParentItem;
    s: RawUTF8;
  begin
    TJSONSerializer.RegisterObjArrayForJSON([TypeInfo(TParentItems), TParentItem]);
    TTextWriter.RegisterCustomJSONSerializer(TypeInfo(TParentItems), TSReaderWriter.ParentItemsReader, nil);
    s := StringFromFile('test.json');
    it := TParentItem.Create;
    ObjectLoadJSON(it, s, nil, [j2oIgnoreUnknownProperty]);
    ObjectToJSONFile(it, 'output.json');
    it.Free;
  end;

  { TSReaderWriter }

  class function TSReaderWriter.ParentItemsReader(P: PUTF8Char; var aValue; out aValid: boolean): PUTF8Char;
   var
    V: TObject absolute aValue;
    typ: string;
    op:RawUTF8;
  begin
    aValid := False;
    Result := nil;
    if (p = nil) then
      exit;
    if (V = nil) then
    begin
      op:=UTF8ToString(P);
      if typ = 'C1' then
        V := TParentItem1.Create
      else if typ = 'C2' then
        V := TParentItem2.Create
      else
        V := TParentItem.Create;
    end;
    result := JSONToObject(aValue, P, aValid, nil, JSONTOOBJECT_TOLERANTOPTIONS);    
  end;                    

I checked the code and it seems InternalClassPropInfo give the prop list in revers order, but I cant clearly understand how you do that but I checked FPC implementation like this and it write the list in order.

uses typinfo,Rtti;

    c: TRttiContext;
    RttiType: TRttiType;
    PropList: {$ifdef fpc}specialize{$endif} TArray<TRttiProperty>;
    i: Integer;
  begin
    c := TRttiContext.Create;
    RttiType := c.GetType(TParentItem.ClassInfo);
    PropList:=RttiType.GetProperties;
    WriteLn(Length(PropList));
    for i:=0 to Length(PropList)-1 do
    begin
     WriteLn(PropList[i].Name);// will print ID,Childs but InternalClassPropInfo give Childs first
    end;
    c.Free;    

What do you think?

So I done something like this:

  DA.Init(TypeInfo(TItem),V.FChilds);
  DA.LoadFromJSON(Values[2]);

The only question is how can I set the value with the property "Childs" not the exact value like "FChilds"?

So I need a custom one. For now automated serialization works very fine on most of the classes and I wished I can change the order so it does not make me to write all of the classes by hand.

I should say your automated serialization works very well and it is the best I found in Pascal language, these options I'm talking about make it more configurable to use it easily out of an ORM too.
I can change the source if you think it is right though.

Yes but only for parent but not all the childs, I want to only make it for parent not all childs.

For future reference there is the topics:
https://synopse.info/forum/viewtopic.php?id=3891
https://synopse.info/forum/viewtopic.php?id=3892
https://synopse.info/forum/viewtopic.php?id=3893