datavalidator下载 - datavalidator源代码下载

datavalidator

DataValidator设计为简单的数据验证库。

安装

使用Boss在项目上安装：

$ boss install github.com/dliocode/datavalidator

手动安装

在项目>选项> Delphi编译器>搜索路径中添加以下文件夹

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

样品

查看一些示例：样本

如何使用

必要的用途

 uses DataValidator;

验证类型

值
JSON

值

在值模式下，将在验证中获取的值是将要分析的！

 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

在JSON模式下，应告知验证是JSON钥匙的名称！
如果使用任何消毒剂，则将修改JSON中的值！

 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;

信息

检查差异

检查：检查所有的恶意，但是如果有一个错误的返回项目，它会中断，如果有的话，请返回带有错误的单个消息！
CheckAll ：检查所有验证，如果有的话，请返回所有消息，并带有错误！

使用CheckAll(TDataValidatorCheckAll.tcFirst)它仅返回每个validate的第一个错误消息。

如何知道是否有错误

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

如何错误地恢复消息

    Result := LResult.Informations.Message;

如何恢复单个错误消息

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

如何恢复错误量

    Result := LResult.Informations.Count;

如何恢复分析的值

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

模式验证

这是一种创建验证骨架并能够在其他验证中重复使用的方法。

 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.

消毒剂

消毒剂是对价值的处理。
示例：消毒剂MD5：乘坐验证值并转换为MD5

 TDataValidator.Values

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

特殊验证者

姓名	信息
不是	使用此验证器时，它会拒绝验证器结果。例如：验证（“电子邮件”）。＆not.sempty 据了解，该值不应为空。
跑步	定义如果该验证不通过验证，应执行的操作。此过程的执行是手动形式。前任： checkall.informations.getItem（0）.onexecute;
使用	定义错误消息。要将验证的值添加到消息中，只需添加$ {value}标签即可。例如： isemail.withMessage（'电子邮件$ {value}无效！'）。 `output: E-mail null@@null está inválido!`

验证者 /消毒剂

验证值	验证JSON（键/值）	价值的消毒剂
CustomValue	（钥匙）	定制器
包含	（钥匙）ISEREQUIRD	正常邮件
末日	（值）CustomJsonValue	只有名字
伊斯帕	（value）isjsjonnull	删除
异脑数	（值）Isjsonboolean	代替
isacii	（value）iSjsonnumeric	TOBASE64DECODE
ISBASE32	（value）ISJSustring	tobase64encode
ISBASE58	（价值）Minemtes	全部
ISBASE64	（值）最大值	全部
之间	（值） +值验证	tohtmldecode
Isboolean		tohtmlencode
ISBTCADDRESS		Tointeger
iscnpj		tolowercase
ISCPF		tomd5
ISCPFCNPJ		肿瘤
ISDATE		time
之间		touppercase
ISDATEQUALS		Tourldecode
isdategretethan		Tourlencode
Isdatelesthan		修剪
iSdateTime		trimleft
ismail		特里奇
Ismpty
quesquals
Isethereumaddress
isgaterthan
isgtin
isgtin8
ISGTIN12
ISGTIN13
ISGTIN14
ishexadecimal
ishexcolor
Isinteger
ISIP
ISIPV4
ISIPV6
ISISO8601
ISJSON
Isjsonarray
isjsonObject
ISJWT
伊斯兰
islength
Islessthan
islocale
等级
ismacaddress
ismagneturi
ISMD5
ISMIMETYPE
ismongoid
静止
数字
Isootal
异类
ispassportnumber
iSphoneNumber
ISPORT
等值
IspostalCode
isrgbcolor
ISSSN
是时间
Istimebeteween
是TimeEquals
ISTimeGreatethan
Istimelesthan
ISHOPERCASE
伊恩
ISUUID
ISUUIDV1
ISUUIDV2
ISUUIDV3
ISUUIDV4
ISUUIDV5
ISZERO
Regexismatch
Startswith