Проблема с NMPOP31 в Дельфи 6. Не удается принять почту.

[RDman]

Привет. Ну если с отправкой почты и кодировкой письма)) более - менее разобрался, теперь есть небольшая проблемка с получением почты. Для приема почты мспользуется NMPOP31, свойства которого установлены в соотв. с тем как указано в букваре)) по Дельфи. По порядку все: прогу пишу пока для пробы, состоит она из 3х кнопок и поля Memo. При коннекте ошибки не возникает, а возникает почему то при дисконнекте. И еще главное: принятое сообщение хранится в MailMessage, как правильно с ним работать и с его свойствами? Для наглядности прикрепляю картинки с кодом. Подскажите плиз.

[RDman]

Button1Click - устанавливает связь,
Button2Click - разрывает связь, при этом возникает ошибка,
Button3Click - как получить текст из письма, со всеми остальными делами(например с вложениями, с заголовком письма и т.д.).
Спасибо.

[$t@R0stA]

RDman, милый человечек я тебе помочь ничем не смогу....Я просто буду поддерживать тебя морально....

[X0R]

Приложи полный код проекта.

[RDman]

x0r, дык это весь код. Все остальное стандартно создаваемое Дельфями.

[X0R]

Я делал так:
Это подключение к серверу

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
IdPOP31.Host := LEServ.Text;
IdPOP31.Username := LEName.Text;
IdPOP31.Password := LEPass.Text;
IdPOP31.Connect;
if IdPOP31.Connected then
Memo1.Lines.Add('Соединение с сервером установлено')
else
begin
Memo1.Lines.Add('Ошибка при соединении!');
Exit;
end;
Memo1.Lines.Add('Новых сообщений на сервере: ' + IntToStr(IdPOP31.CheckMessages));
for i := 1 to IdPOP31.CheckMessages do
begin
IdPOP31.RetrieveHeader(i, IdMessage1);
ListBox2.Items.Add(IdMessage1.Recipients.EMailAddr esses + ' -- ' + IdMessage1.Subject);
end;
end;

А это получение сообщения

procedure TForm1.ListBox2DblClick(Sender: TObject);
var
i : Integer;
s : String;
begin
IdPOP31.Retrieve(ListBox2.ItemIndex + 1, IdMessage1);
Memo2.Clear;
Memo2.Lines.AddStrings(IdMessage1.Body);
end;

[RDman]

x0r, cпасибо, буду пробовать. А что касается вложений (если они есть в получаемом письме), как их извлечь?

[X0R]

Насчет вложений хз, а дельфы у меня ща нет, так в данный момент C# учу Но если уж совсем никак у тебя не пойдет мож и поставлю

[RDman]

x0r, ясно ... Да разберусь думаю. Долго возиться времени нет просто...

[RDman]

IdPOP31.RetrieveHeader IdPOP31.CheckMessages в Д6 нет таких свойств в этом компоненте... почти половины свойств нет((

[X0R]

RDman
Я в 2006 писал, у меня Indy10 стояла. Рекомендую обновить дельфу

[RDman]

x0r, ок обновимся)