应如何收邮件？

[grgz]

本人想用d7编一个收邮件程序，设置了ＴidtPop3的Username,Password,Port,host属性，调用connect方法，连接成功，但是不知道应该如何收邮件？

[grgz]

连接按钮：
pop.connect(20000);

pop.Onconnected事件:
showmessage('登录成功');
pop.Retrieve(1,iMsg);
showmessage('收了一个邮件');
edttext.Text :=iMsg.From.text;
edtAddress.Text :=iMsg.From.Address ;
edtName.Text :=iMsg.From.Name;

单击连接按钮之后，显示’登录成功‘，之后就没有反应了，最后显示’connection closed Gracefully '请问是什么原因?

[短歌如风]

var
iMsg: TIdMessage;
begin
iMsg := TIdMessage.Create(nil);
pop.connect();
showmessage('登录成功');
if Pop.CheckMessages >= 1 then
begin
pop.Retrieve(1,iMsg);
showmessage('收了一个邮件');
edttext.Text :=iMsg.From.text;
edtAddress.Text :=iMsg.From.Address ;
edtName.Text :=iMsg.From.Name;
end;
pop.Disconnect;
iMsg.Free;
end;
执行正常。好象必须要先CheckMessages。

[短歌如风]

关于Pop3邮件客户端的编写，看一下$(DELPHI)\Demos\Indy\MailClient目录下的例子。

[grgz]

还是不行啊,执行到if Pop.CheckMessages >= 1 then 时就弹出错误对话框:'Coremail' is not a valid integer value', 各位请帮帮我啦.

[短歌如风]

我这里可以用的啊！不过我用的是D6，公司还没有买D7，我个人又买不起……

[LouShangDeLOOK]

无赖吃到"天鹅'肉了吗?快到水园看看啊

[短歌如风]

我用163的免费邮箱也正确。你的邮件服务器设置的正确吗？
我的设置是：
host: pop.163.com
port: 110
UserNagle: True
UserID,Password:不能告诉你:)

[grgz]

没有错啊，是这样啊。但是ＴidPop3没有UserNagle属性。
后来我把host改为pop.21cn.com(免费邮箱），返回的错误是：'"AIMC"is not a valid integer value'　（我是用TidPop３和TidMessage控件）

[grgz]

没有错啊，是这样啊。但是ＴidPop3没有UserNagle属性，返回的还是那个错误。
后来我把host改为pop.21cn.com(免费邮箱），返回的错误是：' "AIMC "is not a valid integer value'　（我是用TidPop３和TidMessage控件）

[短歌如风]

我用的也是TidPop3和TidMessage啊（不过我用的TidMessage是动态创建的）。
这样吧，你检查一下TIdPop3的CheckMessage的源代码，应该调用STAT命令，可能还有UIDL命令和LIST命令。

[brallow]

来迟了，。。。。。。UPUPPPPPU

[xiaoyuer0851]

正在学习网络这一块，

谢谢各位了！~~~

[短歌如风]

还有，我试验时连接的是新浪的免费邮箱。你换一个邮件服务器试试。
从'Coremail' is not a valid integer value'这个错误信息看，好象是从服务器返回的信息格式不正确。

[grgz]

但是pop没有stat和list命令，只有uidl命令，对了，uidl命令有什么用的？

[grgz]

我用的是163.com的免费邮箱。是不是还要设置某些属性呢？

[grgz]

为什么D7吾得呢?

[短歌如风]

首先应该是stat命令啊！
每个邮件都有一个唯一的ID号，uidl就是取得这个ID号的。一般foxmail这一类的工具用它来判断该邮件是否下载过（与本地的ID列表相比较）。

[grgz]

但是pop没有stat命令啊.我用的是d7啊.

[hcjhcj]

那信的内容怎么在memo里显示出来啊？Memo1.Lines.AddStrings(TIdText(iMsg.MessageParts.Items[intindex]).Body); 但是我在memo加Tstrings的时候老是出现“list index out fo bound(1)”错误。这个问题怎么解决啊？问题出在哪儿啊？

[楚人无衣]

up,我也想知道