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

#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;????????
}
//---------------------------------------------------------------------------

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件??????39632??2013-06-06?15:58??Server\cmdsvr\Source\CMDServer.pas

?????文件???????1512??2013-06-06?15:58??Server\cmdsvr\Source\cmdsvr.dpr

?????文件???????5032??2013-06-06?15:58??Server\cmdsvr\Source\cmdsvr.dproj

?????文件???????4396??2012-11-10?19:08??Server\cmdsvr\Source\cmdsvr.res

?????文件???????1910??2013-06-06?16:00??Server\cmdsvr\Source\Lib_CMDSVR.pas

?????文件??????20302??2012-11-11?01:33??Server\cmdsvr\Source\NTSecurity.pas

?????文件???????1413??2012-11-11?22:59??Server\fmlBugReport\Source\BugReport.pas

?????文件???????1193??2012-11-11?22:59??Server\fmlBugReport\Source\fmlBugReport.dpr

?????文件???????4980??2012-11-11?22:59??Server\fmlBugReport\Source\fmlBugReport.dproj

?????文件???????4396??2012-04-10?16:33??Server\fmlBugReport\Source\fmlBugReport.res

?????文件???????4286??2012-09-03?13:40??Server\fmlBugReport\Source\fmtBugReport_Icon.ico

?????文件????????762??2012-11-11?23:13??Server\fmlBugReport\Source\Lib_fmlBugReport.pas

?????文件???????6148??2013-06-08?20:41??Server\fmlCommon\.DS_Store

?????文件?????????82??2013-06-08?20:46??Server\fmlCommon\._.DS_Store

?????文件????????611??2012-06-30?18:36??Server\fmlCommon\Source\FirebirdDBLock.pas

?????文件???????2281??2012-09-21?18:12??Server\fmlCommon\Source\fmlCommon.dpr

?????文件???????4434??2012-10-31?14:51??Server\fmlCommon\Source\fmlCommon.dproj

?????文件???????4396??2012-04-10?16:34??Server\fmlCommon\Source\fmlCommon.res

?????文件???????4286??2012-09-03?13:40??Server\fmlCommon\Source\fmtCommon_Icon.ico

?????文件??????16439??2012-11-11?23:16??Server\fmlCommon\Source\GroupContexts.pas

?????文件??????12819??2012-11-03?00:33??Server\fmlCommon\Source\Lib_fmlCommon.pas

?????文件??????19591??2012-11-11?23:16??Server\fmlCommon\Source\UserContexts.pas

?????文件???????1293??2012-11-13?03:57??Server\fmlServer\Source\fmlServer.dpr

?????文件???????4810??2012-11-13?03:57??Server\fmlServer\Source\fmlServer.dproj

?????文件??????24460??2012-10-31?14:51??Server\fmlServer\Source\fmlServer.res

?????文件??????22486??2012-07-07?06:19??Server\fmlServer\Source\fmServer.ico

?????文件??????22486??2012-09-03?13:40??Server\fmlServer\Source\fmtServer_Icon.ico

?????文件????????413??2012-09-21?05:12??Server\fmlServer\Source\ServiceDM.dfm

?????文件??????10677??2012-11-13?03:57??Server\fmlServer\Source\ServiceDM.pas

?????文件???????5209??2012-05-14?16:07??Server\fmlServer\Source\WinSvcEx.pas

............此處省略2775個文件信息