test4.cpp

Flash是一个可以播放Flash的源码软件

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

#include <vcl.h>
#pragma hdrstop

#include "test4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ShockwaveFlashObjects_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        OpenDialog1->Filter="Flash文件(*.swf)|*.swf|全部文件(*.*)|*.*";
        if(OpenDialog1->Execute()==mrOk)
        {
                ShockwaveFlash1->Loop=false;
                ShockwaveFlash1->BackgroundColor=clRed;
                ShockwaveFlash1->ScaleMode=1;
                ShockwaveFlash1->Quality=4;
                ShockwaveFlash1->Movie=OpenDialog1->FileName;
                ProgressBar1->Min=0;
                ProgressBar1->Max=ShockwaveFlash1->TotalFrames;
                time1=new TTimer(Form1);
                time1->Interval=10;
                time1->Enabled=false;
                time1->OnTimer=(TNotifyEvent)&timeout;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        ShockwaveFlash1->Playing=!ShockwaveFlash1->Playing;
        if(ShockwaveFlash1->Playing&&!time1->Enabled)
                time1->Enabled=true;
        if(!ShockwaveFlash1->Playing)
                time1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        ShockwaveFlash1->Pan(0,12,1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
        ShockwaveFlash1->Pan(0,-12,1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShockwaveFlash1ReadyStateChange(TObject *Sender,
      long newState)
{
        ProgressBar1->Position=ShockwaveFlash1->CurrentFrame();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
        if(!start)
        {
                start=true;
                ComboBox1->Clear();
                ComboBox1->Items->Clear();
                ComboBox1->Items->Add("自适应");
                ComboBox1->Items->Add("宽度适应");
                ComboBox1->Items->Add("高度适应");
                ComboBox1->Items->Add("居中");
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
        if(ComboBox1->Text=="自适应")
                ShockwaveFlash1->ScaleMode=2;
        if(ComboBox1->Text=="宽度适应")
                ShockwaveFlash1->ScaleMode=0;
        if(ComboBox1->Text=="居中")
                ShockwaveFlash1->ScaleMode=3;
        if(ComboBox1->Text=="高度适应")
                ShockwaveFlash1->ScaleMode=4;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::timeout(TObject *Sender)
{
        ProgressBar1->Position=ShockwaveFlash1->FrameNum;
        if(ShockwaveFlash1->FrameNum>=ShockwaveFlash1->TotalFrames)
                time1->Enabled=false;
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        time1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
        OpenDialog1->Filter="Flash文件(*.swf)|*.swf|全部文件(*.*)|*.*";
        if(OpenDialog1->Execute()==mrOk)
        {
                TShockwaveFlash *flash1=new TShockwaveFlash(Form1);
                flash1->Loop=false;
                flash1->BackgroundColor=clRed;
                flash1->ScaleMode=1;
                flash1->Quality=4;
                flash1->Parent=Form1;
                flash1->Top=0;
                flash1->Left=0;
                flash1->Width=ShockwaveFlash1->Width;
                flash1->Height=ShockwaveFlash1->Height;
                flash1->Visible=true;
                flash1->Movie=OpenDialog1->FileName;
                flash1->Focused();
                flash1->SetFocus();
                flash1->Play();
                delete flash1;
        }
}
//---------------------------------------------------------------------------