Pages: 1 2 3

#1 Re: mORMot 2 » I want use ORM very much but MORMOT are some restrictions » 2025-03-17 11:49:33

mrbar2000

It´s more easy parse the message error to show more understandable messages to the end use that verify all locations that my pk is fk! This is my opinion!

Neither all programmer will have the caution that we have! And problems can happen.

#2 mORMot 2 » How get Errors on EngineDelete????? » 2025-03-12 13:51:31

mrbar2000
Replies: 1
function TRestStorageExternal.ExecuteDirect(const SqlFormat: RawUtf8;
  const Args, Params: array of const; ExpectResults: boolean): ISqlDBRows;
var
  stmt: ISqlDBStatement;
begin
...
  try
    stmt := fProperties.NewThreadSafeStatementPrepared(
      SqlFormat, Args, ExpectResults, {except=}true);   <<<< when some exception happens here....
...
  except
    <<<<<<<<<<<< FLastDBErro dont is filled
    stmt := nil;
    HandleClearPoolOnConnectionIssue; // leave result=nil to notify error
  end;
end;

then if i try get erro with GetDbError i receive a empty string.

my sugestion

  except
    on E: Exception do
    begin
      SetDbError(E.Message);
      stmt := nil;
      HandleClearPoolOnConnectionIssue; // leave result=nil to notify error
    end;
  end;

#3 Re: mORMot 2 » Send Email » 2025-03-12 13:40:12

mrbar2000

linux without certificate installed, resolved problem!

#4 Re: mORMot 2 » Send Email » 2025-03-11 13:10:36

mrbar2000

Hi guys,

All works in windows 10 but dont work on linux unbuntu 21 with same configurations.

What i should have on linux to sendmail works with ou without TLS?

#5 Re: mORMot 2 » About property name case on json serialize » 2025-02-11 12:07:44

mrbar2000

Database: Postgress

Ok, on database, mormot create all fields in lowercase, how change this to create conform the ORM class?

property DataCriacao. i dont want on database like "datacriacao"

I would Like Json com property  "DataCriacao".

If I make retrieve with collumns defined, json is generated "DataCriacao", but if i want retrieve all columns, mormot retrieve "datacriacao"
This are generating problems on frontend plataform because to it DataCriacao <> datacriacao

#6 mORMot 2 » About property name case on json serialize » 2025-02-10 17:14:08

mrbar2000
Replies: 2

I have this TOrm and DTO:

TMPOrm = class(TOrm)
  private
    FDataCriacao: TDateTime;
    FUltimaAlteracao: TDateTime;
    FEmpresaID: TID;
  published
    property DataCriacao: TDateTime read FDataCriacao write FDataCriacao;
    property UltimaAlteracao: TDateTime read FUltimaAlteracao write FUltimaAlteracao;
    property EmpresaID: TID read FEmpresaID write FEmpresaID;
  end;

  TPosto = class(TMPOrm)
  private
    FNome: RawUtf8;
    FIdExterno: Int64;
  published
    property Nome: RawUTF8 index 100 read FNome write FNome;
    property IdExterno: Int64 read FIdExterno write FIdExterno;
  end;

  TDTOPosto = packed record
    Nome: RawUtf8;
    ID: Int64;
    IDExterno: Int64;
  end;

when using CreatingMissingTables all fields names are translated to loweercase.

when retrieve information of database i get this json:

{
    "ID": 1,
    "datacriacao": "2024-10-09T16:19:11",
    "ultimaalteracao": "2025-01-14T10:02:45",
    "empresaid": 1,
    "nome": "Posto G",
    "idexterno": 32
}

How json property follow the same name case of DTO or ORM?

#7 Re: mORMot 2 » Cannot see a nullableinteger as null » 2025-01-17 13:23:59

mrbar2000

TSqlDBStatement.FetchAllToJson return "rackid":null

'{"id":32,"datacriacao":"2025-01-13T09:58:46","ultimaalteracao":"2025-01-13T09:58:46","empresaid":1,"numero":"0101","solicitacaoid":12,"exames":"PC, FOS","dataetiqueta":"2022-09-03T10:12:34","rackid":null,"linha":0,"coluna":0,"coletado":0,"cancelada":0,"postoatualid":1}'

function TRestOrm.RetrieveDocVariantArray(Table: TOrmClass;
  const ObjectName: RawUtf8; const FormatSqlWhere: RawUtf8;
  const BoundsSqlWhere: array of const; const FieldsCsv: RawUtf8;
  FirstRecordID, LastRecordID: PID): variant;
...
    T := MultiFieldValues(Table, FieldsCsv, FormatSqlWhere, BoundsSqlWhere);
    if T <> nil then
    try
      T.ToDocVariant(v, {readonly=}false); <<<<<<<<<<<< this part change "rackid":null of database to "rackid":0 (ZERO)

      v = > '[{"ID":32,...,"rackid":0,...},...}]'

      if FirstRecordID <> nil then
        FirstRecordID^ := T.GetID(1);
...

#8 mORMot 2 » Cannot see a nullableinteger as null » 2025-01-10 11:43:29

mrbar2000
Replies: 3

in my database my records are with RackId field filled with null
my class TAmostra has property RackID: TNullableInteger read FRackID write FRackID;  

var
  vListaAmostras: IDocList;
  vAmostra: IDocObject;
  vTempAmostra: TAmostra;
