uMainForm.pas

unit uMainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, IOUtils,
  uEmailService, uOAuthTypes, uConfigService, uEmailReaderForm, Vcl.FileCtrl,
  Vcl.CheckLst;

type
  TMainForm = class(TForm)
    GroupBox1: TGroupBox;
    LblToEmail: TLabel;
    LblToName: TLabel;
    edtToEmail: TEdit;
    edtToName: TEdit;
    GroupBox2: TGroupBox;
    LblFromEmail: TLabel;
    LblFromName: TLabel;
    LblSMTPHost: TLabel;
    LblSMTPPort: TLabel;
    LblSMTPUser: TLabel;
    LblSMTPPass: TLabel;
    LblIMAP: TLabel;
    edtFromEmail: TEdit;
    edtFromName: TEdit;
    edtSMTPHost: TEdit;
    edtSMTPPort: TEdit;
    edtSMTPUser: TEdit;
    edtSMTPPass: TEdit;
    edtIMAPHost: TEdit;
    GroupBox3: TGroupBox;
    rgMethods: TRadioGroup;
    GroupBox4: TGroupBox;
    LblAuthURL: TLabel;
    LblTokenURL: TLabel;
    LblDeviceURL: TLabel;
    LblClientID: TLabel;
    LblClientSecret: TLabel;
    LblRedirectURI: TLabel;
    LblScope: TLabel;
    edtAuthorizeURL: TEdit;
    edtTokenURL: TEdit;
    edtDeviceURL: TEdit;
    edtClientId: TEdit;
    edtClientSecret: TEdit;
    edtRedirectURI: TEdit;
    edtScope: TEdit;
    GroupBox5: TGroupBox;
    LblSSLType: TLabel;
    rgSecurity: TRadioGroup;
    cbSSLType: TComboBox;
    GroupBox6: TGroupBox;
    btnSave: TButton;
    btnLoad: TButton;
    btnSend: TButton;
    GroupBox7: TGroupBox;
    mmoLog: TMemo;
    edtPOPHost: TEdit;
    LblPOP: TLabel;
    LblPOPPort: TLabel;
    edtPOPPort: TEdit;
    LblIMAPPort: TLabel;
    edtIMAPPort: TEdit;
    btnReadEmails: TButton;
    GroupBox8: TGroupBox;
    LblSubject: TLabel;
    LblContentType: TLabel;
    LblCorpo: TLabel;
    edtAssunto: TEdit;
    edtContentType: TEdit;
    mmoCorpo: TMemo;
    CheckListBoxFiles: TCheckListBox;
    btArquivos: TButton;
    OpenDialog1: TOpenDialog;
    
    procedure FormCreate(Sender: TObject);
    procedure btnSendClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnLoadClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnReadEmailsClick(Sender: TObject);
    procedure btArquivosClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    FEmailService: TEmailService;
    FMensagem: TMensagem;
    FConfig: TAppConfig;
    procedure LoadConfigToGUI;
    function SaveConfigFromGUI: TAppConfig;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FEmailService := TEmailService.Create(mmoLog);
  
  // Inicialização padrão
  rgMethods.Items.Add('Tradicional (User/Pass)');
  rgMethods.Items.Add('Authorization Code');
  rgMethods.Items.Add('Authorization Code + PKCE');
  rgMethods.Items.Add('Device Code');
  rgMethods.Items.Add('Implicit');
  rgMethods.Items.Add('ROPC');
  rgMethods.Items.Add('Client Credentials');
  rgMethods.Items.Add('Refresh Token');
  rgMethods.ItemIndex := 0;

  cbSSLType.Items.Add('SSLv2');
  cbSSLType.Items.Add('SSLv23');
  cbSSLType.Items.Add('SSLv3');
  cbSSLType.Items.Add('TLSv1');
  cbSSLType.Items.Add('TLSv1_1');
  cbSSLType.Items.Add('TLSv1_2');
  cbSSLType.Items.Add('TLSv1_3');
  cbSSLType.ItemIndex := 5; // TLSv1_2 padrão
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FEmailService);
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
  btnLoadClick(NIL);
end;

