Flash - статьи



              

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


Отметим, что в программе используются:

  • свойство ShockwaveFlash1->TotalFrames для отображения общего количества фреймом во Flash ролике;

  • метод ShockwaveFlash1->IsPlaying. Возвращаемое им значение позволяет определить проигрывается ли в текущий момент ролик.

    метод ShockwaveFlash1->CurrentFrame для отображения номера текущего фрейма при остановках.

Исходный код программы находится в архиве .

Текст основного модуля из архива

#include < vcl.h>

#pragma hdrstop

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma link "ShockwaveFlashObjects_OCX"

#pragma link "CSPIN"

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1
(TComponent* Owner)

: TForm(Owner)

{

}

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

void TForm1::ShowCurFrame(void) //
показать номер текущего фрейма

{

Label2->Caption = IntToStr
(ShockwaveFlash1->CurrentFrame()); // номер текущего фрейма

Label2->Visible = true;

}

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

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

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

}

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

void __fastcall TForm1::
Button2Click(TObject *Sender)

{

ShockwaveFlash1->Stop();

ShowCurFrame();

}

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

void __fastcall TForm1::
Button3Click(TObject *Sender)

{

ShockwaveFlash1->Play();

Label2->Visible = false;

}

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

void __fastcall TForm1::
Button4Click(TObject *Sender)

{

if (ShockwaveFlash1->IsPlaying())

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

ShockwaveFlash1->Back();
// на предыдущий фрейм

ShowCurFrame();

}

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

void __fastcall TForm1::
Button5Click(TObject *Sender)

{

if (ShockwaveFlash1->IsPlaying())




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