mORMot Open Source

Hi,

we're testing mormot2 and we found error in:

httpServermain.pas

    finally
      server.Free;  <== D12.2 throws error in same is with D11.3
    end;
  finally
    settings.Free;
  end;

D12:
destructor THttpProxyServer.Destroy;
begin
  if fServer <> nil then
    fServer.Shutdown; // set flag ASAP
  inherited Destroy; <==  exception

Exception :
     destructor TSynAutoCreateFields.Destroy;
     begin
       AutoDestroyFields(self); <== Exception
       inherited Destroy;
     end;
exception is:

---------------------------
GExperts Debugger Exception Notification
---------------------------
Project httpServerFiles.exe raised exception class EAccessViolation with message 'Access violation at address 00C69C88. Read of address 0000008C'.
---------------------------
[&Filter ...] [Ignore &All this Session] [&Break] [Additional &Info] [&Continue]
---------------------------
ThreadId=33732
ProcessId=14
ThreadName="Main"
ExceptionMessage="Access violation at address 00C69C88. Read of address 0000008C"
ExceptionName="EAccessViolation"
ExceptionDisplayName="$C0000005"
ExceptionAddress=00C69C88
FileName="C:\DEV\synopse\GitHub\mORMot2\src\core\mormot.core.json.pas"
LineNumber=11881

---------------------------

thank you

Hi,  (latest mormot from github, D11.2ent)

if I  do:
var isotime: TSynSystemTime;
  if isotime.FromText('1962-11-12T21:59:48') then
  or
  if isotime.FromText('1962-11-12T21:59:48.000') then
result is false, because milliseconds are always 2333.
intialization of values are random numbers (milliseconds are 2333). Also year, ...

Maybe I'm missing soemthing.

thank you,
Vojko

Hi,
Mormot 1 (latest), and D11 ent, win32

This was hidden ... and I don't know if this is normal.

We have object of TPersistent that is part of main object TPersistent:
TMainObj=clas(TPersistent)
...
published
  mySubObject:TMySubObject...
...
end;

We normally use json to store objects and retreive them.

property in question:
TMySubObject
published
  property PropAlwaysRestored: TDatetime read FPropAlwaysRestored;  // <== FPropAlwaysRestored gets updated !!!??

I checked the JSON file value of property. And after JSON2Object this value is restored in object.

Thank you,
Vojko Cendak

Hi, W10pro, Rio10.3.3ent

We have a problem when we have nested object in published properties.
We can't use j2oSetterNoCreate in interfaced service, so we propose this code:  lines with   // <==

function TPropInfo.ClassFromJSON(Instance: TObject; From: PUTF8Char;
  var Valid: boolean; Options: TJSONToObjectOptions): PUTF8Char;
var Field: ^TObject;
    {$ifndef FPC}tmp: TObject;UserCreatedObj: Boolean;{$endif} ; // <==
begin
  valid := false;
  UserCreatedObj := False; // <==
  result := nil;
  if (@self=nil) or (PropType^.Kind<>tkClass) or (Instance=nil) then
    exit;
  if SetterIsField then
    // setter to field -> direct in-memory access
    Field := SetterAddr(Instance) else
  {$ifndef FPC}
  if WriteIsDefined and not (j2oSetterNoCreate in Options) then begin
    // it is a setter method -> create a temporary object
    tmp := GetObjProp(Instance);  // <==
    UserCreatedObj := tmp<>nil; // <==
    if tmp=nil then tmp := PropType^.ClassCreate; // <==
//    tmp := PropType^.ClassCreate;
    try
      result := JSONToObject(tmp,From,Valid,nil,Options);
      if (not Valid) and (not UserCreatedObj) then  // <==
        FreeAndNil(tmp) else begin
        SetOrdProp(Instance,PtrInt(tmp)); // PtrInt(tmp) is OK for CPU64
        if j2oSetterExpectsToFreeTempInstance in Options then
          FreeAndNil(tmp);
      end;
    except
      on Exception do
        if (not UserCreatedObj) then tmp.Free; // <==
    end;
    exit;
  end else
  {$endif FPC}
  if GetterIsField then
    // no setter -> use direct in-memory access from getter (if available)
    Field := GetterAddr(Instance) else
    // no setter, nor direct field offset -> impossible to set the instance
    exit;
  result := JSONToObject(Field^,From,Valid,nil,Options);
end;

The code checks whether object is already present and just updates properties and leaves creation/destruction.
Hope the code is not too long.

Thank you,
Vojko Cendak

Hi,

I'm asking this and maybe this is a stupid question:
We need to implement sicSingle service (multithreaded) and each call (same method) should wait for previous to end:
We get 1., 2., 3., ... n. call ... 1. is processing and others should wait and when the 1. ends, 2. comes in.
Is this already implemented in Mormot ?
We want to stay in method until it finishes or timeouts.

Or does someone has better idea ?

Thank you,
Vojko Cendak

Hi, (latest Mormot and Rio 10.3.2)

Whe we use record in property:

  TAllParkDeviceConfiguration = packed record
    DeviceID: Integer;
    IP: RawUTF8;
    PORT: Integer;
    MODE: Integer;      
    BAR_CLOSE: Integer; 
    TIM_ZAP_CLOSE: Integer;  
    TIMEOUT_PREHOD: Integer; 
    TIMEOUT_ISVALID: Integer; 
    TRIGER_LPR: Integer;  
    TIMEOUT_LPR: Integer; 
    PROVIDER: Integer;      
    GSM_SERVICE: RawUTF8;  
  end;

property MyRecord:TAllParkDeviceConfiguration read getMyRecord write setMyRecord;

it throws : Invalid TJSONSerializer.AddRecordJSON(41541b0e).

But if I use:

property MyRecord:TAllParkDeviceConfiguration  read fMyRecord write fMyRecord ;

We need this because we use Interfaces where get and set have to be defined.

Thank you,
Vojko

Hi,

We have an published property  that is actually TCollectionItem and internally created. In delphi's object inspector it is normally visible
and streamable ...

1. problem with code in :   

function TPropInfo.ClassFromJSON
...
if SetProc<>0  then begin
    // it is a setter method -> create a temporary object
    tmp := PropType^.ClassCreate;  // it doesn't create TCollectionItem class

2. Is it possible to just set properties  without creating published objects ?

Thank you and all the best,
Vojko Cenda

HI, Delphi2009ent

we have a problem with compiling latest source in mOrmot:

    {$ifdef UNICODE}
    /// create a TObjectList<TSQLRecord> with TSQLRecord instances corresponding
    // to this TSQLTable result set
    // - use the specified TSQLRecord class or create instances
    // of the first associated record class (from internal QueryTables[])
    // - always returns an instance, even if the TSQLTable is nil or void
    function ToObjectList<T: TSQLRecord>: TObjectList<T>; overload; <== [DCC Error] mORMot.pas(4571): E2511 Type parameter 'T' must be a class type
    {$endif}

I commented it and for now it works.

thank you,
Vojko