GMAIL的端口和连接方式比较特殊:
SMTP端口为:456
POP3端口为:995
都采用安全连接(SSL)
这些通过Indy组件就可以实现
参考代码如下:
SMTP端口为:456
POP3端口为:995
都采用安全连接(SSL)
这些通过Indy组件就可以实现
参考代码如下:
object IdConnectionInterceptOpe
nSSL1: TIdConnectionInterceptOp
enSSL
SSLOptions.Method = sslvSSLv2
SSLOptions.Mode = sslmUnassigned
SSLOptions.VerifyMode = []
SSLOptions.VerifyDepth = 0
Left = 56
Top = 11
end
object IdPOP31: TIdPOP3
Intercept = IdConnectionInterceptOpe
nSSL1
InterceptEnabled = True
RecvBufferSize = 1024
OnConnected = IdPOP31Connected
Left = 26
Top = 11
end
end
object IdPOP31: TIdPOP3
end
procedure TForm1.Button1Click(Sender: TObject);
begin
if IdPOP31.Connected then
IdPOP31.Disconnect;
IdPOP31.Host := 'pop.gmail.com';
IdPOP31.Port := 995;
IdPOP31.UserID :=
'youname@gmail.com';
IdPOP31.Password := '*********';
IdPOP31.Connect;
end;
begin
end;
procedure TForm1.IdPOP31Connected(Sender: TObject);
begin
ShowMessage('连接成功');
end;
begin
end;
举一反三,我想SMTP就没有必要也贴上,搂主自己完善
特别注意:
// 转贴注明作者Zswang wjhu111#21cn.com 2006-12-22
SSL需要如下两个动态连接库
ssleay32.dll
libeay32.dll
Foxmail目录里就有,复制到程序的当前目录即可
否则就叫牛魔王一起来看错误对话框
// 转贴注明作者Zswang wjhu111#21cn.com 2006-12-22
SSL需要如下两个动态连接库
ssleay32.dll
libeay32.dll
Foxmail目录里就有,复制到程序的当前目录即可
否则就叫牛魔王一起来看错误对话框
//参考如下代码
//TIdConnectionInterceptOpenSSL->TIdSSLIOHandlerSocketOpenSSL
//我用TurboDelphi调试可以连接,但连接后会有堵塞-_-!!!
FIdPOP3 := TIdPOP3.Create(Self);
FIdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Self);
FIdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv2;
FIdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmUnassigned;
FIdSSLIOHandlerSocketOpenSSL.SSLOptions.VerifyMode := [];
FIdSSLIOHandlerSocketOpenSSL.SSLOptions.VerifyDepth := 0;
FIdSSLIOHandlerSocketOpenSSL.RecvBufferSize := 1024;
FIdPOP3.IOHandler := FIdSSLIOHandlerSocketOpenSSL;
//TIdConnectionInterceptOpenSSL->TIdSSLIOHandlerSocketOpenSSL
//我用TurboDelphi调试可以连接,但连接后会有堵塞-_-!!!
FIdPOP3 := TIdPOP3.Create(Self);
FIdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Self);
FIdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv2;
FIdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode := sslmUnassigned;
FIdSSLIOHandlerSocketOpenSSL.SSLOptions.VerifyMode := [];
FIdSSLIOHandlerSocketOpenSSL.SSLOptions.VerifyDepth := 0;
FIdSSLIOHandlerSocketOpenSSL.RecvBufferSize := 1024;
FIdPOP3.IOHandler := FIdSSLIOHandlerSocketOpenSSL;