新手求教在使用idsmtp时怎样在发送邮件过程中避免程序停滞。。

saderick 2010-10-22 12:28:56

是否是由于程序单线程运行造成的。我是学硬件的还请解释的直观点

...全文

32 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

zzbinfo 2010-10-22

打赏
举报

回复

你是说界面上停止反应吧，简单点就是楼上说的加个indy antifreeze控件，但是不要报太大希望，呵呵，我用过，效果不是太明显，最好的就是弄单独的线程处理

CppFile 2010-10-22

打赏
举报

回复

好像有个indy antifreeze控件，你试试看

delphi idsmtp发送信件。无第三方控件。 ------------ 下载后评分。

本人收入的一个Delphi7下的IDSMTP控件发送邮件程序与代码

一个简单的Delphi7.0 邮件发送示例含源码文件，将窗口中的邮件主题、收件人、邮件标题、邮件地址等信息填写完毕后，单击按钮即可发送邮件，基于SMTP发邮件的例子。部分代码段先睹为快：　　Clear; 　　Subject := Edit2.Text;//邮件主题　　From.Text := Edit4.Text;//发件人　　Recipients.EMailAddresses := Edit3.Text;//收件人　　Body.Assign(Memo1.Lines);//邮件内容　　if Edit7.Text = '' then//添加附件　　 TIdAttachment.Create(IdMessage1.MessageParts,Edit7.Text); 　　IdSMTP1.AuthenticationType := atLogin;//进行身份检验　　IdSMTP1.Username := Edit5.Text;//用户名　　IdSMTP1.Password := Edit6.Text;//密码　　try 　　 IdSMTP1.Connect();//连接　　 IdSMTP1.Send(IdMessage1);//发送　　 IdSMTP1.Disconnect;//断开　　 Application.MessageBox('邮件发送成功!', '提示', MB_OK MB_ICONINFORMATION); 　　except 　　 Application.MessageBox('邮件发送失败!', '提示', MB_OK MB_ICONINFORMATION); 　　end;

在Delphi中通过代码实现电子邮件的发送。同时测试了抄送、密送；设置了邮件的重要性，以及上传附件的方法。在Delphi7 Enterprise中测试可以运行。

Delphi sendmail发送邮件一例···

网络及通讯开发

1,317

社区成员

8,874

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章