Flash в Delphi, Різне, Програмування, статті

Багато програмістів забувають, про таку чудову річ, як Flash. Розробники намагаються прикрасити своє творіння, за допомогою численних GIF анімацій, які суттєво гальмують програму. А адже можна дуже легко наповнити свій додаток приголомшливими ефектами, при цьому вони будуть займати мінімум місця. Так, я зараз говорю саме про інтеграцію всіма улюблених flash роликів в вашу програму.


Виявляється зробити це дуже легко. Все що вам потрібно – це встановлений flash програвач від компанії Macromedia. Якщо у вас флешки програються без проблем, то можете вважати, що він у вас встановлений.


Для того щоб працювати з Flash в Delphi, Вам необхідно встановити додатковий компонент TShockwaveFlash. Зробити це легко. Запустіть Delphi і виберіть пункт меню Component-> Import ActiveX Control … Перед вами відкриється діалогове вікно з заголовком Import ActiveX. У списку виберіть Shockwave Flash. У розділі Pallete Page … Виберіть сторінку в палітрі компонентів, на якій буде розташовуватися встановлений компонент (за умовчанням це ActiveX). У розділі Unit Dir Name … шлях до папки куди буде встановлений компонент (можна залишити поточний).


Натисніть на кнопку Install. Перед вами з’явиться вікно, в якому вам потрібно буде вибрати в який пакет буде встановлений компонент (ви можете встановити як у вже існуючий, так і в новий пакет. Я вибрав перший варіант.). Потім перед вами з’явиться вікно редагування обраного пакета і Delphi вас запитає: ‘… Package will be rebuilt. Continue? ‘. Дайте відповідь Yes. Все готово тепер можна використовувати флеш в ваших додатках.


Для того щоб огляд даної можливості був найбільш повним поясню, як працювати з компонентом TShockwaveFlash.


Передусім необхідно перетягнути цей об’єкт до встановленої вкладки (ActiveX за замовчуванням) на форми. Властивість Playing встановіть в false.


В об’єкта TShockwaveFlash є два важливих методу: Play і Stop. Їх можна викликати так:


TShockwaveFlash.Play
TShockwaveFlash.Stop


З їх допомогою можна запускати і зупиняти flash-Ролики. За задумом розробників по команді TShockwaveFlash.Play ролик повинен почати відтворюватися, але в мене чомусь відтворив перший кадр і ролик зупинився.


Проблема була вирішена наступним способом. На форму був кинутий компонент Timer з вкладки System. Властивість Interval встановлено рівним 1. І по події onTimer проводився оператор TShockwaveFlash.Play


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


Ось так. залишилося передати компоненту TShockwaveFlash ім’я flash-ролика, для його подальшого відтворення. за ім’я файлу відповідає властивість Movie. найкраще це зробити так. Кинути на форму кнопку і OpenDialog з вкладки Dialogs. Після чого створити обробник події onClick кнопки.


procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
flash1.Movie := opendialog1.FileName;
end;
end;


Є у TShockwaveFlash і ще один важливий метод GotoFrame. За допомогою нього можна переходити на певний кадр ролика. А у властивості TotalFrames зберігається повна кількість кадрів. Узагальнивши все це можна легко реалізувати прокручування роликів при допомога об’єкта TrackBar.

На цьому все. Сподіваюся, що з рештою властивостями і методами компонента TShockwaveFlash ти розберешся сам. Сподіваюся, що ти зможеш правильно скористатися цією можливістю і твої програми заблищали і придбають новий вид. Удачи!

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*