begin
  vTempAmostra := TAmostra.Create;
  try
    vListaAmostras := DocListFrom(FRestOrm.Orm.RetrieveDocVariantArray(TAmostra, '', '(SolicitacaoID=?)', [pSolicitacaoExistenteId], '*'));
    for vAmostra in vListaAmostras do
    begin
      vTempAmostra.FillFrom(Variant(vAmostra.Value^));
      if (Pos(vTempAmostra.Numero, pAmostras) <> 0)
        or not NullableIntegerIsEmptyOrNull(vTempAmostra.RackID) then
        Continue;
    ...

NullableIntegerIsEmptyOrNull(vTempAmostra.RackID) return false when shoul be return true.

debugging i see that vListaAmostras[0] return
'{"ID":26,"datacriacao":"2025-01-07T11:32:17","ultimaalteracao":"2025-01-07T11:42:47","empresaid":1,"numero":"0101","solicitacaoid":12,"exames":"PC, FOS","dataetiqueta":"2022-09-03T10:12:34","rackid":0,"linha":0,"coluna":0,"coletado":false,"cancelada":true,"postoatualid":1}'

should be "rackid": null????? because in database is null

#9 mORMot 2 » How a service can call another? » 2024-12-23 12:19:30

mrbar2000
Replies: 0

I have some Rest Interfaced based.
On server, how can a service/controller be called from another rest method?
I see something about resolve of interfaces but I dont understand how use it!

#10 Re: mORMot 2 » TSynValidate To DTO record » 2024-12-23 12:07:23

mrbar2000

How I can do this, I see a some time ago that we can use UpdateResource of windows to change resources, but i dunno if will be multiplatarform.
Mormot have something to make this multiplataform way? where i can find instrutions about it?

Could TSynValidates classes have something method that we could override to change this messages?

#11 Re: mORMot 2 » TSynValidate To DTO record » 2024-12-20 16:44:21

mrbar2000

I look on regression tests, on blog in on source.

I need change the default error message of TSynValidate. for sample:

function TSynValidateEmail.Process(aFieldIndex: integer; const value: RawUtf8;
  var ErrorMsg: string): boolean;
...
  ErrorMsg := Format(sInvalidEmailAddress, [Utf8ToString(value)]);  <<<<<<< i need change this message for my language
  result := false;
end;

I dont see no parameter to change this.

#12 Re: mORMot 2 » Nullable and Rttimap » 2024-12-20 16:09:59

mrbar2000

I put property as TNullableInteger on record too and works, tnks!

#13 Re: mORMot 2 » TSynValidate To DTO record » 2024-12-20 11:38:31

mrbar2000

Where I found documentation or sample to translate Tsynvalidate messages?

#14 mORMot 2 » TSynValidate To DTO record » 2024-12-14 09:42:20

mrbar2000
Replies: 6

There are in mormot some class to make validate in DTOs records?
I need make some simple validates on service before call my repositories passing DTOs. what u think about this?
Other question. Where I found documentation or sample to translate Tsynvalidate messages?

#15 mORMot 2 » Nullable and Rttimap » 2024-12-14 09:34:00

mrbar2000
Replies: 2

Arnold,

How make record to object using rttimap understand object properties TNullableXXXX?
I have a propery TNullableInteger but when sending a record property to object it write 0.
What I can do?

#16 Re: mORMot 2 » RecordToObject and ObjectToRecord » 2024-11-29 19:51:48

mrbar2000

Are u completly correct. Thanks AB

#17 Re: mORMot 2 » RecordToObject and ObjectToRecord » 2024-11-29 17:30:48

mrbar2000
ab wrote:

The usecase of TRttiMap is to easily copy field values by names.

What you are supposed to do is:
- use TRttiMap to copy field values by name
- leave the dest field name as '' to ignore a field
- add your own custom code for those ignored fields, which may need additional process

This "custom code" would be easy and nice, with no RTTI involved.
Using a MethodToA() function sounds clearly over-complicated to me.

MyConvertMethod is to specific cases, where we cant convert A to B, o B to A directly

a new function in TRttimap
   function TRttiMap.CustomMap(MyConvertMethod): PRttiMap;

Sample of use:

TDTOClient.Date is String;
TOrmClient.DateFinal is TDateTime;

map.Init(TypeInfo(TDTOClient), TOrmClient)
  .AutoMap
  .Map([
     'FatherName', '',   // ignore in A
     '', 'MatherName'   // ignore in B
  ])
  .Map('Date', 'DateFinal')
  .CustomMap(MyConvertMethod);

procedure TMyService.MyConvertMethod(map: TRttimap; AToB: Boolean; propertyName: String; A, B: pointer)
begin
  if AToB and (propertyName = 'Date') then then
    map.SetValue(B, propertyName, ConvertIsoString2DateTime(map.GetValue(A, propertyName)))
  else 
    map.SetValue(A, propertyName, ConvertDateTime2IsoString(map.GetValue(B, propertyName)));
end;

#18 Re: mORMot 2 » RecordToObject and ObjectToRecord » 2024-11-26 12:42:22

mrbar2000
ab wrote:

The documentation is part of the source comments of TRttiMap.
See also test.core.base.pas line 2456 and following.

Thanks i read all.

1) There are some list to register many TRttiMap like RegisterFromText?

