powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Взаимодействие с Microsoft Outlook (Berlin)
3 сообщений из 3, страница 1 из 1
Взаимодействие с Microsoft Outlook (Berlin)
    #39722823
Hadroran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Используя следующий код (из топика Взаимодействие с Microsoft Outlook . Спрятано под "плюсиком" после второго заработанного пива), любезно предоставленный пользователем Aniskin , для копирования вложенных файлов Outlook в свою директорию. Как я понял, код был предназначен для Delphi 7.
Соответственно для Берлина пришлось сменить тип переменных Read и Written с Int64 на UInt64.

Проблема заключается в том, что при выполнении команды
Код: pascal
1.
OleCheck(SourceStream.CopyTo(DestStream, 0, Read, Written));

("-1" тоже пришлось поменять на 0)

все файлы копировались в заданный каталог с нулевым размером. Это было вылечено подстановкой вместо "0" значения FileDescriptorW.nFileSizeLow. Однако это сработало только для копирования и вставки файлов из проводника. При попытке копипасты файлов из Outlook они по-прежнему с нулевым размером (FileDescriptorW.nFileSizeLow соответственно равен 0).
Подскажите, что не так делаю???

Спасибо.
...
Рейтинг: 0 / 0
Взаимодействие с Microsoft Outlook (Berlin)
    #39722840
Aniskin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
> ("-1" тоже пришлось поменять на 0)
Вот это ты зря...

OleCheck(SourceStream.CopyTo(DestStream, UInt64(-1), Read, Written));
...
Рейтинг: 0 / 0
Взаимодействие с Microsoft Outlook (Berlin)
    #39722843
Hadroran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Aniskin,

Хвала Богам... У меня была такая мысля сначала, но чтот она мне не понравилась и даже не попробовал.

Все от лени...

Спасибо.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Взаимодействие с Microsoft Outlook (Berlin)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]