Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ПОмогите ктонить, я сойду с ума с этими indy и mime [D6, NT4]

Shil © (2002-07-17 20:40:00)
ДЕло в следующем:
при помощи помпонентов инди я забираю письмо

MsgIn:= TIdMessage.Create(NIL);
pop.Retrieve(1,MsgIn)
pop.Delete(1);
pop.Disconnect;
, потом я патаюсь отослать его по другому адресу, Т.Е. Я ДЕЛАЮ

MsgIn.Recipients.EMailAddresses:="Shil@ctinet.ru";
smtp.Connect;
smtp.Send(MsgIn);
smtp.Disconnect;

Всё вроде хорошо, но только пока......:(
как только я пытаюсь так же переправить писть мо которое не имеет састей точнее емеет 1 (MsgIn.MessageParts.Count=1) то в этом (smtp.Send(MsgIn);) месте прога ломаеться и говорить некую фразу "Invalid text count. TidText must be greater then 1" и не могу с этим ничего поделать поМОГИТЕ ГУРУ ПЛИЗЗЗЗЗ

Shil (2002-07-29 13:19:00) [1]
В продолжении indy: После того как Я проверяю ящик и засовываю письмо в MsgIn, в случае аттача я делаю так:

TIdAttachment(MsgIn.MessageParts[i]).SaveToFile(AttachDick+TIdAttachment(MsgIn.MessageParts[i]).FileName);

После этого я меняю получателя

MsgIN.Recipients.EMailAddresses:= "MY@mail.ru"

а когда я отправляю письмо

IdSMTP1.Send(MsgIN);

Он регаеться на то что не могу открыть этот самый приаттаченный файл!!!
Посоветуйте ПЛИзз

Victor N Golutvin (2002-07-19 12:21:00) [2]
Господи! Неужели я настолько слеп?.. Я не видел в функциях определения DecodeString! Очень жаль, но я сейчас на работе, здесь нет Делфи. Приду домой, обязательно попробую. А ведь все логично. Почему-бы не быть функции Decode, если есть Encode? Обязательно посмотрю..
Спасибо.

SerVS (2002-07-18 23:09:00) [3]
>Victor N Golutvin
А кодируешь ты как?
Надо так
TIdEncoderMIME.EncodeString(s)
ну и тогда, соответственно:
TIdEncoderMIME.DecodeString(s)

Victor N Golutvin (2002-07-18 16:03:00) [4]
Коллеги!
А если мне нужно применить от INDY кодирование/декодирование просто файлов из/в BASE64, UU,XX, QuotedPrintable? Можно-ли это? Как? Вроде, кодировать произвольную строку я научился. Но не научился декодировать.. Хи-хи..
Спасибо заранее.

SerVS (2002-07-18 14:32:00) [5]
1. with TIdText.Create(msgLetter.MessageParts, msgText) do
ContentType := "text/html";
2. Смотри в Аутлуке, Свойства->Исходное сообщение
3. Постовляются вместе с Инди. Смотри в \Demos\Indy или на сайте

Shil (2002-07-18 09:48:00) [6]
TO SerVs
1) а как можно создать или добавить часть(Только подробнее а то я уже всё перепробывал)
2)Что значит без использования Mime отправяется
3)Где есть примеры?

SerVS (2002-07-18 01:03:00) [7]
Насколько я помню, чаcтей в MessageParts должно быть минимум две, если она одна, то письмо отсылаеться без использования MIME.

ЗЫ.Там есть примеры посмотри их

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »