Flash - статьи



              

Проигрывание Flash ролика - часть 3


ShockwaveFlash1->Stop();
// если проигрывается, то остановим

ShockwaveFlash1->Forward();
// на следующий фрейм

ShowCurFrame();

}

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

void __fastcall TForm1::
Button6Click(TObject *Sender)

{

if (ShockwaveFlash1->IsPlaying())

ShockwaveFlash1->Stop(); //
если проигрывается, то остановим

ShockwaveFlash1->Rewind(); //
на 1-й фрейм

ShowCurFrame();

}

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

void __fastcall TForm1::
Button7Click(TObject *Sender)

{

ShockwaveFlash1->GotoFrame
(StrToInt(CSpinEdit1->Text)); // на введенный фрейм

ShowCurFrame();

}

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

void __fastcall TForm1::
Button8Click(TObject *Sender)

{

if (OpenDialog1->Execute())

{

if (ShockwaveFlash1->IsPlaying())

ShockwaveFlash1->Stop(); //
если проигрывается, то остановим

ShockwaveFlash1->Movie =
OpenDialog1->FileName;

Label4->Caption = IntToStr
(ShockwaveFlash1->TotalFrames); // Общее число фреймов

ShockwaveFlash1->Play();

Label2->Visible = false;

}

}

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




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