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


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



Последние комментарии
c
baxodir прокомментировал "Урок 23 - Функции для работы с мышью":
Но Это мало можно ещё больше
pronin106 прокомментировал "Урок 27 - Создаем игру Ping-pong - часть(2/3)":
Все получилось! Спасибо за урок. У кого не получилось читайте внимательнее! Не делайте тупо копипаст



Мы в соцсетях
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
Просмотров: 4791


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



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