Пятница, 15.11.2024, 14:46
Приветствую Вас Гость | RSS

DELPHI Report

Каталог статей Delphi Report

Главная » Статьи » MS Office (MS Word, MS Excel ) » MS Word

Документ .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
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
Google
Форма входа
Категории раздела
MS Excel [22] MS Word [18]
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2024