谁有ＦＴＰ上传、下载文件的例子？谁还有邮件发送和接收的例子？(50分)

谁有ＦＴＰ上传、下载文件的例子？谁还有邮件发送和接收的例子？
给个例子也行。　　E_mail: moonbird11@eyou.com
我是用Ｄ６，用的是ＩＮＤＹ９组件，用ＩＤＰＯＰ３，现在我不知道我接收下来的附件到那里了，如何指定下载附件到指定地方？
程序如下：请看看

procedure TForm1.N1Click(Sender: TObject);
var
intIndex:integer;
MailAttachment:TListItem;
begin
Msg.Clear ;
//清除邮件包容器
if ListView1.Items.Count >0 then
begin
IdPOP31.Retrieve(ListView1.Selected.Index+1,Msg);
//将邮件内容放入邮件包容器中
AttachmentList.Items.Clear ;
//清除附件列表
for intIndex := 0 to Pred(Msg.MessageParts.Count) do
begin
//附件
if (Msg.MessageParts.Items[intIndex] is TIdAttachment) then
begin
MailAttachment := AttachmentList.Items.Add;
MailAttachment.ImageIndex := 0;
MailAttachment.Caption := TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename;
MailAttachment.SubItems.Add(TIdAttachment(Msg.MessageParts.Items[intIndex]).ContentType);
end
else
//正文
begin
if Msg.MessageParts.Items[intIndex] is TIdText then
begin
Messagememo.Lines.Clear;
Messagememo.Lines.AddStrings(TIdText(Msg.MessageParts.Items[intIndex]).Body);
end
end;
end;


end;
end;

我有一本书《delphi网络开发技术与实力》其附带光盘上面这些例子都有，可是我如何给你呀，电子邮件应该是发不过去了（很大的）。

to:fphuang
我有一个大邮箱20M，可以了吧！
mail@bjsw.net
快发一下吧

可是我没有发加20M附件的邮箱啊，如果我们取得联系后我可以暂时给你开一个Ftp让你下载，下载后我再关了。
我的msn：netfphuang$hotmail.com

老兄：fphuang
我没有MSN 我的QQ是：120399332
请速与我联系！谢了！

嗨，我到是有一个qq号，我不知如何加你，不过我平时从来不上线，这样吧，我今晚等到10点之前， 号码是：249476695

已发，请查收

Msg.MessageParts.Items[intIndex].savetofile(path);
就可以了啊，不是DEMO上有显示的吗？

xuexi !

TO:gxswy,
Msg.MessageParts.Items[intIndex].savetofile(path);
没有savetofile,
这句加在哪？怎么不对啊？能细说一下吗？怎么用啊？

delphi中自带的demo中indy目录下都有，我编ftp和邮件收发时都是参考它们

还有一个问题，上传下载时，如何用ProgressBar显示进度？

我有indy的FTP例子。前几天做项目用到FTP就是参考着它做的。蛮不错的。带进度条的。
例子你还要么？要得话和我联系。

E－mail：qdsxt@tom.com

邮件已发送至：
moonbird11@eyou.com

to :白玉老虎
能否给我一份！谢谢！
zhang_yz@163.com

楼顶的朋友，不好意思，昨晚的邮件我忘记添加附件了，今天重新给你发了一份。

楼上的朋友，也给你转发了一份。

华旗的产品－爱国者MP3很烂，才用20天，耳机就脱胶，还说是外伤，不给任何维修等，哪个龟儿子再买爱国者MP3，甚至华旗的东西

如果不属实，天洙地灭

D6 的 Demo 里面就有 Indy 的实例，有没有搞错

白玉老虎，(或楼上的其他两位朋友)
能否将白玉老虎的FTP例子给我一份！谢谢！
rlpcdk@163.com

你好