function TMainForm.SaveConfigFromGUI: TAppConfig;
begin
  Result.EmailConfig.SMTPHost := Trim(edtSMTPHost.Text);
  Result.EmailConfig.SMTPPort := StrToIntDef(Trim(edtSMTPPort.Text), 0);
  Result.EmailConfig.SMTPUser := Trim(edtSMTPUser.Text);
  Result.EmailConfig.SMTPPass := Trim(edtSMTPPass.Text);
  Result.EmailConfig.FromEmail := Trim(edtFromEmail.Text);
  Result.EmailConfig.FromName := Trim(edtFromName.Text);
  Result.EmailConfig.ToEmail := Trim(edtToEmail.Text);
  Result.EmailConfig.ToName := Trim(edtToName.Text);

  Result.EmailConfig.SecurityType := TSecurityType(rgSecurity.ItemIndex);
  Result.EmailConfig.SSLVersion := TSSLVersion(cbSSLType.ItemIndex);

  Result.EmailConfig.OAuthConfig.AuthEndpoint := Trim(edtAuthorizeURL.Text);
  Result.EmailConfig.OAuthConfig.TokenEndpoint := Trim(edtTokenURL.Text);
  Result.EmailConfig.OAuthConfig.DeviceEndpoint := Trim(edtDeviceURL.Text);
  Result.EmailConfig.OAuthConfig.ClientId := Trim(edtClientId.Text);
  Result.EmailConfig.OAuthConfig.ClientSecret := Trim(edtClientSecret.Text);
  Result.EmailConfig.OAuthConfig.RedirectUri := Trim(edtRedirectURI.Text);
  Result.EmailConfig.OAuthConfig.Scope := Trim(edtScope.Text);

  Result.EmailConfig.IMAPHost := TRIM(edtIMAPHost.Text);
  Result.EmailConfig.IMAPPort:= StrToIntDef(TRIM(edtIMAPPort.Text),0);

  Result.EmailConfig.POPHost := TRIM(edtPOPHost.Text);
  Result.EmailConfig.POPPort := StrToIntDef(TRIM(edtPOPPort.Text),0);

  Result.EmailConfig.OAuthMethod := TOAuthMethod(rgMethods.ItemIndex);
end;

procedure TMainForm.LoadConfigToGUI;
begin
  edtSMTPHost.Text := FConfig.EmailConfig.SMTPHost.Trim;
  edtSMTPPort.Text := IntToStr(FConfig.EmailConfig.SMTPPort).Trim;
  edtSMTPUser.Text := FConfig.EmailConfig.SMTPUser.Trim;
  edtSMTPPass.Text := FConfig.EmailConfig.SMTPPass.Trim;
  edtFromEmail.Text := FConfig.EmailConfig.FromEmail.Trim;
  edtFromName.Text := FConfig.EmailConfig.FromName.Trim;
  edtToEmail.Text := FConfig.EmailConfig.ToEmail.Trim;
  edtToName.Text := FConfig.EmailConfig.ToName.Trim;
  
  rgSecurity.ItemIndex := Integer(FConfig.EmailConfig.SecurityType);
  cbSSLType.ItemIndex := Integer(FConfig.EmailConfig.SSLVersion);

  edtAuthorizeURL.Text := FConfig.EmailConfig.OAuthConfig.AuthEndpoint.Trim;
  edtTokenURL.Text := FConfig.EmailConfig.OAuthConfig.TokenEndpoint.Trim;
  edtDeviceURL.Text := FConfig.EmailConfig.OAuthConfig.DeviceEndpoint.Trim;
  edtClientId.Text := FConfig.EmailConfig.OAuthConfig.ClientId.Trim;
  edtClientSecret.Text := FConfig.EmailConfig.OAuthConfig.ClientSecret.Trim;
  edtRedirectURI.Text := FConfig.EmailConfig.OAuthConfig.RedirectUri.Trim;
  edtScope.Text := FConfig.EmailConfig.OAuthConfig.Scope.Trim;

  edtPOPHost.Text :=  FConfig.EmailConfig.POPHost.Trim;
  edtPOPPort.Text :=  IntToStr(FConfig.EmailConfig.POPPort).Trim;

  edtIMAPHost.Text :=  FConfig.EmailConfig.IMAPHost.Trim;
  edtIMAPPort.TExt :=  IntToStr(FConfig.EmailConfig.IMAPPort).Trim;
end;

procedure TMainForm.btnSendClick(Sender: TObject);
var
  I, Idx: Integer;
  LPathCompleto: string;
