Форум: "Сети";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
Вниздекодирование почтового сообщения Найти похожие ветки
← →
anton773 © (2006-03-26 18:59) [0]Здравствуйте!Прошу прошения если вопрос подобный моему уже задавался.Ответа на него я нигде не нашел. Пытаюсь декодировать почтовое сообщение следующим образом:
procedure TForm2.ListView1Click(Sender: TObject);
В ответ получаю ошибку uneven size in decodeTostream КАк правильно декодировать сообщение?
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);
← →
anton773 © (2006-03-30 21:26) [1]Проблема была в том,что я пытался декодировать сообщение полностью.
for i:=0 to idMessage1.Body.Count-1 do
а надо только определенный раздел (messageparts).теперь проблема как выдернуть требуемый messageparts из тела письма Люди добрые помогите!
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.033 c