InraPorc

unit UFAnnual;

interface

uses

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

    Dialogs, ComCtrls, StdCtrls, Buttons, IdMessage, IdBaseComponent,

    IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient,

    IdAttachmentFile, IdSMTP, IniFiles, DateUtils,

    IdExplicitTLSClientServerBase, IdSMTPBase, IdIMAP4, IdIOHandler,

  IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

type

  TFAnnual = class(TForm)

    SMTP: TIdSMTP;

    MKey: TIdMessage;

    BBNext: TBitBtn;

    LDate: TLabel;

    DTPDate: TDateTimePicker;

    IMAP4: TIdIMAP4;

    OpenSSL_IMAP4: TIdSSLIOHandlerSocketOpenSSL;

    OpenSSL_SMTP: TIdSSLIOHandlerSocketOpenSSL;

    procedure FormCreate(Sender: TObject);

    procedure BBNextClick(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FAnnual: TFAnnual;

implementation

uses

  UFMenu;

{$R *.dfm}

procedure TFAnnual.FormCreate(Sender: TObject);

begin

  Top := 0;

  Left := 0;

  DTPDate.DateTime := Now;

  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 TFAnnual.BBNextClick(Sender: TObject);

var

  f: TIniFile;

  OldDate, NewDate: TDateTime;

  StrMessage: TStrings;

begin

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

  NewDate := FMenu.DateLimite;

  with FMenu.TLicense do

  begin

    First;

    while not Eof do

    begin

      OldDate := FieldByName('FinalDate').AsDateTime;

      if FieldByName('Validity').AsBoolean

      and not FieldByName('Mail').IsNull

      and not FieldByName('Version').IsNull

      and not FieldByName('VolumeSerialNumber').IsNull

      and (OldDate < NewDate)

      then // Envoyer une cl? de licence

      begin

        Edit;

        FieldByName('FinalDate').AsDateTime := NewDate;

        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\Renouvellement_FR.txt');

              Body.AddStrings(StrMessage);

              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\Renouvellement_EN.txt');

              Body.AddStrings(StrMessage);

              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 not found!');

          end;

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

          try

            SMTP.Connect;

            try

              SMTP.Send(MKey);

              // Validation des modifications

              Post;

              // Copie du message dans les ?l?ments envoy?s

              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!');

            finally

              SMTP.Disconnect;

            end;

          except

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

            // Annulation des modifications

            Cancel;

          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;

      Next;

    end;

  end;

  Close;

end;

end.