commonunit.pas

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

unit CommonUnit;
interface
uses
  Windows, Messages, SysUtils, MyDef, Mpeg1DecodeDll, Forms, Classes, Winsock;

procedure MySleepMs(const ticks: dword);
function GetFreeGroup: integer; //返回-1说明失败
implementation
uses
  Unit_FrmMain;

function GetFreeGroup: integer;
var
  i, j: integer;
begin
  Result := -1;
  j := (sizeof(TMulticastIp) div sizeof(Pchar));
  for i := 1 to j do
    if Mpeg1Decode_IsFreeChannel(FrmMain.Handle, TMulticastIp[i], TMulticastPort[i]) then
    begin
      Result := i;
      break;
    end;
end;

function GetGroupIsActive(const i: integer): Boolean;
var
  j: integer;
begin
  Result := False;
  j := (sizeof(TMulticastIp) div sizeof(Pchar));
  if i > j then Exit;
  Result := Mpeg1Decode_IsPlayingChannel(FrmMain.Handle, TMulticastIp[i], TMulticastPort[i]);
end;

procedure MySleepMs(const ticks: dword);
var
  t: dword;
begin
  t := gettickcount;
  while gettickcount - t < ticks do application.ProcessMessages;
end;


end.