powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / получение почты (TNMPOP3)
3 сообщений из 3, страница 1 из 1
получение почты (TNMPOP3)
    #32134366
Esa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Esa
Гость
как сохранять приаттаченные к письмам файлы на диске? Пользуюсь компонентом TNMPOP3
...
Рейтинг: 0 / 0
получение почты (TNMPOP3)
    #32134382
Фотография SmaLL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Используй ICS-компоненты http://overbyte.delphicenter.com/frame_index.html
...
Рейтинг: 0 / 0
получение почты (TNMPOP3)
    #32134448
Фотография Cooper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
POP.Connect;
if POP.CheckMessages> 0  then
begin
Msg.Clear;
POP.Retrieve( 1 , Msg);
for c :=  0  to Msg.MessageParts.Count -  1  do
begin
if Msg.MessageParts.Items[c] is TIdAttachment then
begin
if fileexists(TIdAttachment(Msg.MessageParts.Items[c]).FileName) then
deletefile(TIdAttachment(Msg.MessageParts.Items[c]).FileName);
TIdAttachment(Msg.MessageParts.Items[c]).SaveToFile(TIdAttachment(Msg.MessageParts.Items[c]).FileName);
end
else
if Msg.MessageParts.Items[c] is TIdText then
begin
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[c]).Body);
end;
end;
end;
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / получение почты (TNMPOP3)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]