Версия для печати
Определение даты и времени компиляции
http://www.delphikingdom.com/asp/viewitem.asp?catalogID=1143Денис
дата публикации 20-07-2005 04:46Очень часто в окне “About” различных программ можно наблюдать не только сведения о версии программы, но и дате и времени компиляции. Насколько мне известно, Delphi не дает стандартных способов определения данной величины, но получить ее все же можно.
Воспользуемся тем фактом, что независимо от того были ли сохранены изменения, сделанные в свойствах компонентов формы или нет, в конечный exe-файл все равно попадут измененные. То есть для проекта с несохраненными свойствами можно приравнять момент компиляции с моментом записи измененных свойств в поток (ситуацию с полностью сохраненным проектом рассмотрим позднее). Как же отловить момент записи? К счастью, Delphi позволяет нам создавать свои компоненты и создавать и сохранять в файл формы не стандартные свойства путем перекрытия метода DefineProperties.
Создадим новый компонентРегистрируем его, ложем на форму, пишем простенький обработчик OnCreate
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;
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.
К материалу прилагаются файлы:
- Исходный текст компонента TdecCompileTime и TdecVersionInfo (6.6 K) обновление от 7/20/2005 4:52:00 AM