dspack - delphi xe 播放视频的最佳

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

#include 
#pragma hdrstop

#include “main.h“
//---------------------------------------------------------------------------
#pragma package（smart_init）
#pragma link “DSPack“
#pragma resource “*.dfm“
TMainForm *MainForm;
TSysDevEnum *SysDev;

//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm（TComponent* Owner）
        : TForm（Owner）
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate（Tobject *Sender）
{
  SysDev = new TSysDevEnum（CLSID_VideoInputDeviceCategory）;
  if （SysDev->CountFilters > 0） {
    int i;
    TMenuItem *Device;
    for（i = 0; i < SysDev->CountFilters; i++） {
      Device = new TMenuItem（Devices）;
      Device->Caption = SysDev->Filters[i].FriendlyName;
      Device->Tag = i;
      Device->onclick = DevicesClick;
      Devices->Add（Device）;
    }
  };
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::DevicesClick（Tobject *Sender）
{
  FilterGraph->ClearGraph（）;
  FilterGraph->Active = false;
  Filter->baseFilter->Moniker = SysDev->GetMoniker（（（TMenuItem *）Sender）->Tag）;
  FilterGraph->Active = true;
  ICaptureGraphBuilder2 *Graph = NULL;
  IbaseFilter *SourceFilter = NULL;
  IbaseFilter *VideoFilter = NULL;
  CheckDSError（FilterGraph->QueryInterface（IID_ICaptureGraphBuilder2 &Graph））;
  CheckDSError（VideoWindow->QueryInterface（IID_IbaseFilter &VideoFilter））;
  CheckDSError（Filter->QueryInterface（IID_IbaseFilter &SourceFilter））;
  Graph->RenderStream（&PIN_CATEGORY_PREVIEW NULL SourceFilter NULL VideoFilter）;
  FilterGraph->Play（）;
  Graph->Release（）;
  VideoFilter->Release（）;
  SourceFilter->Release（）;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormDestroy（Tobject *Sender）
{
  delete SysDev;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormCloseQuery（Tobject *Sender bool &CanClose）
{
  FilterGraph->Active = false;        
}
//---------------------------------------------------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       3453  2012-11-03 12:36  dspack XE10changes.txt

     文件        117  2012-04-30 23:48  dspack XE10CreateDoc.bat

     文件        156  2011-09-03 09:10  dspack XE10Demos.svnall-wcprops

     文件        402  2011-09-03 09:10  dspack XE10Demos.svnentries

     文件         80  2011-09-03 09:10  dspack XE10Demos.svn ext-baseClean.bat.svn-base

     文件         73  2011-09-03 09:10  dspack XE10DemosBCB6.svnall-wcprops

     文件        217  2011-09-03 09:10  dspack XE10DemosBCB6.svnentries

     文件        584  2011-09-03 09:10  dspack XE10DemosBCB6Playcap.svnall-wcprops

     文件        936  2011-09-03 09:10  dspack XE10DemosBCB6Playcap.svnentries

     文件       2323  2011-09-03 09:10  dspack XE10DemosBCB6Playcap.svn ext-basemain.cpp.svn-base

     文件       1026  2011-09-03 09:10  dspack XE10DemosBCB6Playcap.svn ext-basemain.dfm.svn-base

     文件       1200  2011-09-03 09:10  dspack XE10DemosBCB6Playcap.svn ext-basemain.h.svn-base

     文件       5754  2011-09-03 09:10  dspack XE10DemosBCB6Playcap.svn ext-basePlaycap.bpr.svn-base

     文件       1077  2011-09-03 09:10  dspack XE10DemosBCB6Playcap.svn ext-basePlaycap.cpp.svn-base

     文件       2323  2012-04-30 23:48  dspack XE10DemosBCB6Playcapmain.cpp

     文件       1026  2012-04-30 23:48  dspack XE10DemosBCB6Playcapmain.dfm

     文件       1200  2012-04-30 23:48  dspack XE10DemosBCB6Playcapmain.h

     文件       5754  2012-04-30 23:48  dspack XE10DemosBCB6PlaycapPlaycap.bpr

     文件       1077  2012-04-30 23:48  dspack XE10DemosBCB6PlaycapPlaycap.cpp

     文件        584  2011-09-03 09:10  dspack XE10DemosBCB6PlayWin.svnall-wcprops

     文件        937  2011-09-03 09:10  dspack XE10DemosBCB6PlayWin.svnentries

     文件       1808  2011-09-03 09:10  dspack XE10DemosBCB6PlayWin.svn ext-basemain.cpp.svn-base

     文件      40512  2011-09-03 09:10  dspack XE10DemosBCB6PlayWin.svn ext-basemain.dfm.svn-base

     文件       1643  2011-09-03 09:10  dspack XE10DemosBCB6PlayWin.svn ext-basemain.h.svn-base

     文件       5180  2011-09-03 09:10  dspack XE10DemosBCB6PlayWin.svn ext-basePlayWin.bpr.svn-base

     文件       1077  2011-09-03 09:10  dspack XE10DemosBCB6PlayWin.svn ext-basePlayWin.cpp.svn-base

     文件       1808  2012-04-30 23:48  dspack XE10DemosBCB6PlayWinmain.cpp

     文件      40512  2012-04-30 23:48  dspack XE10DemosBCB6PlayWinmain.dfm

     文件       1643  2012-04-30 23:48  dspack XE10DemosBCB6PlayWinmain.h

     文件       5180  2012-04-30 23:48  dspack XE10DemosBCB6PlayWinPlayWin.bpr

............此处省略1329个文件信息