Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> IdPOP3, Как с ним работать? помогите разобраться 
:(
    Опции темы
Snowy
Дата 20.6.2005, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484



Цитата(TP @ 18.6.2005, 20:08)
Странно... без дельфей все работает нормально

Ничего странного. Конструкции try ... except так себя и ведут при включенном отладчике.

Цитата(TP @ 18.6.2005, 20:08)
Тока я заметил интересную вещь: скаченый файл увеличивается на 2 байта! Скорее всего это символы 10 и 13
Почему? И как это предотвратить?

Что-то не замечал.
Проверял с архивами - вполне работоспособны после сохранения.
На размер не смотрел...
Сомневаюсь, что что-то не так, но проверить сейчас нет возможности.
Если все же так, то дело не в этом коде, а в реализации TIdAttachment.
Попробуй сравнить исходный файл и принятый при помощи консольной комманды:
fc /b file1.ext file2.ext
PM MAIL   Вверх
TP@MB@Y
Дата 20.6.2005, 23:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4



А вообще письмо может не отправиться? Т.е. допустим коннект установлен, все поля заполнены, но по какой то внешней причине send() не срабатывает. Как узнать, чтобы переслать письмо?
PM   Вверх
Snowy
Дата 21.6.2005, 09:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484



Цитата(TP @ 20.6.2005, 23:10)
А вообще письмо может не отправиться?

Письмо может не отправиться из-за плохой связи, либо, если сервер не остроили условия или он требует аутентификацию.
Вообще-то топик про IdPOP3.

Цитата(TP @ 20.6.2005, 23:10)
send() не срабатывает. Как узнать, чтобы переслать письмо?

По-моему так:
Код

try
  smtp.Send;
except
  не удалось отправить
end;

PM MAIL   Вверх
TP@MB@Y
Дата 24.6.2005, 01:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4



Snowy
Ясно.

Сорри, за оффтоп, но как сделать чтобы отправленое письмо было в кодировке windows-1251 ?
PM   Вверх
Snowy
Дата 24.6.2005, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484



Цитата(TP @ 24.6.2005, 01:02)
как сделать чтобы отправленое письмо было в кодировке windows-1251 ?

Нужно прописать ее в TIdMessage.ContentTransferEncoding
Но это свойство не перекодирует само письмо, а только указывает какая кодировка.
Ты сам должен заполнять текст письма в нужной кодировке.
В заголовке она только конкретизируется для почтового клиента, чтобы ему не приходилось догадываться.
Если исходный текст у тебя в другой кодировке - читай FAQ по кодировкам.

P.S. и на будущее - если у тебя возник другой вопрос - создай для него отдельный топик.
А то придет злой модератор и будет громко ругаться.
Да и шансов получить ответ будет больше.
PM MAIL   Вверх
Alex
Дата 30.6.2005, 10:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 4
Всего: 162



Цитата(Snowy @ 24.6.2005, 10:54)
А то придет злой модератор и будет громко ругаться

Будет!
Модератор: Пожалуйста, один топик - один вопрос. Тема закрыта.


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
mrVerus
Дата 10.3.2009, 07:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 10.3.2009

Репутация: нет
Всего: нет



Парни помогите очень нужно получить письмо и сожранить его с аттачментом в файл *.eml не изменяя структуры  оставить для других клиентских программ не дешифруя а просто сохронить. Зарание спасибо!!!
PM MAIL   Вверх
Matematik
Дата 10.3.2009, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50



mrVerus

> получить письмо и сожранить его с аттачментом в файл *.eml не изменяя структуры 

Пример соединения с POP3 есть вверху.
Вместо Retrieve() пользуй RetrieveRaw(), метод получает письмо, ничего в нем не меняя, и сохраняет его в TStringList, который можно далее сохранить в файл

Код

// var sl:TStringList;
sl := TStringList.Create;
try
  pop.RetrieveRaw(mc, sl); 
  sl.SaveToFile('mail.eml');
finally
  sl.Free;
end


PM MAIL WWW ICQ   Вверх
mrVerus
Дата 11.3.2009, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 10.3.2009

Репутация: нет
Всего: нет



Спасибо тебе Matematik огромное. Я пишу почтовый сервер для лакалки с пересылкой на внешний почтовый ящик на номпонентах idSMTPServer,idPOP3Server,idPOP3 и idSMTP. Сколько код не долбил и читал описание получения нормально нигде не описано с серверами хоть как то понятно. Еще раз спасиб.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.1098 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.