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

#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?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個文件信息