Flash - статьи



              

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


Текст модуля для демонстрации методов SetVariable и GetVariable

//------------------------------------

#include < vcl.h>

#pragma hdrstop

#include "Unit1.h"

//-----------------------------------

#pragma package(smart_init)

#pragma link "ShockwaveFlashObjects_OCX"

#pragma resource "*.dfm"

TForm1 *Form1;

//-----------------------------------

__fastcall TForm1::
TForm1(TComponent* Owner)

: TForm(Owner)

{

ShockwaveFlash1->Movie =
ExtractFilePath(Application->ExeName) + "BcbToFlash.swf";

Label3->Caption = ShockwaveFlash1->
GetVariable (L"CBuilderText.borderColor");

}

//-------------------------------------

void __fastcall TForm1::
Button1Click(TObject *Sender)

{

ShockwaveFlash1->SetVariable
(L"BcbText", StringToOleStr(Edit1->Text));

}

//--------------------------------------

void __fastcall TForm1::
ComboBox1Change(TObject *Sender)

{

ShockwaveFlash1->SetVariable
(L"CBuilderText.borderColor", StringToOleStr(ComboBox1->Text));

}

//---------------------------------------

void __fastcall TForm1::
Button2Click(TObject *Sender)

{

Label3->Caption = ShockwaveFlash1->
GetVariable (L"CBuilderText.borderColor");

}

//--------------------------------------




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