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


Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 3
Всего онлайн: 3
Зарегистрировано юзеров: 5759
Комментариев на сайте: 623
Новый юзер: Marcushic



Последние комментарии
c
N0E0O7 прокомментировал "Урок 1 - Инициализация OpenGL":
А у меня форма чёрная запускается
dimonsky прокомментировал "Урок 2 - Простые примитивы":
GetDC(handle) вместо canvas.handle, и убрать вызов FormResize. Тогда получается конфетка.



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


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



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