2) What u think that pass some method to be called during ToA or ToB where I can make copyvalue or no!?

ex: m.ToA(@MeuRecord, @MyConvertMethodToA)

function MyConvertMethodToA(A, B: pointer; PropName: String; pA, pB: PPRttiCustomProp): Boolean;
var
  v: TVarData;
begin
  if PropnameB = 'Name' then
  begin
    v := 'Sr. ' + GetValueVariant(A, v)  <<< i think that don't work this way, just to explain the idea
    // here i can change the value to be put in A property "Name".
    pA^.SetValueVariant(A, v);  <<< something like this
    Result := True
  end else 
    Result := False;
end;
procedure TRttiMap.ToA(A, B, MethodToA: pointer);
var
  ...
  handled: boolean;
begin
  ...
  repeat
    if MethodToA <> Nil then
      handled := MethodToA(A, B, PropName, pA, pB)  <<< I dont know if will need all this params
    if not handled and (pa^ <>) nil then
      pb^.CopyValue(A, B, pa^); // copy this mapped property value
    ...
  until n = 0;
end;

What u think?

#19 mORMot 2 » RecordToObject and ObjectToRecord » 2024-11-22 03:51:13

mrbar2000
Replies: 6

There are some way to mapping property with names diferents between record and object. i.e:

TDTOAPerson                     TClient
    Name                ---->         ClientName
    BirthDay            ---->         BirthDay

I see something about TMapRTTI on last version of mormot, but i dont see on forum, blog or documentation nothing about this.

#20 Re: mORMot 2 » About cache and RetrieveDocVariantArray » 2024-11-21 21:00:00

mrbar2000

thanks man!

#21 Re: mORMot 2 » About cache and RetrieveDocVariantArray » 2024-11-21 03:04:50

mrbar2000

"The ORM does not support any such complex "Where" clause with an inner join"
But it bring the records with fields passed.

I whould like understand why It take "EmpresaID=?". I have others properties TID on TAmostra, but orm put just EmpresaID.

I can use FConfigDB to make my complex queries and use ORM to insert, update, delete? what impact about this? I´m using postgress (TSqlDBPostgresConnectionProperties). All samples that I see, use or somefile.db or SQLITE_MEMORY_DATABASE_NAME.

I´m using frontend made in nocode plataform (testing yet) then all this code is on server application.

#22 mORMot 2 » About cache and RetrieveDocVariantArray » 2024-11-20 20:16:59

mrbar2000
Replies: 5

I have the following scenario below and I don't understand why the ORM is not taking into account the parameterized query I am making, creating another completely different query.

  TAmostra = class(TOrm)
  private
    FNumero: RawUTF8;
    FSolicitacaoID: TID;
    FExames: RawUTF8;
    FDataEtiqueta: TDateTime;
    FRackID: TNullableInteger;
    FPostoAtual: TID;
    FColetado: Boolean;
    FCancelada: Boolean;
    FPostoAtualID: TID;
    FEmpresaID: TID;
  published
    property EmpresaID: TID read FEmpresaID write FEmpresaID;
    property Numero: RawUTF8 index 40 read FNumero write FNumero;
    property SolicitacaoID: TID read FSolicitacaoID write FSolicitacaoID;
    property Exames: RawUTF8 index 500 read FExames write FExames;
    property DataEtiqueta: TDateTime read FDataEtiqueta write FDataEtiqueta;
    property RackID: TNullableInteger read FRackID write FRackID;
    property Coletado: Boolean read FColetado write FColetado;
    property PostoAtualID: TID read FPostoAtualID write FPostoAtualID;
  end;

When I do:

FRestOrm.Orm.RetrieveDocVariantArray(TAmostra, '', 
  ' inner join Solicitacao s on (s.RowID = Amostra.solicitacaoID)  where (amostra.empresaID = ?) and (s.numero = ?) order by s.numero, Amostra.numero '
  [1, "4"],
  'Amostra.RowID, Amostra.*, s.numero numerosolicitacao, s.paciente, s.datasolicitacao');

     
Why does this prepare a sql like this:

select DataCriacao,UltimaAlteracao,EmpresaID,Numero,SolicitacaoID,Exames,DataEtiqueta,RackID,Linha,Coluna,Coletado,Cancelada,PostoAtualID,ID 
from public.Amostra where EmpresaID=?

From what I debugged, it executes the above sql throwing all CompanyID objects = 1 into a cache. I need all TAmostra where EmpresaID=1 and Number="4".
In a previous post AB informed me that RetrieveDocVariantArray works anyway, so why the "FormatSqlWhere" and "BoundsSqlWhere" parameters if this method doesn't respect it?
I looked in the documentation and on the forum how to disable the cache but I didn't find it or it didn't work.

function TRepository.ConnectionClass(pDBConnection: TSqlDBConnectionPropertiesClass): IRepository;
begin
  Result := Self;
  FConfigDB := pDBConnection.Create(FHost, FDatabase, FUser, FPassword);
  FConfigDB.ConnectionTimeOutMinutes := 2;
  VirtualTableExternalRegisterAll(FOrmModel, FConfigDB);
  FRestOrm := TRestServerDB.Create(FOrmModel, SQLITE_MEMORY_DATABASE_NAME);
  FRestOrm.AcquireExecutionMode[execOrmGet] := amBackgroundOrmSharedThread;
  FRestOrm.AcquireExecutionMode[execOrmWrite] := amBackgroundOrmSharedThread;
  FRestOrm.DB.UseCache := False;   <<<<<< dont disable the cache
  FRestOrm.DB.Synchronous := smOff;
  FRestOrm.DB.LockingMode := lmExclusive;
  FRestOrm.Server.CreateMissingTables;
  CreateIndexes;
  FRestOrm.Server.TrackChanges([TEmpresa, TUsuario, TAmostra,
    TRack, TEvento], TMyHistory, 100, 10, 65536);
