100分换一个小例子~~

Question

一个能收gmail邮件的小例简单的就可以~~~~

Answer 1

GMAIL有特别的机制和协意 好象挺麻烦的没搞过 帮LZ顶 如果LZ找到资料的话 别忘了也给我份资料 3Q  

Answer 2

我看了 
http://www.q3.nu/trucomania/truco.cgi?560&ing
这个 可是我怎么也试不来~~~还是不能用 谁帮我试一下~~~

Answer 3

GMAIL的端口和连接方式比较特殊：
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就没有必要也贴上，搂主自己完善特别注意：
// 转贴注明作者Zswang wjhu111#21cn.com 2006-12-22
SSL需要如下两个动态连接库
ssleay32.dll
libeay32.dll
Foxmail目录里就有，复制到程序的当前目录即可
否则就叫牛魔王一起来看错误对话框

Answer 4

谢谢 zswang(伴水清清)(专家门诊清洁工) 
的回复~~可以连接啦~~~上面的方法 但是另外的 就是
ssleay32.dll
libeay32.dll
要最新的才可以~~~要在www.openssl.org 上面下载到最近的才能连接
不然会出现 调用DLL出错~~ 我在indy上面下载的不是最新的两个dll 无法使用
另外感谢delphi群里面的一个朋友给我提供了最新的下载dll地址~~
谢谢大家~问题解决~~~