我用mail2000这个控件登录邮件服务器下载邮件的（附件）时，有问题，请达人进来指点一下。附上我写的源码。
附件下载下来都成打不开的文件了。
附上我写的下载段源码：
procedure TConnect_download.Downloadnewmail_writedailyrecord(Sender:TObject);
var
index,loop:integer;
path:string;
temp:TMemoryStream;
begin
for index:=1 to POP.SessionMessageCount do
begin
Show2.Caption:='开始从'+mailmanageini.ReadString('mail','host','')+'接收第'+inttostr(index)+'封邮件....';
POP.RetrieveMessage(index);
if Msg.AttachList.Count>0 then
begin
for Loop := 0 to Msg.AttachList.Count-1 do
begin
path:=ExtractFilePath(ParamStr(0))+'AFP\'+Msg.AttachList[loop].FileName;
temp:=TMemoryStream.Create;
Msg.AttachList[loop].Decoded.SaveToStream(temp);
temp.Position:=0;
temp.SaveToFile(path);
Msg.AttachList[loop].SaveToFile(path);
end;
Msg.Reset;
end;
end;
Show2.Caption:='邮件接收完成';
Show_dailyrecord(Sender);
end;
达人指点是怎么回事。
问题点数：0、回复次数：3Top
1 楼fanli625（范蠡）回复于 2003-12-01 17:10:44 得分 0
upTop
2 楼fanli625（范蠡）回复于 2003-12-02 10:40:04 得分 0
upTop
3 楼fanli625（范蠡）回复于 2003-12-02 10:40:33 得分 0
upTop
