TotalFrames для отображения общего количества
Отметим, что в программе используются:
свойство 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())
