Учебник по Delphi 4.0

Обычно консольные приложения используются, когда не нужно вводить информацию большого объема и требования к интерфейсу сведены к минимуму. Ну и заметим к тому же, что простенькое „Hello, world!“, созданное путем размещения компонента TLabel в форме, будет иметь размер около 150 Кбайт, в то время как консольное „Hello, world!“ уложится в 10…

Пример консольного приложения

Лучший способ изучить консольные приложения — создать пресловутое „Hello, world!“. Для создания его вручную сделайте следующее.

1. Выберите команду File/New Application.

2. Выберите команду File/Remove From Project, и появится диалоговое окно, Remove From Project, показанное на рис. 1.15.

3. В проекте содержится один модуль формы. Выберете его и щелкните на кнопке ОК. Появится диалоговое окно Save changes to Unit1.pas?

4. Щелкните на кнопке No, и форма будет удалена из проекта.

Сохраните проект как EgConsoleHello.

Рис. 1.15.Диалоговое окно Remove From Project позволяет удалять модули и формы из проекта.

Хотя мы создаем „бесформенное“ приложение, оно все еще не является консольным и использует GUI, а значит, сравнимо по размеру с бронтозавром. Выберите команду View/Project Source, и в редакторе появится следующий текст.

program EgConsoleHello;

uses

Forms;

{$R *.RES}

begin

Application.Initialize;

Application.Run;

end;

Этого слишком много, чтобы быть достаточным. Вы видите, что подключен модуль Forms, однако он не используется, поэтому данную строку можно удалить. Строки с Application используются для инициализации OLE-сервера и вывода главной формы. Поскольку мы не используем ни того, ни другого, удалите и эти строки. Последнее действие — объяснить компилятору, что мы хотим создать обычное, простое, незамысловатое консольное приложение. Этого можно достичь с помощью команды $APPTYPE. Код в результате будет выглядеть так.

program EgConsoleHello;

{$APPTYPE CONSOLE}

{$R *.RES}

begin

end;

Ax да! Мы же собирались вывести свое приветствие! Для этого добавьте между begin и end строку

WriteLn ('Hello, world!');

Сохраните, скомпилируйте и запустите проект из командной строки. Надеюсь, вам понравилось? И еще одно замечание — консольные приложения используют стандартные потоки ввода-вывода, а значит, вы можете использовать функции Read, ReadLn, Write и WriteLn.

Функции Windows API для консольного приложения

Вы можете делать гораздо больше в консольном приложении, чем просто считывать и выводить текст. Вам доступно около 40 функций Windows API для работы с дисплеем, например изменение атрибутов выводимых символов или изменение размеров консоли.

В листинге 1.1 изменяется текст, выводимый в заголовке консольного окна. Вы можете найти этот пример на дополнительно распространяемой дискете в папке EgConsoleTitle.

Листинг 1.1.Изменение заголовка консольного окна

program EgConsoleTitle;

{$APPTYPE CONSOLE}

uses

Windows, SysUtils;

{$R *.RES}

var

sNewTitle, sErrMsg: String;

begin

sNewTitle:= 'Welcome to Con5ole World';

if not SetConsoleTitle(P Char(sNewTitle)) then

begin

sErrMsg:= 'Unable to set caption — '+SysErrorMessage(GetLastError);

MessageBox(0,P Char(sErrMsg),'Error',M BICONEXCLAMATION+MB OK);

end;

ReadLn;

end.

Здесь функция API SetConsoleTitle возвращает False, если назначить новый заголовок невозможно. GetLastError возвращает числовое значение последней ошибки API, которое SysErrorMessage конвертирует в строку для вывода на экран.

Совет:Поставляемая с Delphi система справки по Win32 содержит функции консольного API. Для доступа к ним выведите пункт Console Reference и щелкните на кнопке.

Возможности Object Repository не ограничиваются хранением форм, модулей и диалоговых окон (даже целые проекты могут быть сохранены в виде шаблонов). Шаблон проекта может содержать формы, модули, и пользовательский код и использоваться в качестве отправной точки для создания нового проекта.

Использование шаблонов проектов

Delphi поставляется с тремя шаблонами проектов.

MDI Application создает полностью функциональный MDI-проект. Родительская форма включает меню, кнопки Speed Button и строку состояния. Проект также содержит замещаемый код, реализующий функции меню и управляющий сообщениями в строке состояния.

SDI Application содержит простой SDI-проект. Основная форма содержит меню, кнопки Speed Button и строку состояния. В проект также включено диалоговое окно About и реализующий его код.

Win95 Logo Application создает проект, моделирующий основные принципы, которые установлены Microsoft для нее Win95 Logo certification. Если вы будете придерживаться этого стиля и получите сертификат Microsoft, то сможете вывести логотип „Designed for Win95“. Для создания нового SDI-поиложения с использованием шаблона выполните следующие действия.

Выберите команду File/New, и появится диалоговое окно New Items (см. рис. 1.6).

Щелкните на вкладке Projects, что приведет к появлению соответствующей страницы.

Выберите пиктограмму SDI Application, щелкните на кнопке ОК, и появится диалоговое окно Select Directory, показанное на рис. 1.16.

Определите каталог для нового проекта. Если вы выберете несуществующий каталог, Delphi создаст его для вас.

Щелкните на кнопке ОК, и новый проект будет создан. При создании проекта доступна только опция Copy. Все файлы проекта копируются в ваш каталог и изменения в них не приведут к изменению шаблона проекта в хранилище. На странице Projects содержится еще одна пиктограмма— Application Expert. Эксперт приложений, показанный на рис. 1.17, проведет вас через все этапы создания нового проекта.

Рис. 1.16.Диалоговое окно Select Directory позволяет выбрать каталог для нового проекта.

Рис. 1.17.application Expert поможет вам создать новый проект.

Добавление шаблонов проектов

Помимо стандартных, вы, вероятно, захотите иметь и собственные шаблоны. Для этого добавьте их в Object Repository следующим образом.

Создайте проект, добавьте в него код и объекты по вашему усмотрению.

Сохраните проект. Вернитесь к разделу „Разделяемое хранилище“, чтобы вспомнить о том, где и как хранить шаблоны.

Выберите команду Project/Add To Repository, после чего будет выведено диалоговое окно Add to Repository, показанное на рис. 1.18.

Введите запрашиваемую информацию, щелкните на кнопке ОК, и проект будет добавлен в Object Repository в качестве шаблона.

Рис. 1.18.Диалоговое окно Add to Repository позволяет добавить собственный шаблон проекта в Object Repository

Существует огромное количество опции, которые можно изменять при разработке проекта. Они представлены на вкладках диалогового окна Project Options (см. рис. 1.14).

Вы всегда можете установить опции по умолчанию, отключив переключатель Default в нижнем левом углу

диалогового окна Project Options. заметку

Forms

Раскрывающийся список Main form определяет главную форму вашего приложения, которую Delphi выводит первой и закрывает, когда приложение завершает работу.

Два списка. Auto-create forms и Available forms, позволяют определить автоматически создаваемые формы.