Flash производится Macromedia и используется для динамической и интерактивной шоковой волны в Интернете. его
Преимущество состоит в том, что он имеет небольшой размер и в него можно играть во время загрузки, что позволяет пользователям не ждать долгое время.
FLASH можно использовать для создания анимации и добавления звука на веб-страницы. Таким образом, вы можете создавать мультимедийную графику и интерфейсы, сохраняя при этом небольшой размер файла.
Хотя FLASH нельзя запрограммировать как язык, он может использовать встроенные операторы в сочетании с
С помощью javaSCRipE вы также можете создать интерактивную домашнюю страницу.
Еще одна особенность FLASH заключается в том, что для того, чтобы браузер принял его, необходимо установить плагин ПЛАГИН! Конечно, это тоже
Избегайте различий между браузерами и относитесь к ним одинаково!
Но знаешь что? В Delphi вы можете напрямую открыть флэш-анимацию и управлять ее воспроизведением и остановкой. Ты все еще
Могу ли я получить общее количество кадров? Знаете ли вы, как этого добиться? пожалуйста, идите за мной.
Выберите «Shockwave» в разделе «Компонент | Импортировать элементы управления ActiveX...» в Delphi.
Flash (Версия 1.0)» и нажмите «Установить», появится окно установки.
Если вы хотите добавить его в существующий пакет, в диалоговом окне «в существующий пакет»
Выберите путь, который вы хотите установить, в окне «Имя файла:» и нажмите «ОК», появится диалоговое окно подтверждения;
Спросите вас «Пакет dclusr50.bpl будет пересобран. Продолжить?», во всплывающем окне нажмите «Да»;
Просто нажмите «Установить» и плагин будет установлен.
Если вы хотите добавить его в новый пакет, нажмите «Файл» в диалоговом окне «В новый пакет».
name:», выберите путь, который вы хотите установить, и создайте новый пакет, если он называется test, и нажмите «ОК».
Спросите вас: «Пакет test.bpl будет собран. Продолжить?», нажмите «Да». Заказать во всплывающем окне
Нажмите «Установить» и плагин установлен.
В это время вы найдете новый элемент управления ActiveX на панели управления под названием ShockwaveFlash.
Щелкните его и поместите в форму, поместите в форму элемент управления OpenDialog и панель и поместите
Четыре кнопки, их атрибуты заголовка называются «Открыть файл», «Воспроизвести», «Стоп», «Закрыть» соответственно.
Panel1, в этих четырех свойствах Align ShockwaveFlash — Alleft и AlClient соответственно;
Напишите следующий код в событии OnClick кнопки:
PROcedure TForm1.Button1Click(Отправитель: TObject);
начинать
если OpenDialog1.Execute, то
ShockwaveFlash1.Фильм:=
OpenDialog1.ИмяФайла;
конец;
процедура TForm1.Button2Click(Отправитель: TObject);
начинать
ShockwaveFlash1.Играть;
конец;
процедура TForm1.Button3Click(Отправитель: TObject);
начинать
ShockwaveFlash1.StopPlay;
конец;
процедура TForm1.Button4Click(Отправитель: TObject);
начинать
ShockwaveFlash1.FreeOnRelease;
закрывать;
конец;
Вы можете получить общее количество кадров открытого флэш-изображения, добавить метку на панели1 и добавить метку на форме1.
Напишите следующий код в событии OnClick
процедура TForm1.FormCreate(Отправитель: TObject);
начинать
label1.caption:=shockwaveflash.totalframes;
конец;
Вы также можете управлять открытым флэш-изображением, чтобы начать воспроизведение с этого кадра.
Добавьте кнопку и элемент управления Edit на панель1.
Добавьте следующий код в событие OnClick кнопки.
если ShockwaveFlash1.играет, то
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Играть;
Заполните кадр, к которому вы хотите перейти, в редактировании и нажмите кнопку, чтобы реализовать эту функцию.
Как насчет этого, попробуйте, эффект неплохой, правда?