Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 4
Всего онлайн: 4
Зарегистрировано юзеров: 5845
Комментариев на сайте: 626
Новый юзер: MilesStecy



Последние комментарии
c
s1t1n прокомментировал "Урок 9 - Экспорт .3DS модели из 3DS max 2009 в OpenGL":
Отлично.
niaz-gtn прокомментировал "Урок 71 - Работа с сжатыми файлами":
7z.dll - приложите.



Мы в соцсетях
c
Delphi
Flash в Delphi

  Чтобы иметь возможность работать с Flash-роликом, необходимо импортировать компонент ActiveX для Flash. Естественно, это возможно, если в операционной системе есть библиотека Flash.ocx или SWFlash.ocx. Эта библиотека устанавливается автоматически при установке пакета Flash или проигрывателя Flash. Последний распространяется компанией Macromedia бесплатно.

  Итак, установим компоненту.
Запустим Delphi. Откроем меню Component>Import ActiveX Control, появится диалоговое окно (рис. 1).

Диалоговое окно Import ActiveX
Рис 1. Диалоговое окно Import ActiveX

  Поле Palette page можно не менять, если вы не хотите поместить компонент на другую страницу палитры компонентов. Найдите и выберите в списке Shockwave, откроется кнопка Install…, нажмите её, появится окно (рис. 2)

Выбор пакеджа, в который будет помещаться компонент.
Рис. 2. Выбор пакеджа, в который будет помещаться компонент.

  Рекомендуем поле File name не менять. Нажатие кнопки OK приведет к появлению окна (рис. 3)

Запрос на переустановку пакеджа
Рис. 3. Запрос на переустановку пакеджа.

  После подтверждения получаем информационное сообщение (рис. 4)

Информационное сообщение
Рис. 4. Информационное сообщение


  В результате всех этих манипуляций в палитре компонентов в разделе ActiveX появится новая компонента

ShockwaveFlash1


  Для того чтобы ролик воспроизводился при компиляции программы, пропишите этот код, предварительно кинув на форму установленный компонент :)
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'flash.swf';
end;

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 22 Апреля 2012
Просмотров: 5106


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил(а): Артём [Новичок] Дата: 2015-02-10
Спасибо! ^_^