Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Build with runtime packages


Автор: Bose 5.3.2007, 17:06
Подскажите пожалуйста, можно ли как-нибудь в приложении проверить с какими настройками packages оно было скомпилировано: с использованием runtime packages, или без них. 
Заранее спасибо.

Автор: _hunter 5.3.2007, 17:37
лехко: смотриш зависимости, если там есть всякие vcl'ы -- значит с использованием.

Автор: Alexeis 5.3.2007, 17:44
Bose, Пакеты это же Dll переменованные в bpl, потому первое, что напрашивается поискать в списке Dll стандарные Bpl ки. Если есть значит компиллировали с ними, но на самом деле их можно ведь подгружать динамически, потому если в тот момент они не загружены, то и не узнать. Но скажем, когда уже создана форма основные VCL ские уже должны быть в памяти.

Автор: Snowy 5.3.2007, 18:12
Все bpl-ки прописаны в таблице импорта smile
Задача сводится к просмотру таблицы импорта на предмет файлов с расширением bpl.

Автор: Bose 5.3.2007, 18:48
Спасибо, но я прктически ничего не понял. Что-то Вы меня совсем напугали...  smile

На всякий случай уточню: 
Цитата

 Мне нужно, чтобы моё приложение при запуске определяло, каким образом оно было скомпилитровано.  
Собственно говоря мне нужна постоянная напоминалка на случай если при компиляции я забыл убрать галочку с: Build With Runtime Packages. Может есть какие-то директивы, для проверки(сам я не нашел). Может можно как-то через код проверить. 



Цитата(_hunter @  5.3.2007,  17:37 Найти цитируемый пост)
лехко: смотриш зависимости, если там есть всякие vcl'ы -- значит с использованием.

Как их смотреть, можно поподробнее?

Цитата(Alexeis @  5.3.2007,  17:44 Найти цитируемый пост)
Bose, Пакеты это же Dll переменованные в bpl, потому первое, что напрашивается поискать в списке Dll стандарные Bpl ки. Если есть значит компиллировали с ними.

Как этот список просмотреть? Список Dll - это где? :O

Цитата
но на самом деле их можно ведь подгружать динамически, потому если в тот момент они не загружены, то и не узнать.

А по умолчанию, без "извратов" с подгрузкой их в своём коде, они же будут грузиться при запуске приложения, да?

Цитата(Snowy @  5.3.2007,  18:12 Найти цитируемый пост)
Все bpl-ки прописаны в таблице импорта Задача сводится к просмотру таблицы импорта на предмет файлов с расширением bpl.

 smile  smile  smile 
* нет слов, застыл с отвисшей челюстью *

Спасибо за ответы. В общем, если тривиального и простого решения не существует, то не тратьте своё время. Задача не обязательна для решения.  smile 

Автор: Snowy 5.3.2007, 19:21
Ну... Простое решение - GetPackageInfo.
Если в списке модулей отсутствует System - значит скомпилено с пакетами smile
Просто я думал, что тебе список пакетов нужен, а не сам факт smile

Автор: _hunter 5.3.2007, 20:02
Цитата(Bose @  5.3.2007,  18:48 Найти цитируемый пост)
Как их смотреть, можно поподробнее?

tdump'ом
но если это для самотестирования нужно -- придется разбирать ехе-шник. описание формата где-то на MSDN'е видел...

Автор: Snowy 5.3.2007, 21:17
Да, блин. Если нужно просто определить факт юзанья, то не нужно ничего разбирать.
Всё просто.
Определить, юзает ли программа пакаджи можно так:
Код

procedure PackageInfoProc(const Name: string; NameType: TNameType; Flags: Byte; Param: Pointer);
begin
  if Name = 'System' then PInt(Param)^ := 0;
end;
function ExeUsePackages(FileName: string): boolean;
var
  h: THandle;
  Flag: integer;
begin
  result := false; Flag := 0;
  h := LoadLibrary(PChar(FileName));
  if h = 0 then Exit;
  result := true;
  GetPackageInfo(h, @result, Flag, PackageInfoProc);
  FreeLibrary(h);
end;
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ExeUsePackages(ParamStr(0)) then
    ShowMessage('Да, я юзаю пакаджи!')
  else
    ShowMessage('Нет, пакаджей я не юзаю')
end;
Ахтунг! Применимо только к дельфийским ехе.

Автор: Bose 5.3.2007, 21:24
Snowy, - как всегда поразил недюженными знаниями. Спасибо большое. Буду плясать от GetPackageInfo smile Как оказалось, в хелпе есть группа топиков: 
Package support routines

_hunter, спасибо за идею. Но, задача не критичная, и "чем решать её таким трудом, имхо, проще не решать вообще ". Я попробую через процедуры поддержки Packages в Delphi. 

Спасибо за ответы, о результатах отпишусь завтра.  smile 

Автор: Bose 6.3.2007, 00:23
Цитата(Snowy @  5.3.2007,  21:17 Найти цитируемый пост)
Да, блин. Если нужно просто определить факт юзанья, то не нужно ничего разбирать.Всё просто.


Огромное спасибо![+] Сам бы я эту функцию мучал бы намного дольше.  smile

Добавлено @ 00:27 
Проверил, вариант Snowy работает как часы. :-)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)