//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool Fetchf;
String Path;
int Count=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::exit1Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::open1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
 {
 MediaPlayer1->FileName=OpenDialog1->FileName;
 MediaPlayer1->Open();
 Label2->Caption =IntToStr(MediaPlayer1->Position);
 Label1->Caption=MediaPlayer1->TrackLength[1];
 ScrollBar1->Max=MediaPlayer1->TrackLength[1];
  MediaPlayer1->Frames = 1;
  SpeedButton1->Enabled=true;
 }        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(MediaPlayer1->FileName!="")
 {
 Label2->Caption=MediaPlayer1->Position;
 ScrollBar1->Position=MediaPlayer1->Position;
 }
   Edit1->Text=UpDown1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
Graphics::TBitmap *MyBmp;
  TCanvas *MyCanvas;
  HDC dc;
  TRect rect;
  String name,tmp;
  if(Fetchf)
  {
   try
   {
     MyBmp = new Graphics::TBitmap ;
     MyCanvas =new TCanvas ;
     rect = MediaPlayer1->DisplayRect ;
     dc = GetDC(Panel1->Handle);
     MyCanvas->Handle = dc;
     MyBmp->Width = rect.Right - rect.Left ;
     MyBmp->Height = rect.Bottom - rect.Top ;
     MyBmp->Canvas->CopyRect(rect,MyCanvas,rect);
     Count =Count+1;
     if(Count<10)name="000" + IntToStr(Count);
     else if(Count<100)name="00"+ IntToStr(Count);
     else if(Count<1000)name="0"+ IntToStr(Count);
     name="D:\\image\\colorimage\\num"+name+".bmp";
     MyBmp->SaveToFile(name);
   }
   catch(...){}
   ReleaseDC(0,dc);
   delete MyBmp;
   delete MyCanvas;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MediaPlayer1Click(TObject *Sender,
      TMPBtnType Button, bool &DoDefault)
{
Timer2->Enabled=true;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
if(SpeedButton1->Down) 
  {
   Fetchf = true;
   MediaPlayer1->Frames = UpDown1->Position;
  }
  else
  Fetchf = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
SpeedButton1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
MediaPlayer1->Position=ScrollBar1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
 Label2->Caption = IntToStr(MediaPlayer1->Position);
}
//---------------------------------------------------------------------------