VPF::Работа с MAPI - Форум программистов

E_v_g

Дата 26.6.2007, 04:08 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нужно найти в письме все вложения и сохранить их. Делаю так:

Код


err := MAPIFindNext(0, 0, nil, nil, MAPI_LONG_MSGID OR MAPI_GUARANTEE_FIFO, 0, PP);
MAPIReadMail(0, 0, PP, 0, 0, PMess);
if PMess^.nFileCount > 0 then
            begin
              s := StrPas(PMess^.lpFiles^.lpszPathName);
              LogError('Найдено вложение - ' + s);
              ss := PMess^.lpFiles^.lpszFileName;
              ss := ExtractFileName(ss);
              ss := Edit2.Text + '\' + ss;
              CopyFile(PChar(s), PChar(ss), false)
          end

Это работает, если в письме одно вложение. Но вот никак не могу разобраться, как сохранить несколько вложений. Почитал SDK, там вроде lpFiles представляет собой массив, и в примерах с ним работают, как с массивом, т.е. обращаются к элементам по индексу и т.д., но в Delphi в структуре MapiFileDesc он определен как LPSTR, LPSTR = PAnsiChar. PAnsiChar - это указатель на строку, правильно? smile

Подкиньте мысль, пожалуйста, как все-таки вытащить все вложения.

DIMONSOFT

Дата 2.7.2007, 20:22 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 19.12.2004
Где: Киев

Репутация: -1
Всего: -3

Код


Attachment: TStringList

nFileCount := Attachment.Count;{количество файлов-приложений в массиве lpFiles.}
     lpFiles := @MapiFileDesc[0];{указатель на структуру, содержащую информацию
                                  о всех файлах, приложенных к сообщению}

--------------------

E_v_g

Дата 7.7.2007, 06:13 (ссылка)

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

Загрузка ...

Шустрый

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

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

Этот код подойдет для создания нового сообщения с вложением, но не для чтения. Переделал:

Код


var
    str : TStringList;
..........
if PMess^.nFileCount > 0 then
            begin
              str := @PMess^.lpFiles^.lpszPathName;
              s := str.Strings[1];

Теперь при выполнении s := str.Strings[1]; выскакивает ошибка: Acceess violation. Что делать?

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