VPF::Файл ресурсов - Форум программистов

lotax

Дата 7.10.2005, 06:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.4.2005
Где: KZ

Репутация: нет
Всего: нет

Привет всем!!!

Вопрос:
Есть 2 файла (Shablon1.xlt, Shablon2.xlt), так вот, как эти файлы загнать в ресурс, и вызвать их в Delphi (скомпилировать в exe файл).

Если можно пример.

--------------------

Говори, что думаешь и думай, что говоришь.

Rennigth

Дата 7.10.2005, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

создаешь .rc файл, в нем пишешь что-то вроде

Код


Shablon1 RCData "c:\Shablon1.xlt"
Shablon2 RCData "c:\Shablon2.xlt"

Подключаешь его к проекту.
Доступ можешь получить темже ResourceStream-ом.

--------------------

(* Honesta mors turpi vita potior *)

lotax

Дата 7.10.2005, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.4.2005
Где: KZ

Репутация: нет
Всего: нет

... а можно точнее, как вызвать этот файл.
Например. я вызываю этот файл

Код


procedure TForm1.ToExcel;

var
    App         : Variant;

begin
  AppProgID := 'Excel.Application';
  Result := GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
  if (Result = MK_E_UNAVAILABLE) then
    App := CreateOleObject(AppProgID)
  else
    App := GetActiveOleObject(AppProgID);

  App.WorkBooks.Open('c:\Shablon1.xlt');
end;

а из ресурса...?

Это сообщение отредактировал(а) Girder - 8.10.2005, 23:11

--------------------

Говори, что думаешь и думай, что говоришь.

Rennigth

Дата 7.10.2005, 13:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

ты можешь временно сохранять на диск, типа:

Код


var
  lStrm: TResourceStream;
begin
  lStrm := TResourceStream.Create(Hinstance, 'Shablon1', Pchar('RCData'));
  try
    lStrm.SaveToFile('C:\Shablon1.xlt');
  finally
    lStrm.Free; 
  end;
end;

а потом удалять.
или наверника можно прямо стрим туда совать.
PS: нет времени смотреть может попозже...

--------------------

(* Honesta mors turpi vita potior *)

lotax

Дата 7.10.2005, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.4.2005
Где: KZ

Репутация: нет
Всего: нет

ок. Спасибо за помощь!!!

--------------------

Говори, что думаешь и думай, что говоришь.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »