Глава 9. Окна диалога. Часть III

Кирилл Сурков Александр Вальвачев, Дмитрий Сурков, Юрий Четырько дата публикации 12-05-2006 07:19

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

урок из цикла: Учебное пособие по программированию на языке Delphi

предыдущий урок

содержание семинара

9.4. Законченное приложение для выдачи сигналов в заданные моменты времени

9.4.1. Таймер

Таймер — это системный генератор событий, который периодически сообщает программе о завершении заданного промежутка времени. Интервал времени между событиями таймера может устанавливаться в диапазоне от 1 до 65535 миллисекунд. Используя таймер, учитывайте, что интервалы между этими событиями оказываются неточными из-за накладных расходов механизма обработки событий Windows.

В библиотеке VCL прием событий таймера обеспечивает компонент Timer. Он расположен в палитре компонентов на вкладке System (рисунок 9.47). Им мы и воспользуемся для "оживления" будильников в приложении Alarms.

Рисунок 9.47. Компонент Timer

Шаг 30. Активизируйте форму MainForm. Затем поместите в нее компонент Timer (рисунок 9.48). Если хотите, дайте ему любое имя.

Рисунок 9.48. Компонент Timer — на форме

Шаг 31. Интервал времени между событиями таймера задается в миллисекундах как значение свойства Interval. Изначально интервал равен 1000 миллисекунд (1 секунда). Частота контроля будильников должна быть два раза в секунду, поэтому установите свойство Interval в значение 500.

Шаг 32. Через заданные в свойстве Interval промежутки времени в компоненте Timer происходит событие OnTimer (единственное событие этого компонента). Для контроля за будильниками нам нужно создать обработчик этого события:

procedure TMainForm.TimerTimer(Sender: TObject); var I: Integer; begin for I := 0 to AlarmListBox.Items.Count - 1 do with AlarmListBox.Items.Objects[I] as TAlarm do CheckTime; end;

Смысл выполняемых действий очевиден: у каждого объекта в списке будильников вызывается метод CheckTime. Таким образом, каждый будильник периодически проверяет свое время и, если нужно, выдает предупреждение (рисунок 9.49).

Рисунок 9.49. Когда будильник срабатывает, звучит сигнал и на экран выдается сообщение

Выполните компиляцию и запустите программу, чтобы проверить работу всех элементов программы. Ура! Все работает, терпение и упорство вознаграждены.

9.4.2. Файлы настроек

Программа Alarms имеет один существенный недостаток: после его завершения все установленные будильники теряются, так что при следующем запуске программы их приходится создавать снова. Для решения этой проблемы необходимо, чтобы между сеансами работы программы будильники хранились в конфигурационном файле на диске.

Сохранение и восстановление конфигурации осуществляется в Windows с помощью так называемых файлов настроек. Файл настроек (initialization file) — это текстовый файл, состоящий из секций. Секция начинается с имени, заключенного в квадратные скобки. В каждой секции содержатся определения некоторых связанных по смыслу параметров, представленные в виде пар Имя=Значение. Примером файла настроек может служить файл настроек проекта в системе Delphi. В нашем проекте это файл Alarms.dof.

Структуру файла настроек для программы Alarms выберем так, чтобы каждому будильнику соответствовала отдельная секция. Число секций, т.е. будильников, будем хранить в параметре AlarmCount секции Global Options. Вот как могло бы выглядеть содержимое файла:

[Global Options]

AlarmCount=3

[Alarm1]

Message=Dinner !

Time=13:00

PlaySound=1

Recurring=0

[Alarm2]

Message=Tennis training

Time=16:00

PlaySound=1

Recurring=1

[Alarm3]

Message=My favourite TV-show...

Time=22:30

PlaySound=0

Recurring=8

Date=02/25/96

Чтение и запись файла настроек осуществляется с помощью объектов TIniFile (заметьте, они не являются компонентами). Класс TIniFile описан в модуле IniFiles. Этот модуль необходимо самостоятельно добавить в вызывающий модуль с помощью оператора uses. При создании объекта TIniFile ему в конструктор передается имя INI-файла. Позже это имя можно узнать, обратившись к свойству FileName. Если в имени файла маршрут не был указан, считается что INI-файл находится в каталоге системы Windows.

Чтение переменных из INI-файла выполняется с помощью описанных ниже методов. В этих методах название секции передается в параметре Section, имя переменной — в параметре Ident, а значение по-умолчанию — в параметре Default.

ReadBool(const Section, Ident: string; Default: Boolean): Boolean — возвращает значение булевской переменной.

ReadInteger(const Section, Ident: string; Default: Longint): Longint — возвращает значение целочисленной переменной.

ReadString(const Section, Ident, Default: string): string — возвращает значение строковой переменной.

ReadSection(const Section: string; Strings: TStrings) — читает из заданной секции имена всех переменных и помещает их в объект класса TStrings.

ReadSectionValues(const Section: string; Strings: TStrings) — читает из заданной секции все пары Имя=Значение и помещает их в список. Для доступа к Значению по Имени в объектах класса TStrings существуют свойства-массивы Names и Values.

