Word.Application - загрузка из потока

← →
bss (2011-02-16 17:26) [0]

Имеем дело с COM/OLE-объектом "Word.Application" и его документами.

Есть ли способ загрузить файл из памяти, а не с диска? Не OLE-информацию всю, а допустим имеем из базы Stream с данными в формате файла .doc

Также интересует сохранение.

← →
Игорь Шевченко © (2011-02-16 18:39) [1]

сохранить во временный файл, загрузить из файла

← →
bss (2011-02-16 18:54) [2]

Фиг, мы легких путей не ищем )))

Вот мое творчество.

Допустим, OleDocument - Это документ Word"а (или Workbook эксела):

procedure TfrmRG_DocOut.SaveDocumentToStream(Stream: TStream); var TempStorage: IStorage; PersistStorage: IPersistStorage; TempLockBytes: ILockBytes; DataHandle: HGlobal; Buffer: Pointer; begin (IDispatch(OleDocument) as IOleObject).QueryInterface(IPersistStorage, PersistStorage); if PersistStorage <> nil then begin OleCheck(CreateILockBytesOnHGlobal(0, True, TempLockBytes)); OleCheck(StgCreateDocfileOnILockBytes(TempLockBytes, STGM_READWRITE or STGM_SHARE_EXCLUSIVE or STGM_CREATE, 0, TempStorage)); OleCheck(OleSave(PersistStorage, TempStorage, False)); PersistStorage.SaveCompleted(nil); OleCheck(GetHGlobalFromILockBytes(TempLockBytes, DataHandle)); Buffer := GlobalLock(DataHandle); try Stream.Size := GlobalSize(DataHandle) ; Stream.Position := 0; Stream.WriteBuffer(Buffer^, Stream.Size); finally GlobalUnlock(DataHandle); end; end; end;

← →
Игорь Шевченко © (2011-02-16 20:33) [3]

> Вот мое творчество.

Как бы вас всех, творцов, собрать в одно место... :)

← →
Leonid Troyanovsky © (2011-02-16 22:42) [4]

> Игорь Шевченко © (16.02.11 20:33) [3]

> Как бы вас всех, творцов, собрать в одно место... :)

В дом творчества.
Скажем, Верзоль.

--
Regards, LVT.

← →
Игорь Шевченко © (2011-02-16 23:10) [5]

> Скажем, Верзоль.

оценил :)

← →
bss (2011-02-17 11:16) [6]

Игорь, хотите сказать, что код не очень хороший? В целом, принципы взяты из кодов VCL, так шо без наездов плиз ))

> [4] Leonid Troyanovsky © (16.02.11 22:42)
> В дом творчества.
> Скажем, Верзоль.

Путин вчера пердложил владивостокским таможенникам заняться творчеством в ДК Таможенник, а не на рабочем месте клипы снимать о своей рулезной крутизне.

> Игорь, хотите сказать, что код не очень хороший? В целом,
> принципы взяты из кодов VCL, так шо без наездов плиз ))

Ссылка на чужой код не состоятельна, откуда бы этот код не был взят.

Word.Application - загрузка из потока Найти похожие ветки