Оформил: DeeCo

Автор: Товмасян Альберт

Одной из новинок, появившихся в Delphi 7, являются компоненты IntraWeb от компании AToZed Software, позволяющие визуально проектировать Web серверные приложения.

Если у вас есть опыт написания GUI программ с использованием инструментальных средств быстрой разработки приложений компании Borland, тогда вы уже имеете основные навыки, которые вам понадобятся для начала разработки приложений с использованием IntraWeb. Основной метод проектирования пользовательского интерфейса для IntraWeb то же, что и для обычных GUI приложений: вы находите необходимые вам компоненты на палитре компонентов и размещаете их на форме. В отличие от модулей страниц WebSnap, внешний вид формы совпадает внешним видом страницы. Формы и компоненты IntraWeb отличны от их VCL и CLX аналогов, но они названы и размещены аналогично.

К примеру, допустим, вы хотите разместить на форме кнопку. В обычных VCL или CLX приложениях вы должны будете найти компонент Button на странице Standard палитры компонентов и разместить его на форме в соответствующем месте. В откомпилированном приложении кнопка появится там, где вы её разместили. В случае с IntraWeb приложением единственная разница заключается в том, что вы используете компонент IWButton со страницы IW Standard. Даже пиктограммы для этих двух различных компонентов выглядят почти одинаково. Единственное отличие в том, что в правом верхнем углу пиктограммы кнопки IntraWeb указано «IW».

Вот небольшой пример, призванный показать, как легко создавать IntraWeb приложения. Приложение, которое разрабатывается в этом примере, просит пользователя ввести какой-нибудь текст и показывает введённый текст в выскакивающем окне. Пример использует автономный режим (standalone mode), поэтому создаваемое приложение будет запускаться без Web-сервера.

Пример включает следующие шаги:

1. Создание нового IntraWeb приложения.
2. Редактирование главной формы.
3. Написание обработчика события для кнопки.
4. Запуск созданного приложения.

Первым шагом в создании демонстрационной программы является создание нового IntraWeb проекта. Этот проект будет независимым (standalone) приложением, но он может быть легко конвертирован в формат ISAPI/NSAPI или Apache позже с помощью замену двух строчек кода. Для создания нового проекта:

1. Используя внешние средства (например, Microsoft Windows Explorer), создайте папку «Привет» в вашей папке проектов. В этой папке будут храниться файлы проекта.
2. В IDE Delphi выберите пункт меню File|New|Other. В появившемся диалоге New Items выберите закладку IntraWeb.

   

3. Выберите пункт Stand Alone Application и нажмите кнопку OK.
4. Найдите созданную вами папку «Привет» в появившемся диалоговом окне. Произведите на ней двойной щелчок мышью и нажмите кнопку OK.

Вы только что создали своё IntraWeb приложение в папке «Привет». При этом все файлы с его исходными кодами были сохранены. Теперь вы можете приступить к редактированию главной формы для создания пользовательского Web-интерфейса вашего приложения. Редактирование главной формы

1. В IDE Delphi выберите пункт меню File|Open, затем выберите файл IWUnit1.pas и нажмите OK. В IDE появится окно главной формы, названное formMain.
2. Кликните мышью по окну главной формы. В инспекторе объектов измените значение свойства Title на «Как тебя зовут?». Этот вопрос появится в строке названия Web-браузера, когда вы запустите приложение и увидите страницу, относящуюся к главной форме.
3. Разместите на форме компонент IWLabel (найти его можно на странице IW Standard палитры компонентов). В инспекторе объектов измените значение свойства Caption на «Как тебя зовут?». Этот вопрос появится на форме.
4. Разместите на форме компонент IWEdit под компонентом IWLabel. Используйте инспектор объектов для того, чтобы произвести следующие изменения:
   • Удалите значение свойства Text.
   • Измените значение свойства Name на «editName».
5. Разместите на форме компонент IWButton под компонентом IWEdit. Измените значение его свойства Caption на «OK».

Ваша форма должна выглядеть подобно этой:

Возможно, вы захотите сохранить все свои файлы прежде чем продолжить. Написание обработчика события для кнопки

Пока в ответ на нажатие пользователем кнопки OK форма не выполняет никаких действий. Теперь мы напишем обработчик события, который выводит приветствие, когда пользователь нажимает OK.

1. Произведите по кнопке OK двойной щелчок мышью. В окне редактора кода будет создан пустой обработчик события, похожий на представленный ниже:

   procedure TformMain.IWButton1Click(Sender: TObject);
   begin
   
   end;
   

2. Используя редактор, допишите в него код так, чтобы обработчик события выглядел следующим образом:

   procedure TformMain.IWButton1Click(Sender: TObject);
   var s: String;
   begin
   	s := editName.Text;
   	if Length(s) = 0 then
   		WebApplication.ShowMessage('Пожалуйста, введите своё имя! ')
   	else
   	begin
   		WebApplication.ShowMessage('Привет, ' + s +'!');
   		editName.Text := '';
   	end;
   end;
   

Теперь мы можем запустить и протестировать созданное приложение.

1. В IDE Delphi выберите пункт меню Run|Run (F9). Появится сервер приложений IntraWeb, показанный ниже.

   

2. В сервере приложений IntraWeb выберите пункт меню Run|Execute (F9). Ваше Web серверное приложение появится в окне вашего Web-браузера, установленного по умолчанию. К примеру, вот результаты в окне Web-браузера Internet Explorer:

   

3. Допустим, вас зовут Альберт. Напечатайте Альберт в текстовом поле и нажмите кнопку OK. Появится модальное диалоговое окно:

   

Мы завершили процесс создания простого IntraWeb приложения, используя только формы и код на языке Delphi. Когда вы окончите работу со своим приложением, вы можете завершить его работу, закрыв окно Web-браузера, а затем закрыв сервер приложений IntraWeb.