procedure TMainForm.ReceiveMail();
var
i, MesCnt :Integer;
Attach :TIdAttachment;
begin
try
MessageBase.Clear;
ReceiveBase.Connect(50000);
if ReceiveBase.Connected then
begin
MesCnt := ReceiveBase.CheckMessages;
while MesCnt > 0 do
begin
if ReceiveBase.Retrieve(MesCnt, MessageBase) then
begin
for i:=0 to MessageBase.MessageParts.Count do
begin
if MessageBase.MessageParts.Items[i].ClassType = TIdAttachment then
begin
Attach := MessageBase.MessageParts.Items[i] as TIdAttachment;
Attach.SaveToFile(Attach.FileName);
end;
end;
end;
dec(MesCnt);
end;
end;
finally
if ReceiveBase.Connected then ReceiveBase.Disconnect;
Attach.Free;
end;
end;
где: MessageBase - TIdMessage
ReceiveBase - TIdPOP3
Пишет что ошибка сохранения аттача smile(
Подскажте пожалуйста где ошибка, уже второй день с этим РОР3 бьюсь, нифига не выходит smile(