begin
  mmoLog.Lines.Clear;
  mmoLog.Lines.Add('Iniciando processo de envio...');

  FMensagem.Subject := TRIM(edtAssunto.Text);
  FMensagem.ContentType := TRIM(edtContentType.Text);
  FMensagem.Body := TRIM(mmoCorpo.Lines.Text);

  // Captura os arquivos selecionados no CheckListBoxFiles
  SetLength(FMensagem.Attachments, CheckListBoxFiles.Count);
  Idx := 0;

  // 2. Itera pela lista e captura APENAS os arquivos marcados (Checked)
  for I := 0 to CheckListBoxFiles.Count - 1 do
  begin
    if CheckListBoxFiles.Checked[I] then
    begin
      // Recupera o Path Completo que "escondemos" no AddObject lá atrás
      LPathCompleto := string(CheckListBoxFiles.Items.Objects[I]);

      FMensagem.Attachments[Idx] := LPathCompleto;
      Inc(Idx); // Avança o índice do nosso array de anexos
    end;
  end;

  // 3. Ajusta o tamanho real do array para o número de itens marcados.
  // Isso evita que strings vazias sejam enviadas para o Indy/Graph API.
  SetLength(FMensagem.Attachments, Idx);

  try
    if FEmailService.SendEmail(SaveConfigFromGUI.EmailConfig, FMensagem) then
      ShowMessage('E-mail enviado com sucesso!')
    else
      ShowMessage('Falha no envio.');
  except
    on E: Exception do
    begin
      mmoLog.Lines.Add('ERRO FATAL: ' + E.Message.Trim);
      ShowMessage('Erro: ' + E.Message.Trim);
    end;
  end;
end;

procedure TMainForm.btnReadEmailsClick(Sender: TObject);
begin
  if not Assigned(EmailReaderForm) then
    EmailReaderForm := TEmailReaderForm.Create(Application);

  EmailReaderForm.LoadConfig(SaveConfigFromGUI.EmailConfig);
  EmailReaderForm.Show;
end;

procedure TMainForm.btnSaveClick(Sender: TObject);
begin
  TConfigService.SaveToFile(ExtractFilePath(ParamStr(0)).Trim + 'config.ini', SaveConfigFromGUI);
  ShowMessage('Configurações salvas!');
end;

procedure TMainForm.btArquivosClick(Sender: TObject);
var
  LArquivo: string;
  LNomeArquivo: string;
begin
  if OpenDialog1.Execute then
  begin
    CheckListBoxFiles.Items.Clear;
    CheckListBoxFiles.Items.BeginUpdate; // Pausa a repaint da tela para performance
    try
      for LArquivo in OpenDialog1.Files do
      begin
        LNomeArquivo := TPath.GetFileName(LArquivo);

        // Evita adicionar o mesmo arquivo duas vezes na lista
        if CheckListBoxFiles.Items.IndexOf(LNomeArquivo) = -1 then
        begin
          // O TRUQUE: AddObject exibe o 'LNomeArquivo' para o usuário,
          // mas guarda o 'LArquivo' (Path Completo) na propriedade Object associada.
          CheckListBoxFiles.Items.AddObject(LNomeArquivo, TObject(LArquivo));

          // Marca como checado por padrão ao adicionar
          CheckListBoxFiles.Checked[CheckListBoxFiles.Items.Count - 1] := True;
        end;
      end;
    finally
      CheckListBoxFiles.Items.EndUpdate;
    end;
  end;
end;

{procedure TMainForm.btArquivosClick(Sender: TObject);
var
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    CheckListBoxFiles.Items.Clear;
    CheckListBoxFiles.Items.BeginUpdate;
    for var LArquivo in OpenDialog1.Files do
    begin
      CheckListBoxFiles.Items.AddStrings(TPath.GetFileName(LArquivo));
    end;

    for i := 0 to CheckListBoxFiles.Items.Count - 1 do
    begin
      CheckListBoxFiles.Checked[i] := True;
    end;

    CheckListBoxFiles.Items.EndUpdate;
  end;
end;}

procedure TMainForm.btnLoadClick(Sender: TObject);
begin
  if FileExists(ExtractFilePath(ParamStr(0)).Trim + 'config.ini') then
  begin
    TConfigService.LoadFromFile(ExtractFilePath(ParamStr(0)).Trim + 'config.ini', FConfig);
    LoadConfigToGUI;
    if Assigned(Sender) then
      ShowMessage('Configurações carregadas!');
  end
  else
    ShowMessage('Arquivo de configuração não encontrado.');
end;

end.