InraPorc

unit UFConnect;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, JvComponentBase, JvComputerInfoEx, JvExStdCtrls,

  JvEdit, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,

  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

  IdExplicitTLSClientServerBase, IdMessageClient, IdIMAP4;

type

  TFConnect = class(TForm)

    ComputerInfo: TJvComputerInfoEx;

    LLogin: TLabel;

    LPasswd: TLabel;

    ELogin: TEdit;

    BBOk: TBitBtn;

    BBCancel: TBitBtn;

    EPasswd: TJvEdit;

    LError: TLabel;

    IMAP4: TIdIMAP4;

    OpenSSL_IMAP4: TIdSSLIOHandlerSocketOpenSSL;

    procedure FormShow(Sender: TObject);

    procedure BBOkClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FConnect: TFConnect;

implementation

{$R *.dfm}

uses

  UFMenu;

procedure TFConnect.BBOkClick(Sender: TObject);

begin

  FMenu.EUsername.Text := ELogin.Text;

  FMenu.EPassword.Text := EPasswd.Text;

  with IMAP4 do

  begin

    Host := IMAP_SERVER;

    Username := 'INRA\' + ELogin.Text + '\' + EXCHANGE_SHARED_MAILBOX;

    Password := EPasswd.Text;

  end;

  try

    IMAP4.Connect;

  except

    LError.Caption := 'Login ou mot de passe incorrect';

    ModalResult := mrNone;

    Exit;

  end;

  IMAP4.Disconnect;

  if (ELogin.Text <> 'avalancogne')

  and (ELogin.Text <> 'jvanmilgen')

  and (ELogin.Text <> 'jydourmad')

  and (ELogin.Text <> 'lbrossard') then

  begin

    LError.Caption := 'Utilisateur non autoris?';

    ModalResult := mrNone;

    Exit;

  end;

  FMenu.EAdmin.Text := ELogin.Text;

end;

procedure TFConnect.FormShow(Sender: TObject);

begin

  ELogin.Text := ComputerInfo.Identification.LocalUserName;

end;

end.