133 lines
3.7 KiB
Plaintext
133 lines
3.7 KiB
Plaintext
{
|
|
$Project$
|
|
$Workfile$
|
|
$Revision$
|
|
$DateUTC$
|
|
$Id$
|
|
|
|
This file is part of the Indy (Internet Direct) project, and is offered
|
|
under the dual-licensing agreement described on the Indy website.
|
|
(http://www.indyproject.org/)
|
|
|
|
Copyright:
|
|
(c) 1993-2005, Chad Z. Hower and the Indy Pit Crew. All rights reserved.
|
|
}
|
|
{
|
|
$Log$
|
|
}
|
|
{
|
|
Rev 1.1 2004.02.03 5:44:18 PM czhower
|
|
Name changes
|
|
|
|
Rev 1.0 11/13/2002 08:00:40 AM JPMugaas
|
|
|
|
Base class for any mechanism that needs a username/password.
|
|
This links to a TIdUserPassProvider to allow application programmers
|
|
to only set the username/password once, instead of having to set it for
|
|
all SASL mechanisms they might want to use.
|
|
}
|
|
|
|
unit IdSASLUserPass;
|
|
|
|
interface
|
|
|
|
{$i IdCompilerDefines.inc}
|
|
|
|
uses
|
|
Classes,
|
|
IdSASL, IdUserPassProvider, IdBaseComponent,
|
|
IdException;
|
|
|
|
type
|
|
TIdSASLUserPass = class(TIdSASL)
|
|
protected
|
|
{$IFDEF USE_OBJECT_ARC}[Weak]{$ENDIF} FUserPassProvider: TIdUserPassProvider;
|
|
procedure SetUserPassProvider(const Value: TIdUserPassProvider);
|
|
{$IFNDEF USE_OBJECT_ARC}
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
{$ENDIF}
|
|
function GetUsername: string;
|
|
function GetPassword: string;
|
|
public
|
|
function IsReadyToStart: Boolean; override;
|
|
published
|
|
property UserPassProvider: TIdUserPassProvider read FUserPassProvider write SetUserPassProvider;
|
|
end;
|
|
|
|
EIdUserPassProviderUnassigned = class(EIdException);
|
|
|
|
implementation
|
|
uses IdResourceStringsProtocols;
|
|
|
|
{ TIdSASLUserPass }
|
|
|
|
function TIdSASLUserPass.GetPassword: string;
|
|
var
|
|
// under ARC, convert a weak reference to a strong reference before working with it
|
|
LUserPassProvider: TIdUserPassProvider;
|
|
begin
|
|
LUserPassProvider := FUserPassProvider;
|
|
if Assigned(LUserPassProvider) then begin
|
|
Result := LUserPassProvider.Password;
|
|
end else begin
|
|
raise EIdUserPassProviderUnassigned.Create(RSUnassignedUserPassProv);
|
|
end;
|
|
end;
|
|
|
|
function TIdSASLUserPass.GetUsername: string;
|
|
var
|
|
// under ARC, convert a weak reference to a strong reference before working with it
|
|
LUserPassProvider: TIdUserPassProvider;
|
|
begin
|
|
LUserPassProvider := FUserPassProvider;
|
|
if Assigned(LUserPassProvider) then begin
|
|
Result := LUserPassProvider.Username;
|
|
end else begin
|
|
raise EIdUserPassProviderUnassigned.Create(RSUnassignedUserPassProv);
|
|
end;
|
|
end;
|
|
|
|
function TIdSASLUserPass.IsReadyToStart;
|
|
var
|
|
// under ARC, convert a weak reference to a strong reference before working with it
|
|
LUserPassProvider: TIdUserPassProvider;
|
|
begin
|
|
LUserPassProvider := FUserPassProvider;
|
|
if Assigned(LUserPassProvider) then begin
|
|
Result := (LUserPassProvider.Username <> '');
|
|
end else begin
|
|
Result := False;
|
|
end;
|
|
end;
|
|
|
|
// under ARC, all weak references to a freed object get nil'ed automatically
|
|
{$IFNDEF USE_OBJECT_ARC}
|
|
procedure TIdSASLUserPass.Notification(AComponent: TComponent; Operation: TOperation);
|
|
begin
|
|
if (Operation = opRemove) and (AComponent = FUserPassProvider) then begin
|
|
FUserPassProvider := nil;
|
|
end;
|
|
inherited Notification(AComponent, Operation);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
procedure TIdSASLUserPass.SetUserPassProvider(const Value: TIdUserPassProvider);
|
|
begin
|
|
{$IFDEF USE_OBJECT_ARC}
|
|
// under ARC, all weak references to a freed object get nil'ed automatically
|
|
FUserPassProvider := Value;
|
|
{$ELSE}
|
|
if FUserPassProvider <> Value then begin
|
|
if Assigned(FUserPassProvider) then begin
|
|
FUserPassProvider.RemoveFreeNotification(Self);
|
|
end;
|
|
FUserPassProvider := Value;
|
|
if Assigned(Value) then begin
|
|
Value.FreeNotification(Self);
|
|
end;
|
|
end;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
end.
|