请 写过SakMail 收邮件程序的， 进来帮我看看。谢谢。 (20分)

大家好 ：
我的SakPop 怎么会没有 quit 方法?
原以为是版本问题 装了一个最新的 还是没有 !
我下的是 Sak 主页上的版本。
不过好象是For Delphi4 的版本。
你用的是什么版本 ？
我看了你以前的讨论，没有 Quit DeleteMessage(i) 不起作用
现在就没有办法删除邮件了 ？

还有哪为大虾知道这个问题吗？ 能帮我吗 ？ 谢谢。
我的信箱 : wangxl@concordoil.com
现在我知道分少了， 谁帮我解决了 我再加 50 分。
都说不在乎分的。分少就不来答了。横！！

我对 大家还是抱着很大希望的，快帮我想吧 。
我快死悄悄了。

谁用过也要说说话嘛 。
给我也指明一条路 。
这个搞不定 我前面都要重来了。:-(

SakMail的Faq上这样说：

q. I can't delete emails with POP3, what's up ?

a. you should read the pop rfc (in docs), short version:
emails are deleted only when you disconnect from the
pop server, until then, they are only marked as deleted...
also, have in mind that the numbering of messages start
with 1, and if you have three messages, delete the number
two, then in the next session the older number three is
now the number two.
see SakPOP.DeleteMessage()

删除邮件后，要DisConnect以后才会真正删除

我看别人在讨论的时候，是说要 在 Quit 之后才能生效 DeleteMessage () ...

可我确实找不到这个 Quit 方法。奇怪！
DisConnect 后也没有删除。
你能告诉我你的这段话从哪里找来的吗？ 是不是有其他的专门这个新闻组 ？
谢谢。

还是用indy吧.比sak好多了.

真的吗 我下个试试。

nealzhao :
indy,在哪里可以下到？ 能给个网址吗？

我用SakMail的例子调试通过了。
加一个删除按钮，加入以下代码：

SakPOP1.Host := EditHost.text;
SakPOP1.UserId := EditUserId.text;
SakPOP1.UserPasswd := EditPasswd.text;
SakPOP1.connect;
if SakPOP1.POPError then
begin
MessageDlg( 'Connect failed. Maybe the server is down or not responding.',
mtError, [mbOk], 0);
exit;
end;
if not SakPOP1.login then
begin
ShowMessage('Unauthorized access...');
exit;
end;
SakPOP1.Init;
if SakPop1.Connected then
SakPop1.DeleteMessage(1);
SakPop1.Disconnect;


SakMail有一个我认为最好的方法，就是可以知道有没有新邮件
InDy和FastNet都没有
就收发Email来说，我学得SakMail比Indy要好

zm30 :
真谢谢你的耐心帮助。
现在我的程序也能删除邮件了 。
可能我以前的程序在大量的发收中导致 局域网类的 邮件服务器不能很好的 工作。
现在却好了！！ ：—））
奇怪的事为什么老是在我身上发生？