InraPorc

unit UFAgreement;

interface

uses

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

    Dialogs, StdCtrls, Buttons, IdMessage, IdBaseComponent, IdComponent,

    IdTCPConnection, IdTCPClient, IdMessageClient, IdAttachmentFile, IdSMTP,

    IniFiles, DateUtils, IdExplicitTLSClientServerBase, IdSMTPBase, IdIMAP4,

  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

type

  TFAgreement = class(TForm)

    MObservations: TMemo;

    CBLicenseNumber: TComboBox;

    BBNext: TBitBtn;

    LFirstName: TLabel;

    LLastName: TLabel;

    LCompany: TLabel;

    EFirstName: TEdit;

    ELastName: TEdit;

    ECompany: TEdit;

    LLicenseNumber: TLabel;

    SMTP: TIdSMTP;

    MKey: TIdMessage;

    IMAP4: TIdIMAP4;

    OpenSSL_IMAP4: TIdSSLIOHandlerSocketOpenSSL;

    OpenSSL_SMTP: TIdSSLIOHandlerSocketOpenSSL;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure CBLicenseNumberChange(Sender: TObject);

    procedure BBNextClick(Sender: TObject);

  private

    { D?clarations priv?es }

    procedure ClearAgreement;

  public

    { D?clarations publiques }

  end;

var

  FAgreement: TFAgreement;

implementation

uses

  UFMenu;

{$R *.dfm}

procedure TFAgreement.FormCreate(Sender: TObject);

begin

  Top := 0;

  Left := 0;

  with IMAP4 do

  begin

    Host := IMAP_SERVER;

//    Username := EXCHANGE_USERNAME + '\' + EXCHANGE_SHARED_MAILBOX;

    Username := 'INRA\' + FMenu.EUsername.Text + '\' + EXCHANGE_SHARED_MAILBOX;

//    Password := EXCHANGE_PASSWORD;

    Password := FMenu.EPassword.Text;

  end;

  with SMTP do

  begin

    Host := SMTP_SERVER;

//    Username := EXCHANGE_USERNAME;

    Username := 'INRA\' + FMenu.EUsername.Text;

//    Password := EXCHANGE_PASSWORD;

    Password := FMenu.EPassword.Text;

  end;

end;

procedure TFAgreement.FormShow(Sender: TObject);

begin

  CBLicenseNumber.Clear;

  with FMenu.TLicense do

  begin

    First;

    while not Eof do

    begin

      if (FieldByName('Validity').AsBoolean = False)

      then

        CBLicenseNumber.Items.Add(FieldByName('LicenseNumber').AsString);

      Next;

    end;

  end;

  ClearAgreement;

end;

procedure TFAgreement.CBLicenseNumberChange(Sender: TObject);

begin

  if CBLicenseNumber.ItemIndex = -1 then Exit;

  with FMenu.TLicense do

  begin

    FindKey([CBLicenseNumber.Text]);

    EFirstName.Text := FieldByName('FirstName').AsString;

    ELastName.Text := FieldByName('LastName').AsString;

    ECompany.Text := FieldByName('Company').AsString;

  end;

  BBNext.Enabled := True;

end;

procedure TFAgreement.BBNextClick(Sender: TObject);

var

  f: TIniFile;

  StrMessage: TStrings;

