Джентльменский набор web-разработчика

Сейчас огромное количество людей имеет доступ к интернету. И многим пользователям в один прекрасный день приходит в голову мысль о создании собственного представительства в этой необъятной сети. Тогда пользователь при помощи HTML-редактора создаёт свою домашнюю страничку. Через некоторое время, если энтузиазм не закончится, происходит переход на более мощную программу для редактирования web-страниц, в которой переделывается первоначальная версия сайта. Большинство на этом этапе останавливаются, но некоторые пользователи пытаются улучшить свой сайт и через некоторое время натыкаются на проблемы, которые HTML, даже динамический, решить не в состоянии. А значит, настало время переходить на скриптовые web-языки программирования. И вот тут-то и возникает проблема отладки скриптов. Конечно, можно закачивать их на сервер и тестировать в самых, что ни на есть реальных условиях. Но, как известно, программы без ошибок сразу не пишутся, поэтому закачивать на сервер свои скрипты придётся не один и даже не десять раз. Так что к затратам на интернет добавятся и временные затраты. Поэтому web-разработчики устанавливают себе локальные web-серверы, которые позволяют безо всякого интернета запускать различные скрипты.
Самым популярным web-сервером на сегодняшний день является Apache. Но не каждый, даже продвинутый пользователь сможет корректно настроить его и подключить все необходимые модули. К тому же для установки потребуется скачать более 10 Мб, а интернет – удовольствие не бесплатное.
В связи с вышеизложенным хочу обратить внимание начинающих, да и не только начинающих, web-разработчиков на пакет «Джентльменский набор web-разработчика», или коротко ­– Денвер. Данный пакет включает в себя весь комплекс программ, необходимый для комфортной и эффективной отладки любых сайтов. Вот состав базового комплекта:
1. Сам web-сервер Apache;
2. PHP;
3. MySQL;
4. phpMyAdmin – панель управления базой данных MySQL;
5. Perl (без модулей);
6. Отладочная "заглушка" для sendmail. То есть, если скрипт отправляет письмо, то оно не отправляется, а записывается в текстовый файл.
И вот этот базовый комплект занимает чуть больше 2 Мб! Давайте посчитаем, сколько всё это должно занимать места при обычной установке всех этих приложений:
· Apache » 4 Мб;
· PHP4 » 5,5 Мб;
· ActivePerl » 8,5 Мб;
· MySQL » 12,5 Мб.
· PhpMyAdmin » 1 Мб.
Итого: »31,5 MB. Правда, обычно PHP и Perl вместе не используются, так что можно отнять мегабайт семь, но всё равно цифра получается довольно впечатляющей, особенно на фоне качества наших телефонных линий. Как же удалось уместить всё это в двух мегабайтах? Во-первых, были удалены редко используемые компоненты и документация. Также, за ненадобностью были удалены инструкции установки и всякие истории развития продуктов. После чего всё это упаковали очень мощным архиватором – 7-zip. Конечно, если вам вдруг понадобится документация или дополнительные модули, то их можно найти в разнообразных расширениях. Вот так вот практически без потери функциональности размер дистрибутива сокращён в десятки раз. Но сокращение размера, на мой взгляд, не самое главное достоинство Денвера. Основное преимущество этого джентльменского набора в очень лёгкой и быстрой установке и настройке всех модулей. Нужно просто запустить программу установки и после нескольких несложных шагов (выбор папки, способ запуска сервера и т.п.) Apache полностью настроен и готов к работе. При этом Денвер ничего не записывает в реестр, никаких новых файлов в системных директориях у вас тоже не появится. Более того, можно даже просто переместить Денвер в другой каталог и он всё равно будет нормально функционировать.
Ну а теперь пара слов о работе Денвера. При запуске создаётся виртуальный локальный диск, например, Z: (созданием виртуальных дисков в Windows занимается утилита subst), который ассоциируется с каталогом Денвера. Затем последовательно запускаются все программы. После завершения работы восстанавливаются прежние настройки системы. Особенно меня порадовала поддержка Денвером виртуальных хостов, т.е. когда на одном компьютере ведётся работа с несколькими локальными сайтами. Для добавления нового хоста нужно просто в соответствующем каталоге создать новую папку, перезапустить сервер и всё! Денвер сам сконфигурирует Apache и внесёт необходимые изменения в файл …\Windows\hosts. Для тех же, кто любит вручную копаться в различных параметрах, все комментарии в настроечных файлах переведены на великий и могучий и, главное, понятный русский язык. Ну и напоследок хочу сказать, что авторы Денвера активно сотрудничают с пользователями и, учитывая их вопросы и предложения, постоянно развивают свой джентльменский набор.
Скачать Денвер можно отсюда: http://dklab.ru/chicken/web/dis/Base/. А на самом сайте http://dklab.ru/ можно найти много интересного про Денвер в частности и про создание динамических сайтов вообще.

