Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Сокровищница
  
 

Фильтр по датам

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 10:35 Владимир Метальников
 10:32 Geo
 
 
Во Флориде и в Королевстве сейчас  10:46[Войти] | [Зарегистрироваться]

Выполнение некоторых действий до и после компиляции проекта

Cepгей Poщин
дата публикации 14-02-2010 13:02

Выполнение некоторых действий до и после компиляции проекта

Позвольте представить небольшой эксперт, который добавляет в главное меню IDE Delphi пункт Run/Полная сборка и запуск. Как следует из названия, он выполняет полную перекомпиляцию проекта (команда Project/Build) и запуск приложения (Run/Run). Кроме того он позволяет выполнить некоторые действия перед и после команды Build.

Этот эксперт создавался для Delphi 5, с использованием кода из пакета Jedi Code Format, поэтому встречаются комментарии на английском языке и Warning`и.

В тексте запускающей команды можно использовать макросы, которые при выполнении будут заменены на соответствующий текст:

$PROJECT — полное имя файла проекта

$EXENAME — полное имя откомпилированного файла (exe, dll, ocx)

$HOSTNAME — полное имя запускающего приложения (Run/Parameters/Host Application)

$PARAMS — параметры запускающего приложения (Run/Parameters/Parameters)

Обращаю внимание, что пути могут содержать пробелы и для правильной работы надо не забывать ставить двойные кавычки там, где это требуется.

Инсталляция

В прилагаемом архиве содержаться пакеты для Delphi 5 (ExecutePlug5.dpk), Delphi 6, 7 (ExecutePlug7.dpk), Delphi 2005-2010 (ExecutePlug12.dpk). Для того, чтобы внедрить предлагаемый эксперт в среду Delphi, откройте файл ExecutePlugNN.dpk, затем:

Для Delphi 2005 и старше, откройте окно Project Manager (Ctrl+Alt+F11), по правому клику на пункте ExecutePlug12.bpl выберите пункт контекстного меню install.

Для младших версий, в окошке проекта нажмите кнопку install.

Как это работает

Как и в любом пакете, определена процедура Register (см. модуль UnitRegister.pas), внутри которой должна осуществляться регистрация любых данных в среде разработки Delphi. Эта процедура вызывается при запуске среды, инсталляции пакета и при перекомпиляции инсталлированного пакета. Внутри этой процедуры следовало бы создать пункт меню, однако, в момент её вызова, вероятно, графический интерфейс оказывается еще не до конца проинициализированным, поэтому могут возникнуть ошибки (по крайней мере, в ранних версиях). По этому «перешагиваем грабли» и немного ждём, пока меню IDE будет полностью сформировано. Для этого выполняем добавление своего пункта меню (процедура AddMenuItems) используя таймер.

Удаление пунктов меню выполняет процедура RemoveMenuItems вызываемая в разделе finalization.

Для осуществления доступа к IDE используется глобальная переменная BorlandIDEServices из стандартной библиотеки ToolsAPI и множество интерфейсов. Получить нужный интерфейс можно несколькими способами:

Var 
  Переменная: Тип; 
  Результат: HResult; 
  Результат := BorlandIDEServices.QueryInterface({Тип}, {Переменная}); 
  Переменная := BorlandIDEServices as {Тип}; 
  Переменная := Тип(BorlandIDEServices);

В первом случае Вы можете самостоятельно выяснить был ли получен запрашиваемый интерфейс, в остальных будет сформировано исключение, если интерфейс не может быть получен. Чтобы получить доступ к главному меню воспользуемся интерфейсом INTAServices.

function GetToolsMenu(MenuName: string): TMenuItem; 
var 
  lciMenuServices: INTAServices40; 
  lcMainMenu: TMenu; 
begin{ запрашиваем необходимый интерфейс } 
  BorlandIDEServices.QueryInterface(INTAServices40, lciMenuServices); 
  … 
  { текущее главное меню } 
  lcMainMenu := lciMenuServices.MainMenu; 
  { находим пункт меню по заголовку } 
  Result := lcMainMenu.Items.Find(MenuName); 
end;

Обратите внимание, что по мере появления новых версий Delphi появляются и новые методы в наследниках интерфейса, в результате появляется довольно длинная цепочка наследований напр.:

IUnknown > INTAServices40 > INTAServices70 > INTAServices90 > INTAServices

Можно всегда использовать название интерфейса без номера, но тогда существует вероятность, что вы воспользуетесь методом, который не поддерживается в более ранних версиях.

Получив главное меню, искать существующие пункты и добавлять свои можно, как в обычной программе. Чтобы создать новый пункт меню сначала создаём действие TAction и добавляеем в общий список действий Delphi (INTAServices.ActionList), затем это действие привязываем к новому пункту меню.

Не буду останавливаться на создании формы.

Отображение формы, выполнение нужных команд и полная сборка проекта выполняется в методе TCepIdeMain.DoSpecBuild (см. модуль UnitMain).

Для выполнения компиляции необходимо получить доступ к активному проекту (см. функцию GetCurrentProject). Здесь, воспользовавшись интерфейсом IOTAModuleServices, получаем список модулей, из него выбираем тот, который является активным (если открыта группа проектов) модулем проекта. Найденный проект компилируем:

Proj.ProjectBuilder.BuildProject(cmOTABuild, false, true)

Для определения имени файла, который получится в результате компиляции, в версиях начиная 2005, можно использовать функцию IOTAProject.ProjectOptions.TargetName, а для более ранних версий это не такая уж и простая задача, которая реализована в модуле PCustFunc, автором которого является Юрий Спектор (Ins).

Для определения параметров запуска используется свойство IOTAProject.ProjectOptions.Values

Для записи информационных сообщений в журнал (окошко, где появляются сообщения об ошибках) используется метод IOTAMessageServices.lciMessages.AddToolMessage.

P.S. С выходом Delphi 2009 подобная функциональность появилась в стандартной IDE, однако надеюсь, статья будет кому-то полезна.

К материалу прилагаются файлы:




Смотрите также материалы по темам:


 Обсуждение материала [ 11-02-2011 18:13 ] 3 сообщения
  
Время на сайте: GMT минус 5 часов

Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
Функция может не работать в некоторых версиях броузеров.

Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

 
© При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
Все используемые на сайте торговые марки являются собственностью их производителей.

Яндекс цитирования