datavalidator

Datavalidator

DataValidator est conçu pour être une simple bibliothèque de validation des données.

Support: dé[email protected]

Installation

Pour installer sur votre projet en utilisant le boss:

$ boss install github.com/dliocode/datavalidator

Installation manuelle

Ajoutez les dossiers suivants à votre projet, dans Project> Options> Compiler Delphi> Chemin de recherche

 ../datavalidator/src/core
../datavalidator/src/sanitializators
../datavalidator/src/validators

Échantillons

• Voir quelques exemples: échantillons

Comment utiliser

Utilisations nécessaires

 uses DataValidator;

Types de validation

• VALEURS
• Json

VALEURS

• En mode valeurs, la valeur éclairée dans le validate est ce qui sera analysé!

 var
  LResult: IDataValidatorResult;
begin
  LResult :=  

  TDataValidator.Values

  .Validate('APELIDO')
      .Trim
      .&Not.IsEmpty.WithMessage('Você não informou o seu apelido!')
      .IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('Seu apelido deve conter apenas letras!')
      .IsLength(1, 10).WithMessage('O apelido deve ter no máximo 10 caracteres!')
  .&End

  .Validate('[email protected]')
      .Trim
      .&Not.IsEmpty.WithMessage('Você não informou o seu e-mail!')
      .IsEmail.WithMessage('Não é um e-mail válido!')
      .NormalizeEmail
  .&End

  .Check;  

Json

• En mode JSON, ce qui devrait être informé Valider est le nom de la clé de JSON!
• Si un désinfectant est utilisé, la valeur dans JSON sera modifiée!

 var
  LJO: TJSONObject;
  LResult: IDataValidatorResult;
begin
  LJO := TJSONObject.ParseJSONValue('{"apelido":"DLIO", "email":"[email protected]"}') as TJSONObject;

  LResult :=  

    TDataValidator.JSON(AJO)

    .Validate('apelido')
      .Value
        .Trim
        .&Not.IsEmpty.WithMessage('Você não informou o seu apelido!')
        .IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('Seu apelido deve conter apenas letras!')
        .IsLength(1, 10).WithMessage('O apelido deve ter no máximo 10 caracteres!')
      .&End        
    .&End

    .Validate('email')
      .Value
        .Trim
        .&Not.IsEmpty.WithMessage('Você não informou o seu e-mail!')
        .IsEmail.WithMessage('Não é um e-mail válido!')
        .NormalizeEmail
      .&End      
    .&End

    .Validate('login')
      .Key // Faz a validação somente da key
        .IsRequired.WithMessage('É obrigatório ter a Key "login" no JSON.')
      .&End

      .Value // Faz a validação somente do valor dentro da Key 'login'
        .Trim
        .&Not.IsEmpty.WithMessage('Você não informou o login!')
        .IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('Seu login deve conter apenas letras!')
        .IsLength(1, 10).WithMessage('O login deve ter no máximo 10 caracteres!')
      .&End      
    .&End

    .Validate('nome')
      .Key
        .IsOptionalKey // É opcional - se existir a Key "nome" ele faz a validação
      .&End  

      .Value      
        .Trim
        .&Not.IsEmpty.WithMessage('Você não informou o nome!')
        .IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('Seu nome deve conter apenas letras!')
        .IsLength(1, 10).WithMessage('O nome deve ter no máximo 10 caracteres!')
      .&End      
    .&End

    .CheckAll;

Information

Vérifiez et vérifiez la différence

• Vérifiez : vérifiez tout le validation , mais s'il y a un faux élément de retour, il interrompt, renvoyant un seul message avec erreur si vous avez!

• CheckAll : Vérifiez tout le validation , renvoyant tous les messages avec erreur si vous en avez!
  

En utilisant le CheckAll(TDataValidatorCheckAll.tcFirst) il ne renvoie que le premier message d'erreur de chaque validate .

Comment savoir s'il y avait une erreur

    Result := LResult.Ok; // True = Nenhum erro | False = Tem erro

Comment récupérer le message avec erreur

    Result := LResult.Informations.Message;

Comment récupérer un seul message d'erreur

    Result := LResult.Informations.GetItem(0).Message;

Comment récupérer le montant des erreurs

    Result := LResult.Informations.Count;

Comment récupérer la valeur analysée

    Result := LResult.Values[0]; // Recupera o primeiro valor

Validation du schéma

• C'est un moyen de créer un squelette de validation et de pouvoir réutiliser d'autres validations.

 function SchemaNome(const AField: string): IDataValidatorSchemaContext;