end;

#23 mORMot 2 » Error Handling dificulty » 2024-11-05 19:16:11

mrbar2000
Replies: 0

I've forced an exception by putting a misnamed field in my SQL. During "RetrieveDocVariantArray" for sample, I get the SQL error, but after that, I can't catch the error message.

I tried:
GetLastError is 0
LastDBErrorID is 0
HasDBError is False

What I can use to capture this exception that i see on log?

"ESqlite3Exception {Message:"Error SQLITE_ERROR (1) [SELECT xSample.RowID, Sample.*, s.numbernumberrequest, s.patient, s.datarequest FROM Sample inner join Request s on (s.RowID = Sample.requestID) where (sample.companyID = ?) and (s.numero = ?) order by s.numero, Sample.numero ] using 3.44.2 - no such column: xSample.RowID", ErrorCode:1, SQLite3ErrorCode:"secERROR"} [TAppRestHttpSrv 8081v1 THttpSrv] at 8ed37c"

debugging i see that some part of caching clearDBError.

#24 Re: mORMot 2 » Possible Problem with RetrieveDocFromVariant » 2024-11-02 14:53:45

mrbar2000

Good morning Arnold, I have read and re-read the documentation several times but as there are several ways to connect to the database, several ways to extract the data and also to store it, this leaves any beginner in the framework very confused. Could you tell me which path I should follow to achieve this?

1) I have complex master detail queries and
I need to deoil this in the json format with objects and subobjects. I was trying to use RetrieveDocVariantArray but this method does not meet the criteria passed to prepare and execute the query.

2) I need to use REST/SOA and work with DTO. When the dto arrives I need to transform it into TORM to save it in the database (or fill automaticaly params of some sql inser/delete/update). If I access the database directly instead of using orm, I would have a huge job of assembling each insert/update/delete, things that orm already does. Furthermore, there is the issue of batch update and transactions.

3) if it is possible to mix ORM with direct access to the bank, what precautions should I take when doing this.
Please, I need more detailed answers. even if it's notes to documentation locations or test routines or examples where I will find a solution to these doubts.

Sorry Arnold if I'm bothering you. I see mormot as a viable solution for my system and I don't want to stop using it because I don't know how to use it properly. what is the best way to work. I use a SQL database and do not intend to work with NoSQL databases. I think this is the big reality for most Delphi/Lazarus programmers.

I can also share my code with you to tell me how I should proceed in order to obtain the best possible performance when using mormot to meet my needs.

#25 mORMot 2 » Possible Problem with RetrieveDocFromVariant » 2024-11-01 22:23:29

mrbar2000
Replies: 2

I execute have this function:

function TSelect.Retrieve: Variant;
begin
    Result := FRestOrm.Orm.RetrieveDocVariantArray(TAmostra, '',
      FWhere,
      TDocVariantData(FWhereParamValues).ToArrayOfConst,
      FCustomFieldsCsv)
...
end;

FWhere =  'inner join Solicitacao s on (s.RowID = Amostra.solicitacaoID)  where (amostra.empresaID = ?) and (s.numero = ?)'
FWhereParams = [1, '4']

On first call this RetrieveDocVariantArray make many selects on database. why? look the log
it show a where clause that i dont put: "where EmpresaID=?"

