декодирование почтового сообщения [WinXP]
anton773 © (2006-03-26 18:59:00)
Здравствуйте!Прошу прошения если вопрос подобный моему уже
задавался.Ответа на него я нигде не нашел. Пытаюсь
декодировать почтовое сообщение следующим образом:
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:00) [1]
Проблема была в том,что я пытался декодировать сообщение
полностью.
for i:=0 to idMessage1.Body.Count-1 doа надо только
определенный раздел (messageparts).теперь проблема как выдернуть
требуемый messageparts из тела письма Люди добрые помогите!
Наверх 
ЧАТ |
Орешник |
|
