Delphi вывести сообщение об ошибке

1

В этом уроке мы с вами рассмотрим организацию некоторых сообщений в программе.

Сообщения присутствуют повсюду: когда вы пытаетесь закрыть не сохраненный проект, при появлении ошибки, когда программа сообщает о некотором событии.
Сообщения, «вылетающие» при работе программы, можно разделить на те, которые программист предусмотрел, и системные сообщения.
В большинстве случаев второй тип сообщений имеет непонятный для обычного пользователя вид. Как правило, сообщается англоязычный термин, иногда имеется и шестнадцатеричный адрес ошибки. Например, сообщение «I/O Error» говорит программисту или пользователю об ошибке ввода-вывода. Это может быть попытка записи данных в неоткрытый файл, попытка открыть несуществующий файл и т.п. Если такая ошибка в вашей русскоязычной версии программы имеет место, то, скорее всего данной ситуации программист просто не предусмотрел. В таких случаях, программа может себя повести совершенно непредсказуемо. Ведь вы помните из прошлых уроков, что не проконтролированный кусок программы на присутствие ошибки ведет к моментальному выходу из обрабатываемой процедуры, со всеми вытекающими из этого последствиями.
Но это маленькое отклонение от темы. Идея такова, надо самостоятельно просчитывать все возможные случаи и самостоятельно обрабатывать эти ситуации. Иногда, если надо, предупреждать пользователя об ошибках, может даже сообщать об окончании обработки данных. Вот о таких сообщениях мы и поговорим в этом уроке.

Можно разделить все программные сообщения на: информационные сообщения («Загрузка данных с дискеты завершена») , предупреждающие сообщения («Файл модифицирован. Сохранить?»), сообщения об ошибке («Файл данных программы не найден. Требуется переустановка программы»). Эта разбивка на типы сообщений является, естественно, не полным, его можно продолжать, но об этом немного позже.

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

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

ShowMessage(‘Привет!’);

Тип данных в скобках — String.
Все довольно просто, мы с вами эту команду неоднократно применяли в прошлых уроках.
На этой команде работа процедуры (не всей программы!) приостанавливается. Пока пользователь не нажмет на кнопку Ok, работа с приложением становится невозможным, т.е. нельзя «добраться» до окна, расположенного позади. Т.е. это сообщение открывается модально.

Как вы заметили, заголовок окна простой. Он содержит в себе текст, который отображен на панели задач. По умолчанию имеет название запускаемого EXE файла. Изначально это Project1, в последствии вы его можете сохранить под другим именем («Save Project As…»), при этом название проекта, вместе с ним название компилируемого EXE файла меняется.
Изменить название запущенной программы в панели задач можно в любом месте программы с помощью команды:

Application.Title:=’Название программы’;

К примеру, вы обрабатываете довольно объемный размер данных (чтение файлов), и хотите показывать процент выполнения задания прямо в панели задач (как это сделано в программе DrWeb). Ведь пользователь не всегда сможет смотреть на ваш 10-минутный процесс обработки данных, а скорее всего переключится на другую, менее трудоемкую операцию (карточный пасьянс), постоянно следя за процессом обработки на панели задач.

Изначально, еще до запуска программы на выполнение, на этапе разработки, вы можете это задать название программы в панели задач с помощью главного меню delphi «Project», дальше пункт «Options…», в открывшемся окне на вкладке Application указать в поле Title необходимую строку. Эта строка и будет отображена в панели задач. При этом следует помнить, что слишком длинная фраза в кнопке на панели задач полностью не будет показана. При этом она будет обрезана троеточием, а для того, чтобы узнать полное название запущенной программы, нужно будет подвести мышку (всплывающая подсказка Hint вам покажет полное название).

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

В delphi есть, можно сказать, встроенная команда отображения окна сообщения. Звучит оно так:

MessageDLG(ТЕКСТ_СООБЩЕНИЯ,ТИП_СООБЩЕНИЯ,КНОПКИ,ИНДЕКС_ПОМОЩИ);

Скажу сразу, что к нашим программам мы пока не пишем дополнительно файлов справки, поэтому ИНДЕКС_ПОМОЩИ у нас всегда будет нулевым. Для информации скажу, что если у нас таковой файл имеется, то можно в таком сообщении сделать кнопку «Help». Если пользователь озадачен вопросом или сообщением, то может, не закрывая этого окна, узнать подробнее о дальнейших этапах работы при выборе того или иного пункта.
ТЕКСТ_СООБЩЕНИЯ — строковая величина. Как в предыдущей команде, сообщение показывается внутри окна.
ТИП_СООБЩЕНИЯ — может принимать несколько значений. От этих значений зависит содержимое заголовка и иконка в левом верхнем углу окна.