Иван Ширко
ishyrko@gmail.com

Читать дальше >>

Сделай сам: Управление Winamp

В этот раз мы поговорим об управлении популярнейшим аудио-плеером, имя которому – Winamp. Благодаря своей нулевой цене, поддержке скинов и, что самое главное, плагинов, Winamp установлен на огромном количестве ПК. И этим программным шедевром Nullsoft, оказывается, можно довольно легко управлять программно. В связи с этим, большинство soft-каталогов не обходится без пары-тройки программ управления Winamp’ом. Давайте рассмотрим, что же происходит в недрах таких программ.

Winamp поддерживает большое количество сообщений, которые можно послать его окну при помощи функции
SendMessage(
HWND:hWnd, // идентификатор окна
Msg:Integer, // посылаемое сообщение
WParam:Integer, // первый параметр сообщения
LParam:Integer // второй параметр сообщения
);

Winamp поддерживает два основных типа сообщения (параметр Msg):
– WM_COMMAND: служит только для подачи определённых команд Winamp’у (Play, Stop, Next, Close и т.д.);
– WM_USER: используется не только для выполнения определённых действий, но и для определения различной информации (версия, текущая композиция, количество композиций и т.д.).

В таблице1 приведены основные константы для первого параметра сообщения WM_COMMAND. Для их использования запишите процедуру:
Procedure WinampCommand(Command:Integer);
begin
//поиск окна Winamp’a
WinampHWND := findwindow('Winamp v1.x',nil);
//если поиск успешен,то посылаем сообщение
if (WinampHWND <> 0) then
SendMessage(WinampHWND, WM_Сommand, Command, 0);
end;
Теперь для подачи сообщения типа WM_COMMAND нужно выбрать из таблицы понравившуюся константу и передать её в качестве параметра процедуре WinampCommand. Пример:
WinampCommand(40044); – переход к предыдущей композиции.

В Таблице2 перечислены основные константы для сообщений WM_USER. Для их использования запишите следующую функцию:
Function WinampUser(data: Integer, id: Integer):integer;
begin
WinampHWND := findwindow('Winamp v1.x', nil);
if (WinampHWND <> 0) then
result := SendMessage(WinampHWND, WM_USER, data, id)
else result := -1;
end;

Пример: WinampUser(1, 105); – возвращает длину текущей композиции в секундах.

Итак, управлять Winamp’ом мы научились, осталось только воплотить наши навыки в небольшую программу.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Registry,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
reg:TRegistry;
WinampHWND:hwnd;
implementation

{$R *.DFM}

Function WinampUser(data: Integer; id: Integer):integer;
begin
WinampHWND := findwindow('Winamp v1.x', nil);
if (WinampHWND <> 0) then
result := SendMessage(WinampHWND, WM_USER, data,id)
else result := -1;
end;
Procedure WinampCommand(Command:Integer);
begin
WinampHWND := findwindow('Winamp v1.x',nil);
if WinampHWND<>0 then
SendMessage(WinampHWND, messages.WM_command, Command, 0);
end;

//Запуск Winamp’а
Procedure StartWinamp;
var
WinampExe:string;
begin
reg := TRegistry.create;
reg.RootKey:=Windows.HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\CLASSES\Winamp.File\shell\open\command', False);
WinampExe := reg.ReadString('');
reg.Free;
if WinampExe<>'' then
begin
WinampExe:=copy(WinampExe, 2, length(WinampExe)-7);
WinExec(pchar(WinampExe), SW_SHOWNORMAL);
end;
end;

Procedure Play;
begin
WinampCommand(40045);
end;

Procedure Stop;
begin
WinampCommand(40047);
end;

Procedure Pause;
begin
WinampCommand(40046);
end;

Procedure NextTrack;
begin
WinampCommand(40048);
end;

Procedure PrevTrack;
begin
WinampCommand(40044);
end;

