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

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

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


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

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

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

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

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

 
   
С Л С

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

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

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

Квинтана

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

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

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

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

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 07:53 Den Sarych
 
 
Во Флориде и в Королевстве сейчас  08:05[Войти] | [Зарегистрироваться]

Определение даты и времени компиляции

Денис
дата публикации 20-07-2005 04:46

Очень часто в окне “About” различных программ можно наблюдать не только сведения о версии программы, но и дате и времени компиляции. Насколько мне известно, Delphi не дает стандартных способов определения данной величины, но получить ее все же можно.

Воспользуемся тем фактом, что независимо от того были ли сохранены изменения, сделанные в свойствах компонентов формы или нет, в конечный exe-файл все равно попадут измененные. То есть для проекта с несохраненными свойствами можно приравнять момент компиляции с моментом записи измененных свойств в поток (ситуацию с полностью сохраненным проектом рассмотрим позднее). Как же отловить момент записи? К счастью, Delphi позволяет нам создавать свои компоненты и создавать и сохранять в файл формы не стандартные свойства путем перекрытия метода DefineProperties.

Создадим новый компонент

interface

type
  TdecCompileTime = class(TComponent)
  private
    procedure SaveCompTime(Writer: TWriter);
    procedure LoadCompTime(Reader: TReader);
  protected
    procedure DefineProperties(Filer: TFiler); override;
  private
    FCompilationTime: TDateTime;
  public
    property CompilationTime: TDateTime read FCompilationTime;
  end;

implementation

procedure TdecCompileTime.SaveCompTime(Writer: TWriter);
begin
// Получаем время “компиляции” и сохраняем его
  Writer.WriteDate(Now);
end;

procedure TdecCompileTime.LoadCompTime(Reader: TReader);
begin
// Получаем сохраненное время
  FCompilationTime := Reader.ReadDate;
end;

procedure TdecCompileTime.DefineProperties(Filer: TFiler);
begin
  inherited;
  Filer.DefineProperty('CompilTime', LoadCompTime, SaveCompTime,
true);
end;

Регистрируем его, ложем на форму, пишем простенький обработчик OnCreate

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := DateTimeToStr(decCompileTime1.CompilationTime);
end;

и получаем в заголовке наше время. Но вот беда, если мы сохраним форму и перекомпилируем, то после запуска увидим, что время, отображенное в заголовке, не совпадает со временем компиляции. Дело в том, что Delphi в целях оптимизации времени компиляции (наверное) не сохраняет форму заново, и помещает в ресурсы выходного exe-файла имеющийся dfm-файл нашей формы, в котором записано старое время. Как же нам заставить сохранять форму при каждой компиляции?

TForm, владелица нашего компонента имеет свойство Designer, имеющее метод Modified. “When any change is made to a component the property and component editors call this method, allowing the designer to respond to the change” гласит нам все знающий Help. То есть нам достаточно вызвать его после сохранения, и IDE будет считать, что наша форма изменилась, и при следующей компиляции запишет форму заново.

Просто вставить TCustomForm(Owner).Designer.Modified в процедуру SaveCompTime, к сожалению, не удастся. Что бы сие действо возымело эффект, необходимо вызывать этот метод через некоторое время после сохранения. Воспользуемся обыкновенным TTimer.

interface

type
  TdecCompileTime = class(TComponent)
  public
    constructor Create(AOwner: TComponent); override;
  private
    procedure LoadCompTime(Reader: TReader);
    procedure SaveCompTime(Writer: TWriter);
  protected
    procedure DefineProperties(Filer: TFiler); override;
  private
    FTimer: TTimer;
    procedure OnTimer(Sender: TObject);
  private
    FCompilationTime: TDateTime;
  public
    property CompilationTime: TDateTime read FCompilationTime;
  end;

implementation

constructor TdecCompileTime.Create(AOwner: TComponent);
begin
  inherited;
  FTimer := nil;
  if csDesigning in ComponentState then
    begin
      FTimer := TTimer.Create(Self);
      FTimer.OnTimer := Self.OnTimer;
    end;
end;

procedure TdecCompileTime.SaveCompTime(Writer: TWriter);
begin
  Writer.WriteDate(Date + Time);
  if FTimer <> nil then FTimer.Enabled := true;
end;

procedure TdecCompileTime.OnTimer(Sender: TObject);
begin
  if (Owner <> nil) and (Owner is TCustomForm) and
(TCustomForm(Owner).Designer <> nil) then
    TCustomForm(Owner).Designer.Modified;
  FTimer.Enabled := false;
end;

Теперь форма всегда будет записываться в exe-файл с правильным временем компиляции, но лишь при условии, что открыт не только модуль формы, но и сама форма загружена.

Возможно, приведенный способ определения даты и времени компиляции слегка грубоват, но другого способа я не нашел. В приложении вы можете найти сам компонент, а также компонент TdecVersionInfo, слегка расширяющий возможности TdecCompileTime.



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


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


 Обсуждение материала [ 22-04-2014 02:02 ] 6 сообщений
  
Время на сайте: 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» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
Все используемые на сайте торговые марки являются собственностью их производителей.

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