mORMot Open Source

I understand that I have to do to override TRecord.Validate class, as well I did. In fact I intend to do a review of the field "name" persona table, it not accepted short description.

I'm using as a basis the project "30 - MVC Server" -> MVCServer.dpr

The following model code.   What else to do?

 unit RESTModel;

interface

uses
  SynCommons,
  mORMot;

type
  TPersona = class(TSQLRecord) // TSQLRecord has already ID: integer primary key
  private
    fName: RawUTF8;
  public
    function Validate(aRest: TSQLRest; const aFields: TSQLFieldBits=[0..MAX_SQLFIELDS-1];
      aInvalidFieldIndex: PInteger=nil; aValidator: PSynValidate=nil): string; override;
  published
    /// ORM will create a NAME VARCHAR(80) column
    property Name:     RawUTF8 index 80 read fName     write fName;
  protected
  end;

function DataModel: TSQLModel;

const
  SERVER_ROOT = 'root';
  SERVER_PORT = '888';

implementation

function TPersona.Validate(aRest: TSQLRest; const aFields: TSQLFieldBits=[0..MAX_SQLFIELDS-1];
      aInvalidFieldIndex: PInteger=nil; aValidator: PSynValidate=nil): string;
var text :String;
begin
  text := '';
  // pseudo code
  if length(name)<=5 then
    text := '{"error":"should be above 5 characters"}';
  result := UTF8ToString(text);
end;

function DataModel: TSQLModel;
begin
  result := TSQLModel.Create([TPersona],SERVER_ROOT);
  
  TPersona.AddFilterOrValidate('Name',TSynValidateText.Create('{"minlength": 5}'));
end;


end.

I tried this code, also did not work, was recorded in the database with two characters

function DataModel: TSQLModel;
begin
  result := TSQLModel.Create([TPersona],SERVER_ROOT);
  TPersona.AddFilterOrValidate('Name',TSynValidateText.Create('{"minlength": 5, "MaxLength": 10}'));
end;

even putting this check is writing to the database, presenting no error.

function DataModel: TSQLModel;
begin
  result := TSQLModel.Create([TPersona],SERVER_ROOT);
  TPersona.AddFilterOrValidate('Name',TSynValidateText.Create(''));
end;

how can I use {"minlength": 5, "MaxLength": 10} in TSynValidateText, which syntax.

I will test with Delphi xe5.

with MVCServer.dpr project have these errors:

MVCModel.pas(380,20) Error: Incompatible types: got "Pointer" expected "TPUtf8CharArray"
380,20 ====> fResults[f] := pointer(fFields[f]);

MVCModel.pas(387,36) Error: Incompatible types: got "PUTF8Char" expected "TPUtf8CharArray"
387,36 ====> fResults[r*fFieldCount+f] := P;

MVCModel.pas(541,80) Error: Incompatible type for arg no. 6: Got "<address of function(Pointer;Pointer):LongInt;Register>", expected "<procedure variable type of function(PUTF8Char;PUTF8Char):LongInt;Register>"
541,80 ====> AddSortedRawUTF8(tags,tagsCount,tagTable.GetU(r,meta_id),nil,-1,@StrIComp);

MVCModel.pas(579,77) Error: Incompatible type for arg no. 4: Got "<address of function(Pointer;Pointer):LongInt;Register>", expected "<procedure variable type of function(PUTF8Char;PUTF8Char):LongInt;Register>"
579,77 ====> pointer(tags),high(tags),tagTable.FieldBuffer(meta_id),@StrIComp);