{передвинуть текущую позицию на 5 секунд вперёд}
Procedure FastForward5Sec;
begin
WinampCommand(40148);
end;

{передвинуть текущую позицию на 5 секунд назад}
Procedure FastRewind5Sec;
begin
WinampCommand(40144);
end;

//перезагрузить Winamp
Procedure RestartWinamp;
begin
WinampUser(0, 135);
end;

Procedure CloseWinamp;
begin
WinampCommand(40001);
end;

Procedure RepeatMode;
begin
WinampCommand(40022);
end;

Procedure SuffleMode;
begin
WinampCommand(40023);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StartWinamp;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Play;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Stop;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Pause;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
NextTrack;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
PrevTrack;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
CloseWinamp;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
FastForward5Sec;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
FastRewind5Sec;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
RestartWinamp;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
RepeatMode;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
SuffleMode;
end;
end.

Разумеется, это только прототип. В одной из следующих статей мы обязательно превратим программу в плагин для Winamp’а и добавим поддержку горячих клавиш. На сегодня всё.

Иван Ширко

ishyrko@gmail.com

Читать дальше >>

Создание справочной системы

Всё! Завершено гениальное творение не менее гениального программиста. Программное детище проверено, отлажено и перепроверено. Все найденные друзьями-тестерами "баги" благополучно устранены. А значит, пришло время распространить программу среди пользователей, которые раньше как-то умудрялись без неё обходиться... И вдруг понимаешь, что, несмотря на интуитивно-понятный интерфейс, в мире обязательно найдутся не интуитивно-понятливые "юзеры", которые не смогут насладиться всеми функциями данного произведения искусства, а то и вовсе (о, ужас!) удалят программу БЕЗВОЗВРАТНО. Смахнув со лба капли холодного пота и преисполнившись жалостью к таким "юзерам", всерьёз задумываешься о сопроводительной документации. На ум сразу же приходят мысли о файле "readme.txt" или о небольшой html-страничке, но тут же отметаются: в солидном проекте всё должно быть солидно. Так что придётся делать общепринятый файл *.hlp, который будет гордо называться "справочной системой". Как создавать файлы такого формата рассказывает данная статья.
Прежде всего, нам понадобится программа Microsoft Help Workshop. Найти её можно по адресу http://download.microsoft.com/download/0/a/9/0a939ef6-e31c-430f-a3df-dfae7960d564/htmlhelp.exe, также она распространяется вместе с популярными средами программирования (Delphi, VC++). Помимо этой "софтины", нам потребуется текстовый процессор для создания файла в формате RTF (rich-text format), Word от всё той же Microsoft вполне подойдёт.
Теперь можно приступить к процессу создания справочной системы, который состоит из трёх важных составляющих:
– подготовка RTF-файла;
– создание и компилирование файлов справочной системы;
– создание содержания справки.

Создание RTF-файла

Оформление разделов
Как известно, справка обычно разбивается на разделы. В RTF-файле каждый раздел должен начинаться заголовком и заканчиваться символом "разрыв страницы" ("Вставка\Разрыв..."). Кроме этого, раздел должен содержать уникальный идентификатор. Для его установки поместите текстовый курсор перед первым символом заголовка и из меню "Вставка" выберите пункт "Сноска...". В появившемся диалоговом окне (рис.1) в разделе нумерация установите радиокнопку в положение "Другая" и введите символ диеза ('#'). После нажатия на кнопку "OK", Word предложит ввести текст сноски, что и необходимо сделать. Следует заметить, что если текст сноски начинается с префикса IDH_, то во время компиляции справочной системы будет проверена корректность всех ссылок данного раздела.
Ссылки на другие разделы
Для связывания разных разделов используются слова-ссылки, при нажатии на которые осуществляется переход к нужной ветке справки. Для того, чтобы сделать слово ссылкой, нужно выделить его и подчеркнуть двойной линией ("Формат\Шрифт\Подчёркивание/Двойное"). После этого, сразу за словом-ссылкой, требуется поместить идентификатор нужного раздела (текст сноски). При запуске справки ссылка будет выделена цветом и одинарным подчёркиванием.
Комментарии
В документе можно использовать не только ссылки на другие разделы, но и ссылки на комментарии (например, для объяснения какого-нибудь заумного термина). Во время работы справочной системы такие ссылки выделяются цветом и подчёркиванием пунктирной линией, при нажатии на них появляется вплывающее окно с текстом комментария. В RTF-файле комментарии оформляются так же, как и разделы, но они не должны начинаться с заголовка. Ссылку на комментарий нужно подчеркнуть одной линией и сразу за ней написать его идентификатор скрытым текстом.
Ключевые слова и поиск по разделам
Для каждого раздела справки можно создать список ключевых слов. Для этого нужно перед заголовком раздела установить сноску K, а в текст сноски нужно записать все ключевые слова, разделив их точкой с запятой. При работе справочной системы ключевые слова всех разделов будут отображены в закладке "Указатель". Рядом с ней находится закладка "Поиск", в которой осуществляется поиск по справке. Для того, чтобы включить возможность поиска по какому-либо разделу, нужно перед его заголовком поставить сноску $, текстом которой должно служить название раздела в поисковой системе.
Вставка графики
Для вставки картинки в раздел, достаточно просто поместить её туда в Word'e ("Вставка\Рисунок").

