Indy/Lib/Source/IdSASLUserPass.pas

{
  $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
    {$IF DEFINED(HAS_UNSAFE_OBJECT_REF)}[Unsafe]
    {$ELSEIF DEFINED(HAS_WEAK_OBJECT_REF)}[Weak]
    {$IFEND} FUserPassProvider: TIdUserPassProvider;
    //
    {$IFDEF USE_OBJECT_REF_FREENOTIF}
    procedure SetUserPassProvider(const Value: TIdUserPassProvider);
    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 {$IFDEF USE_OBJECT_REF_FREENOTIF}SetUserPassProvider{$ELSE}FUserPassProvider{$ENDIF};
  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 <> '') or (LUserPassProvider.Password <> '');
  end else begin
    Result := False;
  end;
end;

// under ARC, all weak references to a freed object get nil'ed automatically
{$IFDEF USE_OBJECT_REF_FREENOTIF}
procedure TIdSASLUserPass.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if (Operation = opRemove) and (AComponent = FUserPassProvider) then begin
    FUserPassProvider := nil;
  end;
  inherited Notification(AComponent, Operation);
end;

procedure TIdSASLUserPass.SetUserPassProvider(const Value: TIdUserPassProvider);
begin
  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;
end;
{$ENDIF}

end.