Delphi控件源码

开发平台：

Delphi

VideoConsts.pas：源码内容

							unit VideoConsts;
interface
uses Windows;
const
  BASEPORT = 5555;
  LISTENPORT = BASEPORT;
  CONNECTPORT = BASEPORT;
  
type
  _SERVER_CTRL_MSG = record
    strCommand: array [0..99] of Char;
    nContentUsesByte: DWORD;
    strContent: array [0..999] of Char;
  end;
  PServerControlInfo = ^TServerControlInfo;
  TServerControlInfo = _SERVER_CTRL_MSG;
  PClientControlInfo = ^TClientControlInfo;
  TClientControlInfo = _SERVER_CTRL_MSG;
  _VIDEO_DATA = record
    bKeyFrame: Boolean;
    nSampleNum: DWORD;
    nUsedSize: DWORD;
    nGetedSize: DWORD;
    Buf: array [0..8179] of Byte;
  end;
  PVideoDataInfo = ^TVideoDataInfo;
  TVideoDataInfo = _VIDEO_DATA;
implementation
end.

						