Каталог статей 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)
|
| Просмотров: 4278 | Комментарии: 1
| Рейтинг: 5.0/3 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
Google
|