00000000102FB745 DB     mormot.db.sql.postgres.TSqlDBPostgresConnection(03575620) Connected to 191.101.78.31:5001 DB_SOROTRACK using...
000000001037BA78 DB     mormot.db.sql.postgres.TSqlDBPostgresStatement(0352bea0) Prepare t=1.85s c=00 q=select DataCriacao,UltimaAlteracao,EmpresaID,Numero,SolicitacaoID,Exames,DataEtiqueta,RackID,Linha,Coluna,Coletado,Cancelada,ID from public.Amostra where EmpresaID=?  <<<<< this not is my sql
00000000103BBE57 SQL    mormot.db.sql.postgres.TSqlDBPostgresStatement(0352bea0) Execute t=2.11s c=00 r=25 q=select DataCriacao,UltimaAlteracao,EmpresaID,Numero,SolicitacaoID,Exames,DataEtiqueta,RackID,Linha,Coluna,Coletado,Cancelada,ID from public.Amostra where EmpresaID=1 <<<< neither this
00000000103BD6F4 SQL    mormot.orm.sql.TOrmVirtualTableCursorExternal(03e3b1b0) Search select DataCriacao,UltimaAlteracao,EmpresaID,Numero,SolicitacaoID,Exames,DataEtiqueta,RackID,Linha,Coluna,Coletado,Cancelada,ID from public.Amostra where EmpresaID=?
000000001043C4A4 DB     mormot.db.sql.postgres.TSqlDBPostgresStatement(03529e20) Prepare t=516.47ms c=01 q=select DataCriacao,UltimaAlteracao,EmpresaID,Numero,DataSolicitacao,Paciente,PostoID,AtendenteID,ID from public.Solicitacao where Numero=? and ID=?
000000001047C973 SQL    mormot.db.sql.postgres.TSqlDBPostgresStatement(03529e20) Execute t=774.69ms c=01 r=0 q=select DataCriacao,UltimaAlteracao,EmpresaID,Numero,DataSolicitacao,Paciente,PostoID,AtendenteID,ID from public.Solicitacao where Numero='4' and ID=11
00000000104BBB97 SQL    mormot.db.sql.postgres.TSqlDBPostgresStatement(03529e20) Execute t=256.64ms c=01 r=0 q=select DataCriacao,UltimaAlteracao,EmpresaID,Numero,DataSolicitacao,Paciente,PostoID,AtendenteID,ID from public.Solicitacao where Numero='4' and ID=12
0000000014BCD30A SQL    mormot.orm.sql.TOrmVirtualTableCursorExternal(03e3b170) Search select DataCriacao,UltimaAlteracao,EmpresaID,Numero,DataSolicitacao,Paciente,PostoID,AtendenteID,ID from public.Solicitacao where Numero=? and ID=?
0000000015AC76CC SQL    mormot.db.sql.postgres.TSqlDBPostgresStatement(03529e20) Execute t=256.49ms c=01 r=1 q=select DataCriacao,UltimaAlteracao,EmpresaID,Numero,DataSolicitacao,Paciente,PostoID,AtendenteID,ID from public.Solicitacao where Numero='4' and ID=10
0000000015AC7F3C SQL    mormot.orm.sql.TOrmVirtualTableCursorExternal(03e3b170) Search select ...

and many other lines like above. with where clause that i dont send to retrieve.
then finally my return