При чтении значений из INI-файла может оказаться, что заданный идентификатор или секция отсутствует. В этом случае ошибки не происходит, а функции ReadBool, ReadInteger и ReadString возвращают значение, переданное в параметре Default.

Кроме методов чтения существуют также методы записи переменных INI-файла, которые описаны ниже. В этих методах название секции передается в параметре Section, имя переменной — в параметре Ident, а значение переменной — в параметре Value.

WriteBool(const Section, Ident: string; Value: Boolean) — записывает в INI-файл булевское значение.

WriteInteger(const Section, Ident: string; Value: Longint) — записывает в INI-файл целочисленное значение.

WriteString(const Section, Ident, Value: string) — записывает в INI-файл строковое значение.

Если в момент записи значения оказывается, что заданные секция и (или) идентификатор отсутствуют, они создаются.

Удаление секций INI-файла осуществляется с помощью метода EraseSection, в который передается единственный параметр — название секции.

Шаг 33. Давайте воспользуемся описанными методами для сохранения и восстановления будильников в программе ALARMS. Работу по сохранению и восстановлению параметров одного будильника лучше всего поручить классу TAlarm. Для этого добавьте в его описание два новых метода — LoadFromIniFile и SaveToIniFile.

type TAlarm = class ... procedure LoadFromIniFile(IniFile: TIniFile; const Section: string); procedure SaveToIniFile(IniFile: TIniFile; const Section: string); end;

Метод LoadFromIniFile предназначен для чтения из INI-файла полей объекта, а метод SaveToIniFile — для записи в INI-файл полей объекта. Секция INI-файла, с которой работают эти методы, передается в параметре Section.

Шаг 34. Наберите программный код методов в разделе implementation:

procedure TAlarm.LoadFromIniFile(IniFile: TIniFile; const Section: string); begin with IniFile do begin // Прочитать текст сообщения MsgText := ReadString(Section, 'Message', 'Reminder !'); // Прочитать строковое значение времени и // преобразовать его в формат TdateTime DateTime := StrToTime(ReadString(Section, 'Time', TimeToStr(Time))); // Прочитать состояние переключателя звука PlaySound := ReadBool(Section, 'PlaySound', True); // Прочитать значение периодичности Recurring := ReadInteger(Section, 'Recurring', 0); if Recurring = 8 then // Прочитать строковое значение даты и // преобразовать его в формат TDateTime DateTime := StrToDate( ReadString(Section, 'Date', DateToStr(Date))) + DateTime; end; end; procedure TAlarm.SaveToIniFile(IniFile: TIniFile; const Section: string); begin with IniFile do begin // Записать текст сообщения WriteString(Section, 'Message', MsgText); // Преобразовать время в строку и записать строку в INI-файл WriteString(Section, 'Time', FormatDateTime('hh:mm', DateTime)); // Записать значение переключателя звука WriteBool(Section, 'PlaySound', PlaySound); // Записать значение периодичности WriteInteger(Section, 'Recurring', Recurring); if Recurring = 8 then // Преобразовать дату в строку и записать строку в INI-файл WriteString(Section, 'Date', DateToStr(DateTime)); end; end;

Шаг 35. Перейдем теперь от сохранения и восстановления одного будильника к загрузке и восстановлению всего списка. Эти действия следует выполнять соответственно при создании и уничтожении главной формы программы, т.е. в событиях OnCreate и OnDestroy. Создайте форме MainForm обработчик события OnCreate и доработайте обработчик события OnDestroy (не забудьте подключить модуль IniFiles):

procedure TMainForm.FormCreate(Sender: TObject); var IniFile: TIniFile; Alarm: TAlarm; AlarmCount, I: Integer; begin IniFile := TIniFile.Create('Alarms.ini'); try // Прочитать число будильников AlarmCount := IniFile.ReadInteger('Global Options', 'AlarmCount', 0); // Прочитать список будильников for I := 1 to AlarmCount do begin // Создать будильник Alarm := TAlarm.Create; // Прочитать параметры будильника из соответствующей секции Alarm.LoadFromIniFile(IniFile, 'Alarm' + IntToStr(I)); // Добавить будильник в список AlarmListBox.Items.AddObject(Alarm.GetAlarmStr, Alarm); end; finally IniFile.Free; end; end; procedure TMainForm.FormDestroy(Sender: TObject); var IniFile: TIniFile; I: Integer; begin IniFile := TIniFile.Create('Alarms.ini'); try // Записать число будильников IniFile.WriteInteger('Global Options', 'AlarmCount', AlarmListBox.Items.Count); // Записать список будильников for I := 0 to AlarmListBox.Items.Count - 1 do with AlarmListBox.Items.Objects[I] as TAlarm do // Записать параметры будильника в соответствующую секцию SaveToIniFile(IniFile, 'Alarm' + IntToStr(I + 1)); finally IniFile.Free; for I := 0 to AlarmListBox.Items.Count - 1 do AlarmListBox.Items.Objects[I].Free; end; end;

Вот пожалуй и все. Сохраните проект, выполните его компиляцию и запустите программу. Создайте несколько будильников, закройте программу, а затем запустите ее снова... Будильники на месте. Кстати, утилиту Alarms можно поместить в папку StartUp, тогда она всегда будет у вас под рукой.