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

全套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  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个文件信息