dspack - delphi xe 播放视频的最佳

dspack - delphi xe 播放视频的最佳 ，里面demo下面目录，DSVideoWinDowEx 能解决你不部分问题。

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

#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 XE10\changes.txt

     文件        117  2012-04-30 23:48  dspack XE10\CreateDoc.bat

     文件        156  2011-09-03 09:10  dspack XE10\Demos\.svn\all-wcprops

     文件        402  2011-09-03 09:10  dspack XE10\Demos\.svn\entries

     文件         80  2011-09-03 09:10  dspack XE10\Demos\.svn\text-base\Clean.bat.svn-base

     文件         73  2011-09-03 09:10  dspack XE10\Demos\BCB6\.svn\all-wcprops

     文件        217  2011-09-03 09:10  dspack XE10\Demos\BCB6\.svn\entries

     文件        584  2011-09-03 09:10  dspack XE10\Demos\BCB6\Playcap\.svn\all-wcprops

     文件        936  2011-09-03 09:10  dspack XE10\Demos\BCB6\Playcap\.svn\entries

     文件       2323  2011-09-03 09:10  dspack XE10\Demos\BCB6\Playcap\.svn\text-base\main.cpp.svn-base

     文件       1026  2011-09-03 09:10  dspack XE10\Demos\BCB6\Playcap\.svn\text-base\main.dfm.svn-base

     文件       1200  2011-09-03 09:10  dspack XE10\Demos\BCB6\Playcap\.svn\text-base\main.h.svn-base

     文件       5754  2011-09-03 09:10  dspack XE10\Demos\BCB6\Playcap\.svn\text-base\Playcap.bpr.svn-base

     文件       1077  2011-09-03 09:10  dspack XE10\Demos\BCB6\Playcap\.svn\text-base\Playcap.cpp.svn-base

     文件       2323  2012-04-30 23:48  dspack XE10\Demos\BCB6\Playcap\main.cpp

     文件       1026  2012-04-30 23:48  dspack XE10\Demos\BCB6\Playcap\main.dfm

     文件       1200  2012-04-30 23:48  dspack XE10\Demos\BCB6\Playcap\main.h

     文件       5754  2012-04-30 23:48  dspack XE10\Demos\BCB6\Playcap\Playcap.bpr

     文件       1077  2012-04-30 23:48  dspack XE10\Demos\BCB6\Playcap\Playcap.cpp

     文件        584  2011-09-03 09:10  dspack XE10\Demos\BCB6\PlayWin\.svn\all-wcprops

     文件        937  2011-09-03 09:10  dspack XE10\Demos\BCB6\PlayWin\.svn\entries

     文件       1808  2011-09-03 09:10  dspack XE10\Demos\BCB6\PlayWin\.svn\text-base\main.cpp.svn-base

     文件      40512  2011-09-03 09:10  dspack XE10\Demos\BCB6\PlayWin\.svn\text-base\main.dfm.svn-base

     文件       1643  2011-09-03 09:10  dspack XE10\Demos\BCB6\PlayWin\.svn\text-base\main.h.svn-base

     文件       5180  2011-09-03 09:10  dspack XE10\Demos\BCB6\PlayWin\.svn\text-base\PlayWin.bpr.svn-base

     文件       1077  2011-09-03 09:10  dspack XE10\Demos\BCB6\PlayWin\.svn\text-base\PlayWin.cpp.svn-base

     文件       1808  2012-04-30 23:48  dspack XE10\Demos\BCB6\PlayWin\main.cpp

     文件      40512  2012-04-30 23:48  dspack XE10\Demos\BCB6\PlayWin\main.dfm

     文件       1643  2012-04-30 23:48  dspack XE10\Demos\BCB6\PlayWin\main.h

     文件       5180  2012-04-30 23:48  dspack XE10\Demos\BCB6\PlayWin\PlayWin.bpr

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