* mrNone — окно сообщения закрыто не с помощью кнопки (Alt+F4 или кнопкой «закрыть»)
* mrAbort
* mrYes
* mrOk
* mrRetry
* mrNo
* mrCancel
* mrIgnore
* mrAll

Рассмотрим пример. Нам надо спросить у пользователя о дальнейших действиях перед выходом из программы.
1. Сохранить файл.
2. Не сохранять файл.
3. Продолжить редактирование.

Var R:Word; // переменная, в которой хранится результат
…
R:=MessageDLG(‘Сохранить файл перед выходом?’,mtConfirmation,[mbYes,mbNo,mbCancel],0);
if R=mrYes then // если нажата кнопка Yes
begin
// сохраняем файл и завершаем программу
end;
if R=mrNo then // если нажата кнопка No
begin
// завершаем работу программы без сохранения
end;
if R=mrCancel then // если нажата кнопка Cancel
begin
// продолжаем работу без сохранения
end;

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

Следующая команда использует системные сообщения пользователю вашей операционной системы. Т.е., если у вас установлена, например немецкая версия windows, то кнопки будут иметь соответствующие названия на немецком языке.
Вот эта команда:

MessageBox(Handle,ТЕКСТ_СООБЩЕНИЯ,ЗАГОЛОВОК_ОКНА,ТИП_СООБЩЕНИЯ);

Первый параметр — указатель на владельца окна сообщения. Этот параметр вам пока ничего не говорит, устанавливайте его в Handle (это ссылка на окно, откуда это сообщение вызывается).
ТЕКСТ_СООБЩЕНИЯ и ЗАГОЛОВОК_ОКНА — имеют тип PChar, поэтому, во избежание недоразумений и появления неизвестного рода ошибок, выдаваемых компилятором, меняйте тип String в PChar «на ходу». Например:

MessageBox(Handle,PChar(‘ТЕКСТ_СООБЩЕНИЯ’),PChar(‘ЗАГОЛОВОК_ОКНА’),…

Это был перевод из одного типа строковой величины в другой тип.

Теперь поговорим о немного сложном параметре ТИП_СООБЩЕНИЯ. Он включает в себя иконку и кнопки.

Кнопки:
* MB_ABORTRETRYIGNORE — кнопки «Прервать», «Повторить», «Пропустить».
* MB_OK — кнопка «Ok».
* MB_OKCANCEL — кнопки «Ok», «Отмена».
* MB_RETRYCANCEL — кнопки «Повторить» и «Отмена».
* MB_YESNO — две кнопки «Да» и «Нет».
* MB_YESNOCANCEL — кнопки «Да», «Нет», «Отмена».

Для того, чтобы отобразить иконку, нужно указать:
* MB_ICONEXCLAMATION
* MB_ICONWARNING
* MB_ICONINFORMATION
* MB_ICONASTERISK
* MB_ICONQUESTION
* MB_ICONSTOP
* MB_ICONERROR
* MB_ICONHAND
Если у вас в сообщении несколько кнопок, а по умолчанию нужно выбрать определенную, то такая кнопка задается:
MB_DEFBUTTON1 — где последняя цифра указывает номер кнопки, выбранной по умолчанию. Это свойство может быть полезным, например, чтобы обезопасить данные от случайного уничтожения. «Удалить файл?». Две кнопки — «Да», «Нет». По умолчанию мы программно выбираем вторую кнопку. Если пользователь сразу нажал на Enter, не осознавая своего поступка, можно сказать по привычке, то ничего страшного не произойдет.

Код

ShowMessage(‘Это простое диалоговое окно.’);

Код

procedure TForm1.ShowMessageButtonClick(Sender: TObject);
begin
ShowMessage(‘Это простое диалоговое окно.’);
end;

Рисунок. Окно сообщения с кнопкой ОК, вызываемое процедурой ShowMessage

Код

procedure TForm1.MessageDlgButtonClick(Sender: TObject);
var
rez : TModalResult;
begin
rez := MessageDlg(‘Перед вами пример использования функции MessageDlg?’, mtError, [mbOk, mbNo], 0); // выводим сообщение об ошибке с кнопками OK и NO
if rez = mrOk then ShowMessage(‘Вы согласились’); // если нажали ОК, то появляется сообщение о том что мы согласились
if rez = mrNo then ShowMessage(‘Вы не согласились’); // если нажали NO, то появляется сообщение о том что мы не согласились
end;

Рисунок. Диалоговое окно при использовании функции MessageDlg

Код

procedure TForm1.MessageDlgPosButtonClick(Sender: TObject);
var
rez : TModalResult;
begin
rez := MessageDlgPos(‘Перед вами пример использования функции MessageDlgPos?’, mtConfirmation, [mbOk, mbNo], 0, 0, 0); // диалоговое окно выводится с координатfvb X=0 и Y=0
if rez = mrOk then ShowMessage(‘Вы согласились’); // если нажали ОК, то появляется сообщение о том что мы согласились
if rez = mrNo then ShowMessage(‘Вы не согласились’); // если нажали NO, то появляется сообщение о том что мы не согласились
end;

Рисунок. Диалоговое окно при использовании функции MessageDlgPos

Код

procedure TForm1.InputBoxButtonClick(Sender: TObject);
var
pas : string;
begin
pas := InputBox(‘Авторизация’, ‘Введите пароль’, ‘********’); // Выводим Диалоговое окно, которое запрашивает пароль
if pas = ‘123’ then
ShowMessage(‘Пароль принят’);
if pas <> ‘123’ then
ShowMessage(‘Пароль не правильный’);
end;

Рисунок. Пример использования функции InputBox

Код

procedure TForm1.InputQueryButtonClick(Sender: TObject);
var
name: string;
begin
name := ‘Введите имя’;
InputQuery(‘Пользователь’, ‘Введите фамилию’, name); // Выводим диалоговое окно в котором нас просят ввести Имя
ShowMessage(‘Вы ввели ‘+name); // Выводим сообщение с тем именем которое мы ввели
end;

> YurikGL ©   (14.06.08 19:40) [5]

Гы… и верно ведь… позор на мои седины… :o)

