Версия для печати


Определение даты и времени компиляции
http://www.delphikingdom.com/asp/viewitem.asp?catalogID=1143

Денис
дата публикации 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.



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