全套FastMsg开源代码_Delphi（7.0）.rar

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

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

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

     文件      39632  2013-06-06 15:58  ServercmdsvrSourceCMDServer.pas

     文件       1512  2013-06-06 15:58  ServercmdsvrSourcecmdsvr.dpr

     文件       5032  2013-06-06 15:58  ServercmdsvrSourcecmdsvr.dproj

     文件       4396  2012-11-10 19:08  ServercmdsvrSourcecmdsvr.res

     文件       1910  2013-06-06 16:00  ServercmdsvrSourceLib_CMDSVR.pas

     文件      20302  2012-11-11 01:33  ServercmdsvrSourceNTSecurity.pas

     文件       1413  2012-11-11 22:59  ServerfmlBugReportSourceBugReport.pas

     文件       1193  2012-11-11 22:59  ServerfmlBugReportSourcefmlBugReport.dpr

     文件       4980  2012-11-11 22:59  ServerfmlBugReportSourcefmlBugReport.dproj

     文件       4396  2012-04-10 16:33  ServerfmlBugReportSourcefmlBugReport.res

     文件       4286  2012-09-03 13:40  ServerfmlBugReportSourcefmtBugReport_Icon.ico

     文件        762  2012-11-11 23:13  ServerfmlBugReportSourceLib_fmlBugReport.pas

     文件       6148  2013-06-08 20:41  ServerfmlCommon.DS_Store

     文件         82  2013-06-08 20:46  ServerfmlCommon._.DS_Store

     文件        611  2012-06-30 18:36  ServerfmlCommonSourceFirebirdDBLock.pas

     文件       2281  2012-09-21 18:12  ServerfmlCommonSourcefmlCommon.dpr

     文件       4434  2012-10-31 14:51  ServerfmlCommonSourcefmlCommon.dproj

     文件       4396  2012-04-10 16:34  ServerfmlCommonSourcefmlCommon.res

     文件       4286  2012-09-03 13:40  ServerfmlCommonSourcefmtCommon_Icon.ico

     文件      16439  2012-11-11 23:16  ServerfmlCommonSourceGroupContexts.pas

     文件      12819  2012-11-03 00:33  ServerfmlCommonSourceLib_fmlCommon.pas

     文件      19591  2012-11-11 23:16  ServerfmlCommonSourceUserContexts.pas

     文件       1293  2012-11-13 03:57  ServerfmlServerSourcefmlServer.dpr

     文件       4810  2012-11-13 03:57  ServerfmlServerSourcefmlServer.dproj

     文件      24460  2012-10-31 14:51  ServerfmlServerSourcefmlServer.res

     文件      22486  2012-07-07 06:19  ServerfmlServerSourcefmServer.ico

     文件      22486  2012-09-03 13:40  ServerfmlServerSourcefmtServer_Icon.ico

     文件        413  2012-09-21 05:12  ServerfmlServerSourceServiceDM.dfm

     文件      10677  2012-11-13 03:57  ServerfmlServerSourceServiceDM.pas

     文件       5209  2012-05-14 16:07  ServerfmlServerSourceWinSvcEx.pas

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