mORMot Open Source

Hi ab, could be posible add a Dependences parameter to CheckParameters in mORMotService unit?

// In Definition change this
class procedure CheckParameters(const ExeFileName: TFileName;
      const ServiceName,DisplayName,Description: string); 

// for this
class procedure CheckParameters(const ExeFileName: TFileName;
      const ServiceName,DisplayName,Description,Dependencies: string);

//and In the implementation add de dependences to :TServiceController.Install
    ... 
    if param='/install' then
     TServiceController.Install(
       ServiceName,DisplayName,Description,true,ExeFileName,Dependencies) else
    ...

If is not posible, how can define dependence of service using CheckParameters?

Hi ab,
I know that TSQLRecord supports "set of enumerated types" in the declaration of its properties and is serialized as an integer. Is there a function in the library that can be used to convert SetOfEnumeratedTypes to integers and vice versa?
I tried to trace in the code, but I could not find where.
Thanks in advance.

Hi,
I have the follow situation

TSQLmyTable = class(TSQLRecord)
private
  FField_1: integer;
  FField_2: integer;
published
  Field_1: integer read FField_1 write FField_1;
  Field_2: integer read FField_2 write FField_2;
end;
  ...
  { in the model creation }
  ...
  VirtualTableExternalRegister(Result, TSQLmyTable, pPropConexion, 'MY_TABLE');
  Result.Props[TSQLmyTable].ExternalDB.
  MapField('ID','ID_MYTABLE').
  MapField('Field_1','FIELD_ONE').
  MapField('Field_2','FIELD_TWO').
    SetOptions([rpmNoCreateMissingTable, rpmNoCreateMissingField, rpmAutoMapKeywordFields]);

The TSQLmyTable point to an external DB (Firebird), and is maped to his real names.

The inserts, an updates are OK, but the Deletion in the follow way fails.

...
myRest.Delete(TSQLmyTable, 'FField_1 > 3')
...

or same SQLWhere where the count of IDs to delete was more than 1.
( when count of IDs is 1 run OK)
According to previous threads, I see that "myRest.Delete(aTable: TSQLRecordClass; SQLWhere: TRawUTF8)", first executes a select and obtains all the IDs that will be deleted according to the SQLWhere, to proceed with the "OnUpdateEvent" on the server.
As I can verify according to the trace, the "select" executes well and returns the list of IDs, but the "delete" fails and shows errors in the names of nonexistent fields, by the use of TSQLRecord names and not the real names of the database .
I do not understand why the select works well and the delete works poorly, both called with the same SQLWhere.
Any coments ar welcome...  thanks

Hi,

I have the follow code:

uses
  ..., 
 SynCommons,
 ....
procedure myProcedure(const FromNames, ToNames: TRawUTF8DynArray);
begin
  DoSomething....;
end;

implementation
....
  myProcedure(['Name1','Name2'],['ToName1', 'ToName2']); // here error on compiling

1) This is de correct way to invoke myProcedure???
2) If this is OK, then in Delphi7, Win7 32bits have de follow error on compilig:

[Error] TestProyect.dpr[xx]: Ordinal type required

What is wrong here?
Thanks.

Hi...I just finish the actualization (with GIT) of mormot framework, and I'm not sure that this is a bug, but in previous versions, after a TSQLRecord instance is create, when the fields is TID type, SQLFieldType is tfsInteger, when in previous version of the framework was tfsTID.

Previous versions of framework:
SQLFieldRTTITypeName: 'TID'  and SQLFieldType: sftTID
Actual version of framwokr:
SQLFieldRTTITypeName: 'TID'  and SQLFieldType: sftTInteger

This is a bug?

I work with win7 32 bits - Delphi 7.

Another cuestion: how check in the source the version of mormot framwork?

Thanks....

Considering this:

TmyRecord = class(TSQLRecord).
TmyRecord instance work with rawUTF8 in runtime.
RestClient.Update(myRecord) save encoding UTF8 in persistence layer (Firebird DB in my case).
but...
I need Firebird DB in Ansi encode ( is a legacy proyect and is shared for reporting with other tecnologies )

My problem:
in FirebirdDB have a field (myField) with the value "cañon"
when retrive myRecord from the FirebirdDB, have a string "cañon" and not "cañon" wich is the correct string in UTF8.
when update myRecord.someOtherField, myField in FirebirdDB is filled with the value "".

1) Actually this is the secuence:
Firebird  : "cañon"
TSQLRecord: "cañon"
Firebird  : ""

2)I need this secuence:
Firebird  : "cañon"
TSQLRecord: "cañon"
Firebird  : "cañon"

I mean, there is a way of load or retrive values from de persistence layer, performing a convertion from Ansi To UTF8 in the TSQLRecord.crete(...), and get the second secuence?

For try, you can play with de SynFile in MainDemo.
1) Execute SynFile.exe
2) Put in same field the value "cañon"
3) Close SynFile.
4) Open SynFile.db3 with an external editor like "SQLite Administrator", and you can comprob that the value is "cañon"
This is the correct way...
5) now, edit and change "cañon" for "cañon"
6) Open SynFile.exe and see the value... only have "ca"

Thanks in advance...
Claudio.