Создание файла справочной системы

Теперь, когда RTF-файл набран, можно приступить к созданию справки на основе этого файла. Запустите программу Microsoft Help Workshop и создайте новый проект, выбрав пункт меню "File\New/Help Project". В правой части окна программы нажмите на кнопку "Files..." и в появившемся диалоговом окне при помощи кнопки "Add" добавьте к проекту RTF-файл. Теперь пройдёмся по опциям справочной системы (кнопка "Options...").
General
Эта закладка содержит основные настройки справки:
Default topic – идентификатор основного раздела справки. Этот раздел появляется при запуске справочной системы (если она не имеет содержания) и в случае, если пользователь нажал на ссылку на несуществующий раздел.
Help title – заголовок справки, который отображается на заголовке окна.
Copyright information – текст, отображаемый в диалоговом окне "Версия" и текст, который автоматически добавляется при печати и копировании справки (подпись).
Сompression
Здесь находятся настройки сжатия справочной системы.
None – не использовать сжатие.
Maximum – максимальное сжатие (дольше компилируется, но занимает меньше места на диске).
Custom – позволяет выбрать алгоритмы сжатия справочной системы.
Files
Файлы, составляющие справочную систему.
Help File – имя файла справки (*.hlp);
Log File – имя log-файла (отчёт о компиляции справочной системы);
Rich Text Format (RTF) files – RTF-файлы (*.rtf);
Contents file – содержание справочной системы (*.cnt);
FTS (full-text search)
Настройки поисковой системы справки.
Generate full text search index – генерировать содержание поиска по справке. Если этот параметр выбран, то при компиляции справочной системы сгенерируется файл имя_справки.fts, который нужен для текстового поиска. Как правило, этот файл занимает намного больше места на диске, чем сама справка (*.hlp).
Теперь осталось сделать содержание для нашей справочной системы.

Создание содержания

Выберите "File\New/Help Contents" и введите имя и заголовок содержания. При помощи кнопок "Add Above" ("Добавить над") и "Add Below" ("Добавить под") создайте нужные папки (Heading) и пункты содержания (Topic). При добавлении пункта, введите его название в поле "Title", в "Topic ID" – идентификатор раздела справки, на который ссылается этот пункт, в "Help File" – имя файла справки, в котором находится этот раздел. Кнопки "Move Right" и "Move Left" служат для изменения иерархии пунктов. После сохранения содержания, откройте проект справки (*.hpj), нажмите на кнопку "Options", активизируйте закладку "Files" и в поле "Contents file" введите имя файла содержания либо выберите его при помощи кнопки "Browse". Откомпилируйте проект.
На этом создание полноценной справочной системы завершено. Наш маленький, но очень гордый "хелп" имеет удобное содержание и мощную поисковую систему, содержит как текстовую, так и графическую информацию, и даже подписывается при цитировании и распечатке!

Иван Ширко
ishyrko@gmail.com

Читать дальше >>

Караоке в домашних условиях

