我现在用INDY 9 来发送邮件,但是好像当邮件发送时程序会有几秒钟的停滞,我想新建一个线程来发送邮件,但是不知道应该怎么做,请大家指教. (50分)

  • 主题发起人 主题发起人 小ゆ鱼ゆ儿
  • 开始时间 开始时间

小ゆ鱼ゆ儿

Unregistered / Unconfirmed
GUEST, unregistred user!
INDY没有用过呀
 
INDY没有用过,用过DELPHI5的发的时侯是有一段时间,可设置TIMEOUT属性。
 
简单呀
声明一个TThread然后在execute里直接调用form上的indy控件的发送方法(不需要同步, indy控件本身是线程安全的)
 
type
TSendThread = class(TThread)
private

protected
procedure Execute;
override;
public
end
procedure TQueryThread.Execute;
var
i: integer;
begin
while not Terminateddo
begin
//在这里加入你的发送邮件代码
end;
end;
 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部