VPF::Indy сохраняет вложения из EML не в том порядке...

User32

Дата 8.4.2009, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Разбираю письмо EML при помощи Indy, и столкнулся с такой проблемой:
Indy уменя почемуто сохраняет вложения из EML не в том порядке в каком предполагается.

Для разбора письма я делаю так:

Код


var IdMes: TIdMessage;
...
for i := 0 to IdMes.MessageParts.Count - 1 do
begin
  if IdMes.MessageParts[i].ContentType <> 'text/rtf' then //application/octet-stream
  if IdMes.MessageParts[i] is TIdAttachment then
  begin
    ListView1.AddItem(TIdAttachment(IdMes.MessageParts[i]).FileName, nil);
  end;
end;

и добавляю все вложения для наглядности в ListView1.
Но когда я хочу сохранить выбранное вложение из ListView1 на диск, то получаю не то вложение что выбрал...

Код


procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if not Selected then Exit else
  begin
    ShowMessage(ListView1.Selected.Caption); //DEBUG #1 !!! ВЫБИРАЮ ОДНО 
    ShowMessage(IntToStr(ListView1.ItemIndex + 1)); //DEBUG #2 !!! ВЫБИРАЮ ОДНО 

    SaveDialog1.FileName := TIdAttachment(IdMes.MessageParts[ListView1.ItemIndex + 1]).FileName; // А ПОЛУЧАЮ ДРУГОЕ
    if not SaveDialog1.Execute then Exit else
    TIdAttachment(IdMes.MessageParts[ListView1.ItemIndex + 1]).SaveToFile(SaveDialog1.FileName); // А ПОЛУЧАЮ ДРУГОЕ
  end;
end;

В чем причина и как лечить?

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