Бывают в жизни моменты, когда душа требует песни, притом собственного исполнения. Но обеспечить себе достойное музыкальное сопровождение могут далеко не все, да и слова не всегда вспоминаются в нужный момент. А если и слова знаешь и можешь примерно в тему побренчать на гитаре, то в минуты особого веселья бывает трудновато перемещать непослушные пальцы по грифу в поисках нужного аккорда… Все эти проблемы решает караоке: музыка играет без твоего участия, слова перед глазами, к тому же показывается, когда эти слова нужно петь. Караоке можно организовать по-разному: начиная с сопровождающего оркестра с бегающими перед носом людьми с плакатами с текстом и заканчивая крутым музыкальным автоматов, который даст почувствовать себя талантливым певцом даже при полном отсутствии музыкального слуха. Мы же рассмотрим реализацию караоке на домашнем компьютере в виде специальных программ. Сейчас песни-караоке наиболее часто встречаются в виде файлов *.kar, но бывают, разумеется, и альтернативные форматы. Например, довольно популярным является формат *.st3.
vanBasco's Karaoke Player
Эта программа для проигрывания караоке, несмотря на свою нулевую стоимость и маленький размер, обладает довольно большими возможностями. Присутствуют все основные возможности хорошего аудио-плеера: управление проигрыванием (пауза, перемотка и т.п.), работа с playlist'ами, анализатор спектра. Кроме этого есть и "навороты": притягивание окон (как в Winamp'e), управление скоростью воспроизведения, преобразование караоке в midi-файл, есть даже виртуальное пианино… Правда, программа умеет проигрывать только файлы форматов *.kar и *.mid, но проблему воспроизведения других караошек можно решить при помощи специальных программ-преобразователей. Скачать этот плеер можно здесь: www.vanBasco.com (796 кБ).
Karakan
Этот пакет состоит из двух бесплатных программ:
1) KPlay – служит для воспроизведения караошек в формате *.kar. В отличие от vanBasco's KarPlayer, это очень простенький проигрыватель, который делает только свою основную функцию. В принципе, довольно удобный. На мой взгляд, отображение слов песни у него реализовано даже лучше, чем у вышеописанного конкурента, но возможность перемотки караошки была бы, конечно, не лишней.
2) Karakan – а это уже редактор караошек, точнее не редактор, а создатель, т.к. редактирование готовых *.kar не поддерживается. Караошки создаются на основе midi-файлов, а текст и разметка песни вводятся в формате STF (Song Text Format). С этим форматом легко разобраться после прочтения его описания в системе помощи программы, но всё же создание караоке здесь напоминает создание HTML-документа в Блокноте. Как говорится, дело вкуса, но некая автоматизация всё же не помешала бы…
"Весит" этот пакет 540 кБ – www.geocities.com/takawadanl/karakan.html
VocalJam
Эта программа не похожа на предыдущие. Нет, здесь тоже играет музыка, и нужные слова появляются в нужный момент на экране. И дело даже не в том, что за полную версию программы надо платить, нет… VocalJam не просто даёт возможность спеть какую-нибудь песню, но она может ещё и научить петь и даже выслушать певца, а потом выставить ему оценку за исполнение. Разумеется, никакого сложного анализа пения пользователя не происходит: баллы ставятся лишь за попадание в такт музыке и за правильность высоты пения. Конечно, не очень приятно от компьютера получать нелестные отзывы о своих певческих способностях, поэтому можно в настройках программы отключить вывод всяких комментариев, а оставить одни баллы. Только не забудьте оставить вылючённой для записи все громкости, кроме микрофона, иначе за ваше пение будет приниматься музыка. В демо-версии программы также есть поддержка "скинов" интерфейса, анализатор частот и даже нотная интерпретация песни. Также имеется немаленькая (несколько десятков) подборка популярных композиций, а если понадобится ещё, то зайдите на сайт программы – www.VocalJam.narod.ru. Идея VocalJam хорошая, но мне программа показалась скорее любительской, чем профессиональной разработкой. Демо-версия VocalJam занимает 7.7 МБ.
Когда мне попалась на глаза ещё одна программа для проигрывания караоке – RealOrche – то я понял, что что-то здесь не так. Дело в том, что это практически программы близнецы: одинаковый интерфейс, примерно одинаковые возможности, VocalJam даже не запускается вместе с RealOrche, считая её своей копией, и наоборот! Либо работают над программами одни и те же люди, либо плагиат налицо. На мой взгляд RealOrche выглядит намного профессиональней, чем VocalJam, но если хочется петь русские песни, то придётся выбрать вторую программу, ведь она "сделана в России". Кстати, RealOrche умеет не только проигрывать все популярные форматы караошек, но и редактировать их. Скачать RealOrche можно на сайте программы: www.realorche.com.br, размер, в зависимости от версии, 4-5 МБ.
Где взять караошки?
В большом количестве песни в виде караоке можно найти на www.karaoke.ru. Но если этого окажется мало, то загляните сюда: www.parkov6.narod.ru (иностранные песни) и www.parkov7.narod.ru (русские песни).
Ну что ж, остаётся только пожелать приятных вам песнопений и терпения вашим соседям.
Иван Ширко
ishyrko@gmail.com

