VPF::Как вытащить attach? - Форум программистов

saider84

Дата 25.4.2008, 10:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток.
Есть такая проблема.
Входные данные - это письмо в string. Необходимо выцарапать аттач.
Пытаюсь сделать через TIDMessage. пытаюсь сделать через LoadFormStream и LoadFormFile ничего не выходит.
Пытаюсь добавить строку в Body? тоже пустоту отображает.
Помогите советом.

Код


var
  i : Integer;
  s : string;
  AStream: TMemoryStream;
  IdMessage1: TIdMessage;
begin
  AStream.WriteBuffer(PChar(s)^, Length(s));
  AStream.Position := 0;

    IdMessage1 := TIdMessage.Create(nil);
    IdMessage1.Clear;
    IdMessage1.LoadFromStream(AStream);
    for i := 0 to IdMessage1.MessageParts.Count - 1 do
    begin
      if (IdMessage1.MessageParts.Items[i] is TIdAttachment) then
        TIdAttachment(IdMessage1.MessageParts.Items[i]).SaveToFile('C:\' + TIdAttachment(IdMessage1.MessageParts.Items[i]).fileName);
    end;

Компилируется без проблем, но вот при отработке вылетает с ошибкой Run Time

Snowy

Дата 25.4.2008, 18:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Попробуй этот код
http://forum.vingrad.ru/index.php?showtopi...st&p=653448

saider84

Дата 27.4.2008, 19:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Snowy!
У меня возникает проблема при загрузке данных в IdMessage, а не при их обработке, т.к. пока не загрузишь, так и обрабатывать будет нечего.
Жду советов

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