Каталог статей Delphi Report
Документ .doc как ресурс в dll.
Задача: открыть шаблон счет-фактуры в приложении. Для начала создадим наш файл dll. Это подробно описано в статье "Dll с ресурсами" В нашем случае файл ресурсов будет выглядеть следующим образом schetf RCDATA "s4et-f.doc"
, где "s4et-f.doc" - шаблон счета-фактуры, который лежит в той же папке
После компилировки имеем ресурс dll, например doc.dll. Используем его и модуль для работы с Word и откроем документ:
var h: THandle; rStream: TResourceStream; fStream: TFileStream; fname: string; begin h:= LoadLibrary('Doc.Dll'); fname := ExtractFileDir(Paramstr(0))+'schetf.doc'; rStream := TResourceStream.Create(h, 'schetf', RT_RCDATA) ; try fStream := TFileStream.Create(fname, fmCreate) ; try fStream.CopyFrom(rStream, 0) ; finally fStream.Free; end; finally rStream.Free; end; CreateWord; VisibleWord(true); OpenDoc(fname); end;
|
Категория: MS Word | Добавил: delphi (20.02.2009)
|
Просмотров: 4266 | Комментарии: 1
| Рейтинг: 5.0/3 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
Google
|