0000000018F01559 res    mormot.db.raw.sqlite3.TSqlDatabase(035750a0) [{"rowid":1,"DataCriacao":"2024-10-10T14:21:43","UltimaAlteracao":"2024-10-24T10:04:18","EmpresaID":1,"Numero":"123","SolicitacaoID":10,"Exames":"he","DataEtiqueta":"2024-10-
...
10T18:20:00","RackID":1,"Linha":1,"Coluna":2,"Coletado":1,"Cancelada":0,"numerosolicitacao":"4","Paciente":"ana","DataSolicitacao":"2024-10-10T08:39:00"},
{"ID":9,"DataCriacao":"2024-10-10T14:21:43","Ultim... (truncated) length=7692

then I call my service again...and now it get from cache. showing that correct where  "where (amostra.empresaID = :(1):) and (s.numero = sad'4'):)"

0000000018F35FCB  -    99.053.647
0000000019A38E4D  +    mormot.rest.memserver.TRestServerFullMemory(0349b260).URI POST v1/amostraService/buscar in=232 B
0000000019C92853 SQL    mormot.db.raw.sqlite3.TSqlDatabase(035750a0) from cache  SELECT Amostra.RowID, Amostra.*, s.numero numerosolicitacao, s.paciente, s.datasolicitacao FROM Amostra  inner join Solicitacao s on (s.RowID = Amostra.solicitacaoID)  where (amostra.empresaID = :(1):) and (s.numero = :('4'):)
0000000019F70618 ret    Infra.Authentication.JWT.TRestServerURIContext_JWT(036e9b40) [{"ID":1,"DataCriacao":"2024-10-10T14:21:43","UltimaAlteracao":"2024-10-24T10:04:18","EmpresaID":1,"Numero":"123","SolicitacaoID":10,"Exames":"he","DataEtiqueta":"2024-10-10T18:20:00","RackID":1,"Linha":1,"Coluna":2,"Coletado":true,"Cancelada":false,"numerosolicitacao":"4","Paciente":"ana","DataSolicitacao":"2024-10-10T08:39:00"},{"ID":5,"DataCriacao":"2024-10-10T14:21:43","UltimaAlteracao":"2024-10-24T10:06:58","EmpresaID":1,"Numero":"125","SolicitacaoID":10,"Exames":"ad","DataEtiqueta":"2024-10-10T18:20:33","RackID":1,"Linha":1,"Coluna":1,"Coletado":true,"Cancelada":false,"numerosolicitacao":"4","Paciente":"ana","DataSolicitacao":"2024-10-10T08:39:00"},...
{"ID":8,"DataCriacao":"2024-10-10T14:21:43","UltimaAlteracao":"2024-10-31T08:18:58","EmpresaID":1,"Numero":"128","SolicitacaoID":10,"Exames":"ijiji","DataEtiqueta":"2024-10-10T18:20:00","RackID":0,"Linha":0,"Coluna":0,"Coletado":true,"Cancelada":false,"numerosolicitacao":"4","Paciente":"ana","DataSolicitacao":"2024-10-10T08:39:00"},{"ID":9,"DataCriacao":"2024-10-10T14:21:43","Ultim... (truncated) length=7692
0000000019F71039  -    05.472.748

#26 Re: mORMot 2 » Send Email » 2024-09-28 13:09:00

mrbar2000

Thanks now works. Can u explain about this change? Or by default sendmail should be ignore certificate?

#27 Re: mORMot 2 » Send Email » 2024-09-27 19:12:05

mrbar2000
ab wrote:

Does have the smtp server a valid X.509 certificate, known by the client host?

How I can verify this?
There are some other way to api server send email without this?
I i found this certificate how i configure it into mormot sendmail?
I fell me a newbie!

#28 Re: mORMot 2 » mormot implemeting RefreshToken » 2024-09-06 20:31:24

mrbar2000

Are u brazilian too? We can meet to talk about mormot and delphi and lazarus

#29 Re: mORMot 2 » Function not receiving value from json when compiled to Linux64 » 2024-09-06 17:58:11

mrbar2000

We are using FPCDeluxe to crosscompile.
What version of lazarus and of fpc we should be choose?
To compile linux and windows from windows machine!

#30 Re: mORMot 2 » I want use ORM very much but MORMOT are some restrictions » 2024-08-19 18:39:32

mrbar2000

I think you don't understand what is being proposed in this thread. The proposal is for mormot to prevent a record from being removed from the database if the record is being used by some property of another object that references this table. this will to avoid inconsistency in the database or the table that references the deleted record being set to ZERO as mormot does today.

The issue of creating the FK is just something additional to prevent the programmer from using a delete outside the ORM from also leaving the database inconsistent.

#31 Re: mORMot 2 » I want use ORM very much but MORMOT are some restrictions » 2024-08-19 12:39:34

mrbar2000

Kabiri, I undesrstand you but FKs is a great way to protect yout database against inconsistence. If mormot could grant this integrity will be great. this will remove of programmer many responsability. We know that are programmers and programmers.

#32 Re: mORMot 2 » I want use ORM very much but MORMOT are some restrictions » 2024-08-13 14:30:26

mrbar2000

Some answer to this topic Arnold?

#33 Re: mORMot 2 » Copying property values via rtti » 2024-08-13 13:55:30

mrbar2000

WAW!!!!!!!!!!!!!!!!!!!!!
Very very very thanks Arnold. This is a Great Feature to MORMOT. 10 points Gain

#34 Re: mORMot 2 » Copying property values via rtti » 2024-08-06 20:04:36

mrbar2000

Arnold have u some method similar to copy values from RecordToObject and ObjectToRecord?

#35 Re: mORMot 2 » How to make a CopyRecord in Free Pacal? » 2024-08-05 21:17:48

mrbar2000

Tnks AB

#36 mORMot 2 » I want use ORM very much but MORMOT are some restrictions » 2024-07-31 18:46:13

mrbar2000
Replies: 14

Arnold, I practically read the entire forum and you always give the same answer regarding TID null, FKs etc...
I really want to work with ORM, just like many programmers who ventured before me in trying to use mormot, I contacted some of them and they told me that they stopped using mormot's ORM precisely for the same reasons that I didn't. I want to give up.
I know that you need to keep your ORM capable of working with both SQL and NoSQL databases.
But is there any way to implement things that the orm itself can handle internally instead of having to write it in my code? Example:

I have a table in my database that looks like this:

CREATE TABLE TABELA_AB (
    CD_AB ID_NN /* ID_NN = INTEGER NOT NULL */,
    CD_A ID_NN   /* ID_NN = INTEGER NOT NULL */,
    CD_B ID_NN   /* ID_NN = INTEGER NOT NULL */,
    CD_C ID         /* ID = INTEGER ACCEPT NULL VALUES */
);
ALTER TABLE TABELA_AB ADD CONSTRAINT UNQ1_TABELA_AB  UNIQUE (CD_A, CD_B, CD_C);
ALTER TABLE TABELA_AB ADD CONSTRAINT PK_TABELAAB PRIMARY KEY (CD_AB);
ALTER TABLE TABELA_AB ADD CONSTRAINT FK_TABELA_AB_2 FOREIGN KEY (CD_A) REFERENCES TABELA_A (CD_A );
ALTER TABLE TABELA_AB ADD CONSTRAINT FK_TABELA_AB_3 FOREIGN KEY (CD_B) REFERENCES TABELA_B (CD_B );
ALTER TABLE TABELA_AB ADD CONSTRAINT FK_TABELA_AB_1 FOREIGN KEY (CD_C ) REFERENCES TABELA_C (CD_C );
TC = class(TOrm);

TCNullable = class(TC);

TTableAB = class(TOrm)
published
  A: TA;
  B: TB;
  C: TCNullable;
end;

1) Being able to define field as not null. Currently mormot creates tables without defining any field as not null other than the primary key. Even so, using orm all fields will always be filled with a certain value. unless TNullableXXX is used. My idea:
  VirtualTableExternalMap(fExternalModel,TSQLRecordPeopleExt,fProperties,'PeopleExternal')
    .SetRequired('A', True)
    .SetRequired('B', True)
Although I think this should be automatic when using the TORM field type! You store ZERO, why dont create the field with not null? Is not it?

2) Prevent deletion of a record whose primary key is being used in another table as a foreign key.
I know you've said many times that this should be controlled via business rules and such, but the programmer can always forget to do this somewhere. being in the model and the model creating the FK we do not run this risk.
I liked you ide of TClassNameRestrictID = A kind of TID that:
   - can store value as null at database if field not is on Requerid list (via SetRequired)
   - create fk automatically on databased that support this feature
   - during the update, prevent it from placing a value that does not exist in the related table.
     during the delete, prevent it from remove the record if some field fk are using this key
     this would help for nosql banks for sql banks the foreign key was created so an exception would already happen anyway.

Maybe this is difficult to implement or not, I don't know. but you don't think these implementations would help the adoption of MORMOT. If we do a poll about which database most Delphi programmers use, I'm sure there will be more people using SQL than NoSQL.
     
MapField('FieldName','FieldNameAlternative').

#37 Re: mORMot 2 » Free Pacal issues » 2024-07-31 13:15:24

mrbar2000

There are something way to store null instead 0 on Solicitacao?

0 will raise foreign key error.

I find TNullableID or TIDNullable wothout success!

#38 Re: mORMot 2 » Free Pacal issues » 2024-07-30 20:46:53

mrbar2000

pAmostras: Variant receive a int64 number => Solicitacao: 123

vAmostra.Solicitacao: TAmostra(TOrm)

How can i pass this integer as  TID to works in delphi and freepascal?

vAmostra.Solicitacao := Pointer(PtrInt(vItemAmostra.Solicitacao));

tnks

#39 mORMot 2 » Free Pacal issues » 2024-07-30 19:19:43

mrbar2000
Replies: 5

I'm finding some errors when try to compile my project in FPC.

function TAmostraService.InsertMany(pAmostras: variant): TServiceCustomAnswer;
var
  vListaAmostras: IDocList;
  vItemAmostra: variant;
  vAmostra: TAmostra;
begin
  vAmostra := TAmostra.Create;
  try
    // delphi compiles, fpc no (Sorotrack.AmostraService.pas(339,23) Error: Can't determine which overloaded function to call)
    vListaAmostras := DocListFrom(pAmostras.amostras);
    for vItemAmostra in vListaAmostras do
    begin
      // delphi compiles, fpc no. what do do? Sorotrack.AmostraService.pas(343,38) Error: Incompatible types: got "OleVariant" expected "UTF8String"
      vAmostra.Numero := vItemAmostra.Numero;
      // delphi compiles, fpc no. what do do?
      // Sorotrack.AmostraService.pas(347,31) Error: Incompatible types: got "Pointer" expected "TSolicitacao"
      vAmostra.Solicitacao := Pointer(PtrInt(vItemAmostra.Solicitacao));
      vAmostra.Exames := vItemAmostra.Exames;
      vAmostra.DataEtiqueta := vItemAmostra.DataEtiqueta;
      vAmostra.Empresa := Pointer(PtrInt(CurrentUserCompany));
      Result := Add(vAmostra);
    end;
  finally
   vAmostra.Free;
  end;
end;

I've alredy read at the documentacion the part about FPC Clients here:  https://synopse.info/files/html/Synopse … m*%20units , but it didn't works for me. Can someone help me with this issues?

#40 Re: mORMot 1 » Foreign Key "0" and not "null" » 2024-07-24 14:22:30

mrbar2000
ab wrote:

Putting to zero should still be done AFTER the main deletion, to detect any failure of it.

Do you intend to make this change soon (without pressuring you)?

If I'm not going to do it now, I can try to implement it and pass it on to you. I don't know the mormot sources very well but I can follow the same steps you did in AfterDeleteForceCoherency

I was thinking here, unless you want to treat the restrict at the orm level, you would only need the RESTRICT field type to create the foreign key in the database.
If I create it at ORM level, I would still create the foreign key to avoid incorrect data in the database due to some statement that the programmer executes (INSERT OR UPDATE) outside the ORM.

#41 Re: mORMot 1 » Foreign Key "0" and not "null" » 2024-07-24 04:23:57

mrbar2000
ab wrote:

So I guess you expect to refuse the deletion if the ID is used somewhere else?
Some kind of "ON DELETE RESTRICT" to raise an error when Delete() is called with some existing reference in other tables?

Yeah this is very necessary to many of us that work with relational databases.

ab wrote:

We would need to add TOrm*RestrictID field type name detection, and TRecordReferenceRestrict field, similar to TOrm*ToBeDeletedID and TRecordReferenceToBeDelete.

Yeah xxxRestrictID would be great. and this field types could create automatically that foreign key if not exists.

Finally foreign key on mormot >:)

I think that maybe whould be necessary remove AfterDeleteForceCoherency and put a BeforeDeleteForceCoherency to treat XXXRestrictID XXXToBeDeletedID  XXXToBeDeletedIDSetNull or XXXToBeDeletedIDSetZero. just ideas!!!

#42 Re: mORMot 2 » Connection failed » 2024-07-24 04:00:12

mrbar2000

I know, i dont want send detailed error information to a client, but i need show something. client need know the cause to not delete or update or insert the record.

There are some event or a method that can i should override to treat whatever type of exception on rest service?

#43 Re: mORMot 1 » Foreign Key "0" and not "null" » 2024-07-23 12:56:24

mrbar2000

Hy AB,

to try to guarantee the integrity of the data, since there is no foreign key support yet, couldn't there be something that could be done before calling
result := inherited Delete(Table,ID); // call EngineDelete
to check if this id is being used in another TOrm? thus preventing deletion?

Something like BeforeDeleteForceCoherency(Table,ID);

#44 Re: mORMot 2 » Connection failed » 2024-07-23 12:16:26

mrbar2000

Sorry, I didn't ask the proper question.
The error appears in the log:

0000000044FC141D EXC    ESqlDBPostgres {Message:"TSqlDBPostgresLib Exec failed: 23503 [ERROR:  update or delete on table \"empresa\" violates foreign key constraint \"fk_posto_01\" on table \"posto\"\nDETAIL:  Key (id)=(1) is still referenced from table \"posto\".\n]",Statement:null} [TAppRestHttpSrv 8081v1 THttpSrv] at ad04c1

But this error cannot be caught by a try except in my application.

function TServiceBase.Delete(pOrmClass: TOrmClass; pId: Int64): TServiceCustomAnswer;
var
  vErros: RawUtf8;
begin
  if not GlobalRepository.Delete(pOrmClass, pId, vErros) then
    Result := ReturnCannotDeleteRecord(StringToUtf8(vErros), HTTP_BADREQUEST);
end;

....

function TRepository.Delete(pOrmClass: TOrmClass; pId: Int64; var pErros: RawUTF8): Boolean;
begin
  pErros := EmptyStr;
  try
    Result := FRestOrm.MemberExists(pOrmClass, pId)
      and FRestOrm.Delete(pOrmClass, pId);   <<<<< into here generate exception
  except on E: Exception do
    begin
      Result := False;     <<<<<<<<   never quick here
      pErros := E.Message;
    end;
  end;
end;

How to capture this error message so you can send on TServiceCustomAnswer?

I looked through the code and documentation and didn't find in IRestORM or any other class that had an event or property with LastError

#45 Re: mORMot 2 » Connection failed » 2024-07-22 21:39:38

mrbar2000

Tnks AB.

There are something midleware on momot to exception´s treatment?

My client Rest receive:

{
    "errorCode": 400,
    "errorText": "Bad Request"
}


I whould like receive errorText with real information or treat it before return to rest client.

#46 Re: mORMot 2 » Connection failed » 2024-07-22 13:01:19

mrbar2000

AB,

I found the error, but why it dont appear on message box?

erro

tnks.

#47 mORMot 2 » Connection failed » 2024-07-19 21:44:15

mrbar2000
Replies: 9

I'm trying to creat a postgres connection using this:

function TRepository.ConnectionClass(pDBConnection: TSqlDBConnectionPropertiesClass): IRepository;
begin
  Result := Self;
  FConfigDB := pDBConnection.Create(FHost, FDatabase, FUser, FPassword);
  VirtualTableExternalRegisterAll(FOrmModel, FConfigDB);
  FOrmModel.Props[TAmostra].ExternalDB.MapField('Solicitacao', 'IdSolicitacao');
  FRestOrm := TRestServerDB.Create(FOrmModel, SQLITE_MEMORY_DATABASE_NAME);
  FRestOrm.DB.Synchronous := smOff;
  FRestOrm.DB.LockingMode := lmExclusive;
  FRestOrm.Server.CreateMissingTables;
  FRestOrm.Server.CreateSqlMultiIndex(TAmostra, ['empresa', 'numero'], true, 'sk_amostra_01');
  FRestOrm.Server.CreateSqlMultiIndex(TSolicitacao, ['empresa', 'numero'], true, 'sk_solicitacao_01');
  FRestOrm.Server.TrackChanges([TEmpresa, TUsuario, TAmostra,
    TRack, TEvento], TMyHistory, 100, 10, 65536);
end;

But it's returning an error: Project SorotrackAPI.exe raised exception class ESqlDBPostgres with message 'TSqlDBPostgresLib' Exec failed '. Can someone help me to find what's wrong?

#48 Re: mORMot 2 » Where do I start? » 2024-07-08 19:07:46

mrbar2000
ab wrote:

If the field names do match, you can just fill the TBaby record from JSON, directly from the DB, with no transient TOrmBaby.

What Orm´s Method I can use for this?
My TDTOBaby is a packet record! I just see ORM.RetriveXXX(passing TORMClass)
Can you show a simple sample?

#49 Re: mORMot 2 » Where do I start? » 2024-07-05 20:43:52

mrbar2000

When you told:

Create ORM classes just to interact with the database.
Create another layer of classes (DTO) for your api or business rules...

Means that i have to read the objects to TOrmObjects and manually transport the data to the DTO records?

sample:

In someplace of my apy i need get a baby then a call the repository. with the repository pattern I can isolate the orm of all my application (Clean Code)

procedure TBabyRepository.GetBaby(pID: Int64; var pDTOBaby: TDTOBaby);
var 
  Baby: TSQLBaby;   // store a record
begin
  Baby := TSQLBaby.Create;
  try
    TRestDB.Retrieve(pID, Baby);

    // transpose to DTO, TRestServerFullMemory can return to client
    pDTOBaby.ID := Baby.Id;
    pDTOBaby.Name := Baby.Name;
    pDTOBaby.Address := Baby.Address;
    pDTOBaby.BirthDate := Baby.BirthDate;
    pDTOBaby.Sex := Baby.Sex;    

  finally
    Baby.Free;
  end;
end;

this translate can be very slow approach depending!

I can do this of other way?

#50 mORMot 2 » mormot implemeting RefreshToken » 2024-05-14 21:25:59

mrbar2000
Replies: 3

Mormot treat /Auth route. Could it treat /RefreshToken too?

and call virtual method on registred CustomAutentication?

Pages: 1 2 3

Board footer

Powered by FluxBB