Использование методов 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.fla (и DelphiToFlash.swf) и приступаем к созданию проекта на Delphi (см. рис. 11).
Этот проект будет передавать во Flash-ролик текст, который будет отображаться в поле динамического текста (имя этого компонента DelphiText), меняя переменную под именем DelphiVarText. Изменение будет происходить при нажатии на кнопку "Передать" (вызов метода SetVariable).
С помощью ComboBox1 будем менять цвет бордюра вокруг текста. Изменение будет происходить при любой модификации значения в ComboBox1 (опять же метод SetVariable).
Рис. 11. Форма для демонстрации методов SetVariable и GetVariable
И, наконец, демонстрация метода GetVariable с помощью кнопки "Запросить цвет бордюра из Flash-ролика" и метки с именем Label3. При нажатии на кнопку, в Label3 отобразится значение кода цвета бордюра.
Обратите внимание, что задавать цвет надо в 16-тиричном виде, а возвращается он в десятичном.
