DelphiXE10.2.3で多言語対応のCAPTCHA画像生成コンポーネントを実装する
unit uCaptchaGenerator;
interface
uses
System.Classes, System.SysUtils, FMX.Types, FMX.Objects, FMX.Graphics,
System.UIConsts, System.UITypes, System.Types;
type
TCaptchaGenerator = class
private const
CharSet: array[0..34] of Char = (
'1','2','3','4','5','6','7','8','9',
'A','B','C','D','E','F','G','H','I',
...
7月11日 23:35 投稿