Скачать: CL | DM;

декодирование почтового сообщения   Найти похожие ветки 

← →
anton773 ©   (2006-03-26 18:59) [0]

Здравствуйте!Прошу прошения если вопрос подобный моему уже задавался.Ответа на него я нигде не нашел.  Пытаюсь декодировать почтовое сообщение следующим образом:                  procedure TForm2.ListView1Click(Sender: TObject);
var
b: integer;
c: integer;
i: integer;

begin
IdMessage1.Clear;
b:= ListView1.Selected.Index-1;
c:= a - b;

IdPOP31.Retrieve(c,IdMessage1);
IdMessage1 := TIDMessage.Create(Self);
IdPOP31.Retrieve(c,IdMessage1);
for i:=0 to idMessage1.Body.Count-1 do
idMessage1.Body.Strings[i]:= idDecoderMIME1.DecodeString(idMessage1.Body.Strings[i]);
RxRichEdit1.Lines.Add(idMessage1.Body.text); В ответ получаю ошибку uneven size in decodeTostream КАк правильно декодировать сообщение?

---

← →
anton773 ©   (2006-03-30 21:26) [1]

Проблема была в том,что я пытался декодировать сообщение полностью.for i:=0 to idMessage1.Body.Count-1 doа надо только определенный раздел (messageparts).теперь проблема как выдернуть требуемый messageparts из тела письма Люди добрые помогите!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.045 c