begin

  FMenu.MLog.Lines.Add('Updating license...');

  with FMenu.TLicense do

  begin

    FindKey([CBLicenseNumber.Text]);

    Edit;

    FieldByName('Validity').AsBoolean := True;

    if not FieldByName('Mail').IsNull

    and (FieldByName('FinalDate').AsDateTime < FMenu.DateLimite)

    then // Envoyer une cl? de licence

    begin

      FieldByName('FinalDate').AsDateTime := FMenu.DateLimite;

      FieldByName('SoftwareEnableKey').AsString := FMenu.CompleteKey(FieldByName('LicenseNumber').AsInteger, FieldByName('Version').AsString, FieldByName('FirstName').AsString, FieldByName('LastName').AsString, FieldByName('Company').AsString, FieldByName('VolumeSerialNumber').AsString, DateToStr(FMenu.DateLimite));

      try

        f := TIniFile.Create(TempFolder + '\InraPorc.lic');

        f.WriteInteger ('License', 'LicenseType', 2);

        f.WriteInteger ('License', 'LicenseNumber', FieldByName('LicenseNumber').AsInteger) ;

        f.WriteString ('License', 'Version', FieldByName('Version').AsString);

        f.WriteString ('License', 'FirstName', FieldByName('FirstName').AsString);

        f.WriteString ('License', 'LastName', FieldByName('LastName').AsString);

        f.WriteString ('License', 'Company', FieldByName('Company').AsString);

        f.WriteString ('License', 'Address1', FieldByName('Address1').AsString);

        f.WriteString ('License', 'Address2', FieldByName('Address2').AsString);

        f.WriteString ('License', 'PostalCode', FieldByName('PostalCode').AsString);

        f.WriteString ('License', 'City', FieldByName('City').AsString);

        f.WriteString ('License', 'Country', FieldByName('Country').AsString);

        f.WriteString ('License', 'Phone', FieldByName('Phone').AsString);

        f.WriteString ('License', 'Fax', FieldByName('Fax').AsString);

        f.WriteString ('License', 'Mail', FieldByName('Mail').AsString);

        f.WriteString ('License', 'VolumeSerialNumber', FieldByName('VolumeSerialNumber').AsString);

        f.WriteString ('License', 'FinalDate', DateToStr(FieldByName('FinalDate').AsDateTime));

        f.WriteString ('License', 'SoftwareEnableKey', FieldByName('SoftwareEnableKey').AsString);

        f.Free;

        FMenu.MLog.Lines.Add('Mailing to ' + FieldByName('Mail').AsString + '...');

        with MKey do

        begin

          Body.Clear;

          MessageParts.Clear;

          From.Name := 'InraPorc';

          From.Address := MAIL_INRAPORC;

          Recipients.EMailAddresses := FieldByName('Mail').AsString;

          StrMessage := TStringList.Create;

          if FieldByName('Language').AsString = 'FR'

          then // R?ponse (fran?ais)

          begin

            Subject := Format('[InraPorc] Cl? d''activation pour licence num?ro %d', [FieldByName('LicenseNumber').AsInteger]);

            StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Contrat_FR.txt');

            Body.AddStrings(StrMessage);

            Body.Add(Format('La cl? d''activation est valable jusqu''au %s.', [DateToStr(FieldByName('FinalDate').AsDateTime)]));

            Body.Add('Un nouveau fichier de licence vous sera automatiquement envoy? avant la date d''expiration.');

            Body.Add('');

            StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Signature_FR.txt');

            Body.AddStrings(StrMessage);

          end

          else // Reply (english)

          begin

            Subject := Format('[InraPorc] Software enable key for license number %d', [FieldByName('LicenseNumber').AsInteger]);

            StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Contrat_EN.txt');

            Body.AddStrings(StrMessage);

            Body.Add(Format('The license activation key is valid until %s.', [DateToStr(FieldByName('FinalDate').AsDateTime)]));

            Body.Add('You will automatically receive a new license file before the expiration date.');

            Body.Add('');

            StrMessage.LoadFromFile(SHARED_DRIVE + SHARED_FOLDER + 'Messages\Signature_EN.txt');

            Body.AddStrings(StrMessage);

          end;

          StrMessage.Free;

          if FileExists(TempFolder + '\InraPorc.lic')

          then

            TIdAttachmentFile.Create(MessageParts, TempFolder + '\InraPorc.lic')

          else

            FMenu.MLog.Lines.Add('File InraPorc.lic could not be attached !');

        end;

        FMenu.MLog.Lines.Add('SMTP...');

        try

          SMTP.Connect;

          try

            SMTP.Send(MKey);

          finally

            SMTP.Disconnect;

            if IMAP4.Connect

            then

              try

                if not IMAP4.AppendMsg('?l?ments envoy?s', MKey, MKey.LastGeneratedHeaders)

                then

                  FMenu.MLog.Lines.Add('Message could not be copied in IMAP server !');

              finally

                IMAP4.Disconnect;

              end

            else

              FMenu.MLog.Lines.Add('IMAP server could not be connected !');

          end;

        except

          FMenu.MLog.Lines.Add('Message could not be sent !');

        end;

        if not DeleteFile(TempFolder + '\InraPorc.lic')

        then

          FMenu.MLog.Lines.Add('File InraPorc.lic could not be deleted !');

      except

        FMenu.MLog.Lines.Add('File InraPorc.lic could not be created !');

      end;

    end;

    Post;

  end;

  FMenu.MLog.Lines.Add('Logging record...');

  with FMenu.TAgreement do

  begin

    Append;

    FieldByName('Date').AsDateTime := Now;

    FieldByName('Admin').AsString := FMenu.EAdmin.Text;

    FieldByName('LicenseNumber').AsString := CBLicenseNumber.Text;

    FieldByName('Observations').AsString := MObservations.Text;

    Post;

  end;

  CBLicenseNumber.DeleteSelected;

  ClearAgreement;

end;

procedure TFAgreement.ClearAgreement;

begin

  BBNext.Enabled := False;

  CBLicenseNumber.Hint := Format('%d contrats en attente', [CBLicenseNumber.Items.Count]);

  CBLicenseNumber.ItemIndex := -1;

  EFirstName.Text := '';

  ELastName.Text := '';

  ECompany.Text := '';

  MObservations.Clear;

  ActiveControl := CBLicenseNumber;

end;

end.