用POP3读取邮件,支持SSL,有没有比较稳定的组件或方式。希望实际使用过的人回复,谢谢!
解决方案 »
- Access读出来显示WideMemo
- 在皮肤控件中,VclSkin d7 和 VCLSkin.v2 哪个版本高?
- 主窗口关闭时,在停止查询数据的线程时报错!
- 我想编一个adsl拨号的程序,谁能够给我些资料重分感谢!
- Richedit的内容如何保存到数据库中,又如何从数据库取出赋给RichEdit?(在线等待给分)
- 图象导出的问题——高分相送
- midas用socketconnection连接---得不到servername
- delphi怎么进行类型转化?
- 怎么样把字母转换为ASCⅡ码
- 有没有这样的方法?
- 如何获得两个月份之间的天数
- 一个下拉box和一个多选的checkbox,共三组,各个的checkbox可以控制各自的下拉box的enabled属性?能直接用属实现不?
SMTP端口为:456
POP3端口为:995
都采用安全连接(SSL)
这些通过Indy组件就可以实现
参考代码如下:object IdConnectionInterceptOpenSSL1: TIdConnectionInterceptOpenSSL
SSLOptions.Method = sslvSSLv2
SSLOptions.Mode = sslmUnassigned
SSLOptions.VerifyMode = []
SSLOptions.VerifyDepth = 0
Left = 56
Top = 11
end
object IdPOP31: TIdPOP3
Intercept = IdConnectionInterceptOpenSSL1
InterceptEnabled = True
RecvBufferSize = 1024
OnConnected = IdPOP31Connected
Left = 26
Top = 11
endprocedure TForm1.Button1Click(Sender: TObject);
begin
if IdPOP31.Connected then
IdPOP31.Disconnect;
IdPOP31.Host := 'pop.gmail.com';
IdPOP31.Port := 995;
IdPOP31.UserID := '[email protected]';
IdPOP31.Password := '*********';
IdPOP31.Connect;
end;procedure TForm1.IdPOP31Connected(Sender: TObject);
begin
ShowMessage('连接成功');
end;举一反三,我想SMTP就没有必要也贴上,搂主自己完善特别注意:
SSL需要如下两个动态连接库
ssleay32.dll
libeay32.dll
Foxmail目录里就有,复制到程序的当前目录即可