无法使用 Indy 发送电子邮件，冻结程序

Question

当我尝试使用 indy 发送带有附件的电子邮件时，我的程序冻结了，我不知道为什么。 这是我用于发送电子邮件的表单的完整代码。

unit Dok_sutisana;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP, StdCtrls, Buttons, ComCtrls, IdAttachmentFile;

type
TForm14 = class(TForm)
  Edit1: TEdit;
  Edit2: TEdit;
  Label1: TLabel;
  Label2: TLabel;
  BitBtn1: TBitBtn;
FontDialog1: TFontDialog;
RichEdit1: TRichEdit;
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
 end;

var
 Form14: TForm14;

 implementation

 uses Autentif, EDGA;

{$R *.dfm}

procedure TForm14.BitBtn1Click(Sender: TObject);
begin
if FontDialog1.Execute() then
RichEdit1.Font:=FontDialog1.Font;
end;

procedure TForm14.BitBtn2Click(Sender: TObject);
var s:string;
begin
form3.ADOTable1.Active:=true;
//setup SMTP
IdSMTP1.Host := form3.adotable1['smtp'];
IdSMTP1.Port := form3.adotable1['ports'];
IdSMTP1.Username:= '******@gmail.com';
IdSMTP1.Password:='******';

//setup mail message
IdMessage1.From.Address := form3.adotable1['e-pasts'];
IdMessage1.From.Name:= form3.adotable1['Vards']+' '+ form3.adotable1['Uzvards'];
IdMessage1.Recipients.EMailAddresses := edit1.Text;;

IdMessage1.Subject := edit2.Text;
IdMessage1.Body.Add(RichEdit1.Text + form3.ADOTable1['paraksts']);
s:= GetCurrentDir + form1.ADOTable1['Dok_adr'];
TIdAttachmentFile.Create(IdMessage1.MessageParts, s ) ;

//send mail

IdSMTP1.Connect() ;
IdSMTP1.Send(IdMessage1) ;
IdSMTP1.Disconnect;
IdMessage1.Free;
IdSMTP1.Free;

form3.ADOTable1.Active:=false;
Form14.Close;
end;

end.

我希望这能帮助我解决我的问题。

Answer 1

Indy 使用阻塞操作，并且您在主 UI 线程的上下文中使用 Indy。因此，当TIdSMTP 很忙时，您的主线程会被阻止处理新消息，从而出现应用程序冻结的现象，直到TIdSMTP 完成。

为避免冻结，您可以：

1. （首选解决方案）将您的 TIdSMTP 代码移动到单独的工作线程中。

2. 将TIdAntiFreeze 组件拖放到您的表单上。这将允许主消息队列在其他 Indy 组件在主线程中运行时继续处理新消息。

为了更好地衡量，您还应该设置TIdSMTP.ConnectTimeout 和TIdSMTP.ReadTimeout 属性，以便Connect() 和Send() 不会长时间阻塞。如果发生超时，将引发适当的异常以中止操作。

Answer 2

我从您的代码中删除了对 ADO 的使用，并为我的电子邮件帐户使用了硬编码值（出于安全原因，此处已删除 - 您可以将占位符替换为工作帐户）。

此代码有效 - 它发送附件。

我也：

• 在连接周围添加了一个try / finally，以确保在发送抛出异常时释放它；
• 添加了 Lemy 提到的 ConnectTimeout 选项；
• 已清除电子邮件正文。在添加新内容之前（否则您最终会得到多个测试副本）；

• 还需要删除以前的附件，否则您的第二封电子邮件最终会带有第一封电子邮件的附件

  IdSMTP1.Host := '******';
  IdSMTP1.Port := 25;
  IdSMTP1.Username:= '******@gmail.com';
  IdSMTP1.Password:='******';
  IdMessage1.From.Address := '******';
  IdMessage1.From.Name:= '******';
  IdMessage1.Recipients.EMailAddresses := '******';
  IdMessage1.Subject := '******';
  IdMessage1.Body.Clear; // Clear the email body
  IdMessage1.Body.Add('******');
  s:= GetCurrentDir + '\******';
  IdMessage1.MessageParts.Clear;
  TIdAttachmentFile.Create(IdMessage1.MessageParts, s ) ;
  
  IdSMTP1.ConnectTimeout := 2400 ;
  IdSMTP1.Connect();
  try
      IdSMTP1.Send(IdMessage1) ;
  finally
      IdSMTP1.Disconnect;
  end; 
  

由于这个简单的示例有效，您的问题可能是：

• 表格中的电子邮件名称/密码/值不正确；
• 防病毒包阻止您的程序访问 TCP；
• 尝试使用不是您的 ISP 提供的电子邮件帐户

当我更换 ISP 时，旧的不起作用（访问需要 SMTPS），但是当我切换到使用我的宽带供应商提供的电子邮件帐户时，这不需要 SMTPS，但可以在普通 SMTP 上工作，因为它在他们的网络中因此值得信赖