Читать дальше >>

Microsoft Agent. Часть I

Microsoft, несмотря на всю льющуюся на них критику, постоянно предоставляет разработчикам новые возможности. Несколько лет назад появилась очень интересная технология – Microsoft Agent. Где можно было наблюдать её применение? Например, в популярном переводчике Magic Gooddy. Основной "фишкой" данной программы является утёнок Gooddy, который свободно может говорить на русском и английском языках. Более того, этот утёнок может ещё и "понимать" некоторые голосовые команды, произнесённые в микрофон. У Gooddy, ко всему прочему, всё время меняется настроение: если долго не пользоваться его услугами, то он начинает грустить, а при переводе он выглядит самым счастливым утёнком в мире. Этот утёнок со всеми его возможностями является наглядным примером применения технологии MsAgent.

Вот таким вступлением я открыл небольшую серию статей, посвящённых Microsoft Agent. В первой части мы рассмотрим аспекты использования MsAgent в web-страницах. Представьте себе, сидите вы в интернете, открываете некую web-страничку, а тут из лампы вылазит Джин из мультфильма "Аладдин" и начинает что-нибудь вам рассказывать. А если вы вдруг наведёте курсор мыши на какую-нибудь гиперссылку, то Джин подлетит к ней и доходчиво объяснит, куда вы попадёте, нажав на ссылку… Здорово? Вот приблизительно такую страничку мы и сотворим в данной статье.

Теперь самое время установить MsAgent. Для этого нужно отправиться на страницу http://www.microsoft.com/msagent/ и скачать оттуда следующие файлы:
1) Сам Microsoft Agent – http://activex.microsoft.com/activex/controls/agent2/MSagent.exe (395 кб), обязательно;
2) Перевод на русский язык различных диалогов, надписей и т.п. – http://activex.microsoft.com/activex/controls/agent2/AgtX0419.exe (128 кб), необязательно;
3) один из персонажей (например, Джин из мультфильма "Аладдин") – http://download.microsoft.com/download/0/0/c/00cde5f8-321d-4325-baae-eb27f1bde85f/Genie.exe (1.6 Mb), необязательно, можно работать и с другим персонажем;
4) компонент для произношения текстов (для русского языка) – http://activex.microsoft.com/activex/controls/agent2/lhttsrur.exe (2.9 Mb), необязательно;
5) Поддержка SAPI (нужна для произношения текстов, в Win2000 должна быть установлена изначально) – http://activex.microsoft.com/activex/controls/sapi/spchapi.exe (824 кб), необязательно.
После установки всех этих компонентов можно приступать к разработке приложений, использующих технологию MsAgent. Начнём мы, как уже было сказано, с web-страниц. Сразу замечу, что MsAgent накладывает некоторые ограничения на пользователя:
– MsAgent не будет работать ни в одном web-браузере, кроме Internet Explorer (разработчик ведь Microsoft). Версия IE должна быть не ниже, чем 3.02;
– у посетителя должно быть установлено необходимое программное обеспечение (его мы уже скачали).
Теперь сделаем маленькую пробную страничку. Откройте самый продвинутый HTML-редактор с названием Блокнот (некоторым он известен как NotePad). Запишите в нём следующие строки:

<html>
<head>
 <title>Microsoft Agent</title>
 <Object ID="Agent" Width=0 Height=0
 ClassID="CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F"
 CodeBase="#VERSION=2,0,0,0">
 </Object>
 <script language=javascript>
 <!--
  var Genie;
  function LoadAgent()
   {
    Agent.Characters.Load ("Genie", "Genie.acs");
    Genie = Agent.Characters.Character("Genie");
    Genie.Show();
//А здесь можно написать другие команды
   }
  function UnLoadAgent()
   { Agent.Characters.Unload("Genie");}
 //-->
 </script>
</head>
<body
 onload="LoadAgent()"
 onunload="UnLoadAgent()">
<html>

