Flash - статьи



   Блог ТТР             

Использование методов SetVariable и GetVariable для передачи данных между Flash и Delphi


Демонстрации методов SetVariable и GetVariable приведены в проекте, который находится в файле .

Методы объявлены в ShockwaveFlashObjects_TLB.pas следующим образом:

procedure SetVariable(const name: WideString; const value: WideString); safecall; function GetVariable(const name: WideString): WideString; safecall;

Параметр name определяет полное имя переменной, значение которой устанавливается методом SetVariable или запрашивается методом GetVariable. Для метода SetVariable параметр value содержит устанавливаемое значение. Возврат значения переменной в методе GetVariable производится через имя метода.

Итак, пример использования SetVariable и GetVariable

Во Flash создаем ролик (см. ), в котором располагаем статический и динамический тексты.

В динамическом тексте меняем его имя на DelphiText и имя переменной на DelphiVarText (см. рис. 10)

Рис. 10. Свойства динамического текста

Сохраняем Flash-ролик под именем DelphiToFlash.flaDelphiToFlash.swf) и приступаем к созданию проекта на Delphi (см. рис. 11).

Этот проект будет передавать во Flash-ролик текст, который будет отображаться в поле динамического текста (имя этого компонента DelphiText), меняя переменную под именем DelphiVarText. Изменение будет происходить при нажатии на кнопку "Передать" (вызов метода SetVariable).

С помощью ComboBox1 будем менять цвет бордюра вокруг текста. Изменение будет происходить при любой модификации значения в ComboBox1 (опять же метод SetVariable).

Рис. 11. Форма для демонстрации методов SetVariable и GetVariable

И, наконец, демонстрация метода GetVariable с помощью кнопки "Запросить цвет бордюра из Flash-ролика" и метки с именем Label3. При нажатии на кнопку, в Label3 отобразится значение кода цвета бордюра.

Обратите внимание, что задавать цвет надо в 16-тиричном виде, а возвращается он в десятичном.




Содержание  Назад  Вперед