mydef.pas

局域网VCD影院 用DELPHI 编写的 局域网VCD影院

unit MyDef;
interface

uses
  Messages, WinSock;
const
  WM_SOCK = WM_USER + 11; //自定义windows消息
type
  ip_mreq = record
    imr_multiaddr: in_addr; (* IP multicast address of group *)
    imr_interface: in_addr; (* local IP address of interface *)
  end;
  TIpMReq = ip_mreq;
  PIpMReq = ^ip_mreq;
const
  TMulticastIp:array[1..20] of Pchar=
  ('234.0.0.3','234.0.0.5','234.0.0.7','234.0.0.9',
   '234.0.0.11','234.0.0.13','234.0.0.15','234.0.0.17',
   '234.0.0.19','234.0.0.21','234.0.0.23','234.0.0.25',
   '234.0.0.27','234.0.0.29','234.0.0.31','234.0.0.33',
   '234.0.0.35','234.0.0.37','234.0.0.39','234.0.0.41'
  );
  TMulticastPort:array[1..20]of integer=
  (8000,8004,8008,8012,
   8014,8016,8018,8020,
   8022,8024,8026,8028,
   8030,8032,8034,8036,
   8038,8040,8042,8044
  );  
{type
  TMulticastIp=(StPlay,StStop);}

const
  MpgServerName = 'VideoMulticast'; //服务端标题
  MpgClientName = 'VideoReceive'; //客户端标题

  VideoFormWidth = 389;
  VideoFormHeight = 289;

  MpegFrameSize = 2324; //每个纯Mpeg数据包大小
  VideoPackSize = MpegFrameSize + 4; //Mpeg数据包加命令大小
  iDataStartPos = VideoPackSize - MpegFrameSize + 1; //开始位置

  WM_ThreadMsg = WM_USER + 15; //自定义windows消息
  Msg_ReConnect = 1234; //重新连接子消息(客户端)
  Msg_DisConnect = 5678; //断开子消息(客户端)
  Msg_ThreadDone = 9999; //线程完成子信息(服务端)
implementation

end.