> YurikGL ©   (14.06.08 20:49) [7]

Дык… а что ж тут некорректного? Все нормально.

Совет — посмотрите в сторону Assert, бывает очень полезно. Дело в том, что сообщение EAssertionFailed содержит имя модуля и номер строки. То есть, для локализации ошибки можно использовать что-то типа этого:
on E: Exception do
 Assert(false, "Ошибка " + E.ClassName + ": " + E.Message);

> Дык… а что ж тут некорректного? Все нормально.

Юрий, раньше Вы меня за такое ругали. А теперь это корректно?

Сам обычно использую такую конструкцию:

function ReCreateEObject(E: Exception; const FuncName: string): Exception;
var
 S: string;
begin
 S := Format("%s -> %s", [FuncName, E.Message]);
 Result := ExceptClass(E.ClassType).Create(S);
end;

try
 ......................
except
 on E: Exception do
 begin
   ................
   raise ReCreateEObject(E, "MyFunc");
 end;
end;

> Loginov Dmitry ©   (15.06.08 10:45) [12]

1. За

такое

я ругать не мог (потому что это самый обычный способ «ручного» отслеживания и ругать тут не за что). А вот за что-то, хотя внешне и похожее, но по сути

другое

— мог.

2. Зачем пересоздавать объект исключения, если можно просто изменить его Message?

> Loginov Dmitry ©   (15.06.08 10:45) [12]

И сейчас будем ругать.
Хотя класс исключения будет тот же, но иная
дополнительная информация будет утеряна.

Сравни

 try
   raise TMyException.Create("error");
 except
   on E: TMyException do
     begin
      E.Message := Format("reraise %s", [E.Message]);
      raise;
     end;
 end;

—
Regards, LVT.

to [13], [14]

для системных исключений нельзая изменить текст. Изменение текста катит только для родных дельфийский эксепшенов.

> Loginov Dmitry ©   (15.06.08 17:42) [15]

В дельфи иных исключений и нет.

—
Regards, LVT.

> В дельфи иных исключений и нет.

Я вот про что:

procedure TForm1.Button6Click(Sender: TObject);
var
 a, b: double;
begin
a := 1;
b := 0;
try
  a := a / b;
  floattostr(a);
except
  on E: Exception do
    begin
     E.Message := Format("reraise %s", [E.Message]);
     raise;
    end;
end;
end;

Куда reraise девается? То-то же!

> Loginov Dmitry ©   (15.06.08 18:05) [17]

Ну и не надо никаких on E: Exception.
Если обработчику неизвестно исключение —
он _обязан_ его пропустить.

—
Regards, LVT.

> except
>   on E: Exception do
>     begin
>      E.Message := Format(«reraise %s», [E.Message]);
>      raise;
>     end;
> end;

За такой код надо давить