Difference between revisions of "Unit Authentication"

Revision as of 01:00, 27 April 2018

@@ Line 39: / Line 39: @@
 |-
 | [[TAuthenticator|<code>TAuthenticator = class(TObject)</code>]]
-| style="width: 40%;"|
 |-
 |}
@@ Line 45: / Line 44: @@
 |-
 | <code>TNullAuthenticator = class(TAuthenticator)</code>
-| style="width: 40%;"|
 |-
 |}

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TCriticalSectionHandle;`

`FFlags:LongWord;`

`procedure SetFlags(AFlags:LongWord);`
protected
`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`
public
`property Flags:LongWord read FFlags write SetFlags;`

`function UsernamePrompt:String; virtual;`
`function PasswordPrompt(const AUsername:String):String; virtual;`

`function CheckUsername(const AUsername:String):LongWord; virtual;`
`function CheckPassword(const AUsername,APassword:String):LongWord; virtual;`

Note: An authenticator module that accepts any username and password.

public
`function UsernamePrompt:String; override;`
`function PasswordPrompt(const AUsername:String):String; override;`

`function CheckUsername(const AUsername:String):LongWord; override;`
`function CheckPassword(const AUsername,APassword:String):LongWord; override;`