Теперь сохраните данный код в файл *.html и откройте полученную страничку при помощи Internet Explorer. После загрузки страницы из дыма появится Джин, поприветствует вас поклоном и произнесёт на русском языке приветственную фразу. Давайте посмотрим, как мы добились такого результата.
В тэге <object> мы подключили к нашей странице объект AGENT, который предоставит нам все возможности технологии MsAgent. После этого на языке JavaScript записали две функции – LoadAgent и UnLoadAgent. А затем в тэге указали, что эти функции должны вызываться при загрузке и закрытии страницы соответственно. После строчек

…
Agent.Characters.Load ("Genie", "Genie.acs");
Genie = Agent.Characters.Character("Genie");
…

мы можем "давать команды" Джину: Genie.Show; Genie.Play; Genie.Speak; и т.д. Давайте рассмотрим некоторые команды более подробно:
Команда Пояснения
Show Служит для появления персонажа на экране
Hide Скрывает персонажа
MoveTo(X, Y) Перемещает персонажа в точку с координатами (X; Y), координаты задаются в пикселях
Play("Имя анимации"); Проигрывает заданную анимацию.
GestureAt(X, Y) Персонаж указывает рукой в точку с координатами (X; Y)
Think("Мысль") Персонаж "думает Мысль", т.е. звука нет, но над персонажем появляется текст Мысли.
Speak("Фраза") Персонаж произносит Фразу.

Вот несколько анимаций для персонажа "Джин":




Пример: Genie.Play("Write");

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

Тэг Значения и описание
\Chr="значение"\ Изменяет голос персонажа:
"Normal" (по умолчанию) – нормальный голос
"Monotone" – монотонный голос
"Whisper" – шёпот
\Emp\ На следующем за тэгом слове делается ударение
\Map="spokentext"="balloontext"\
Персонаж вслух произносит строку "spokentext", а над ним отображается строка "balloontext". Т.е. персонаж как бы думает одно, а говорит совершенно другое.
\Pau=значение\
Делает паузу, которая длится "значение" миллисекунд
\Pit=значение\
Устанавливает частоту произношения в Герцах
\Rst\ Устанавливает все параметры в исходное состояние
\Spd=значение\ Устанавливает скорость произношения текста в "словах в минуту"
\Vol=значение\ Устанавливает громкость произношения текста (от 0 до 65535)

Пример для JavaScript: Genie.Speak("\\chr=\"Whisper\"\\\\Pit=18400\\\\Spd=100\\Привет!");

С помощью представленных команд можно создать довольно эффектную и интерактивную страничку. Про другие команды и свойства мы поговорим в следующей части, когда перейдём к Delphi, а пока рассмотрим несколько аспектов использования MsAgent в web-страничках. Предположим, вы поместили страничку в интернете. Тогда её могут просматривать три вида пользователей:

1) С браузером Internet Explorer и установленной MsAgent;
2) С браузером Internet Explorer без установленной MsAgent;
3) С другим браузером.

Именно эти три случая мы должны обрабатывать в нашей страничке. Сделать это не так и сложно. Вначале запишем функцию HaveAgent, которая будет определять, установлены ли компоненты MsAgent в системе:

Function HaveAgent()
  Dim agent
  HaveAgent = False
  On Error Resume Next
  Set agent = CreateObject("Agent.Control.1")
  HaveAgent = IsObject(agent)
End Function

Теперь на основе этой функции можно написать шаблон странички, которая будет предусматривать все возможные варианты:

<SCRIPT LANGUAGE=VBSCRIPT>
 If HaveAgent() Then
  document.write "<H2 align=center>MsAgent найден</H2>"
 Else
'Microsoft Agent control was not found.
  document.write "<H2 align=center> MsAgent не найден</H2>"
 End If
 Function HaveAgent()
  Dim agent
  HaveAgent = False
  On Error Resume Next
  Set agent = CreateObject("Agent.Control.1")
  HaveAgent = IsObject(agent)
 End Function
</SCRIPT>

Вот и всё! По этому небольшому шаблону можно писать web-странички с использованием MsAgent, которые будут корректно отображаться во всех браузерах. Для примера я создал страничку, которую можно найти по адресу http://www.agentsample.narod.ru/

На этом мы заканчиваем рассмотрение использования технологии Microsoft Agent в web-страничках. В следующей части мы перейдём к Delphi.

Иван Ширко
ishyrko@gmail.com

Читать дальше >>