begin
  Result :=
  TDataValidator.Schema
    .Validate
      .Trim
      .&Not.IsEmpty.WithMessage('Preencha o campo %s !', [AField]) // Não pode ser vazio
      .IsLength(2, 10).WithMessage('O campo %s deve conter entre 2 a 10 caracteres!', [AField])
      .IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('O campo %s possui caracteres inválidos!', [AField])
    .&End;
end;

function SchemaEmail(const AField: string): IDataValidatorSchemaContext;
begin
  Result :=
  TDataValidator.Schema
    .Validate
      .Trim
      .&Not.IsEmpty.WithMessage('O %s não pode ser vazio!',[AField])
      .IsLength(2, 999).WithMessage('O campo %s deve ter mais de 6 caracteres!', [AField])
      .IsEmail.WithMessage('Não é um %s válido!',[AField])
      .NormalizeEmail
    .&End;
end;

begin
  TDataValidator.Values

  .Validate(ANome)
    .AddSchema(SchemaNome('Nome'))
  .&End

  .Validate(AApelido)
    .AddSchema(SchemaNome('Apelido'))
    .IsUppercase.WithMessage('O apelido (${value}) deve ser digitado tudo em maiúscula!') // Add outra validação    
  .&End

  .Validate(AEmail)
    .AddSchema(SchemaEmail('E-mail'))
  .&End

  .Validate(AEmailConfirmacao)
    .AddSchema(SchemaEmail('E-mail de confirmação'))
  .&End

  .CheckAll;  
end.

Désinfectants

• Le désinfectant est le traitement d'une valeur.

• Exemple: désinfectants MD5: prenez la valeur valide et convertissez en MD5

 TDataValidator.Values

  .Validate('APELIDO')
    .ToMD5
  .&End

Validateurs spéciaux

Nom	Information
Pas	Lorsqu'il est utilisé ce validateur, il nie le résultat du validateur. Ex: valider ('e-mail'). & Not.isempty Il est entendu que la valeur ne devrait pas être vide.
Courir	Définit ce qui doit être effectué si ce validate ne transmet pas la validation. L'exécution de cette procédure est une forme manuelle. Ex: Checkall.informations.getItem (0) .Onexecute;
Withmessage	Définit le message d'erreur. Pour ajouter la valeur validée au message, ajoutez simplement la balise $ {valeur} . Ex: iSemail.WithMessage ('Email $ {valeur} est invalide!') . output: E-mail null@@null está inválido!

Validateurs / désinfectants

Validation des valeurs	Validation JSON (clé / valeur)	Désinfectants pour les valeurs
CustomValue	(Clé)	Personnalisateur
Contient	(Clé) est réduit	Normaliseeemail
Mettre fin à	(Valeur) CustomJsonValue	Seulement les nombres
Isalpha	(Valeur) Isjsjonnull	RemoveAccents
Isalphanumérique	(Valeur) Isjsonboolean	Remplacer
Isacii	(Valeur) IsjsonNumeric	Tobase64decode
IsBase32	(Valeur) ISJSONSTRING	Tobase64encode
ISBASE58	(Valeur) Minemtes	Tous
IsBase64	(Valeur) Maxites	Tout -atetime
Entre les deux	(Valeur) + validation pour les valeurs	Tohtmldecode
Isboolean		Tohtmlencode
ISBTCADdress		Tointeger
Iscnpj		Tolowercase
Iscpf		Tomd5
Iscpfcnpj		Tonumérique
Isdate		Total
Entre les deux		Touppercase
Isdatequals		TourldeCode
IsdateGretethan		Tourlencode
Isdatesthan		Garniture
Isdatetime		Trimleft
Ismail		Brillant
Ismpy
Isolé
Isethereumaddress
Isgaterthan
Isgtin
Isgtin8
Isgtin12
Isgtin13
Isgtin14
Ishexadécimal
Ishexcolor
IsInteger
Isip
Isipv4
Isipv6
Isiso8601
Isjson
IsjsonArray
IsjsonObject
Isjwt
Islatlong
IsLength
Inslesshan
Islocale
Islowercase
Ismacaddress
Ismagneturi
ISMD5
Ismimetype
Ismongoïde
Isnafative
Isnomérique
Isootal
Isocal
IspassportNumber
ISphonenumber
ISport
Isapitif
ISpostalcode
Isrgbcolor
Isssn
Istime
Istime-Between
Istimeequals
Istimedrereatrethan
Istimelesthan
Isuppercercase
Isur
Isuuide
ISUUIDV1
ISUUIDV2
ISUUIDV3
ISUUIDV4
ISUUIDV5
Iszero
Rejette
Startwith