Delphi之东进模拟语音卡(D160A)可复用源码

// ------------------------------------------------------------------------------
//
//       产品名称:   成晓旭的个人软件Delphi源码库
//       产品版本:   CXXSoft delphi code source lib 2.0
//       模块名称:   Delphi之东进模拟语音卡类
//       模块描述:   
//       单元文件:   unDJCard160A.pas   
//       开发作者:   成晓旭
//       备注:       任何人使用此文件时,请保留此段自述文件,谢谢!
//       开发时间:   2004-08-03
//       修改历史:   
//       修改描述:
// ------------------------------------------------------------------------------
unit unDJCard160A;

interface
uses
  Windows,
  unDJTC08a32,unDJNewSig,
  unBaseDefine,unDJ160ADefine,
  unDJChanne160A;
type
  TCXXCommCard160A  =   class (TObject)
   private

    ChannelNumber:Word;
    channelObject:array of TCXXDJChannel160A;
    OnCardChannelState:TTrunkStatusEvent;

    procedure Stop();
    procedure ReleaseCommDevice();
    function  GetChannelObjectOrder( const  aChannelID:Word):Word;

   public

    constructor Create( const  trunkEvent:TTrunkStatusEvent);
    destructor Destroy();  override ;

    function  LoadCommDevice( const  loadAll:boolean = false ):boolean;
    function  Startup():boolean;
    function  GetAFreeChannel():Word;
    function  GetChannelNumber():Word;
    function  DialPhone( const  aChannelID:Word; const  DialPhoneNumber:PChar):boolean;
    function  HangUp( const  aChannelID:Word):boolean;

  end;


implementation

... { TCXXCommCard160A }
constructor TCXXCommCard160A.Create( const  trunkEvent:TTrunkStatusEvent);
begin
  ChannelNumber : =   0 ;
  Self.OnCardChannelState : =  trunkEvent;
end;

destructor TCXXCommCard160A.Destroy;
var
  Loop:Word;
begin
  Stop();
   if  (Length(channelObject)  >   0 ) and (channelNumber  >   0 ) then
  begin
     for  Loop : =   0  to ChannelNumber  -   1   do
    begin
       if  Assigned(channelObject[Loop]) then
      begin
        channelObject[Loop].Free();
        channelObject[Loop] : =  nil;
      end;
    end;
  end;
  ReleaseCommDevice();
end;

function TCXXCommCard160A.DialPhone( const  aChannelID: Word;
   const  DialPhoneNumber: PChar): boolean;
var
  K:Word;
begin
  Result : =   false ;
  K : =  GetChannelObjectOrder(aChannelID);
   if  (K  <>  ErrorTrunkNumber) and (Assigned(channelObject[K])) then
  begin
    Result : =  channelObject[K].DialPhone(DialPhoneNumber);
  end;
end;

procedure TCXXCommCard160A.ReleaseCommDevice();
begin
  DisableCard();
  FreeDrv();
end;

function TCXXCommCard160A.GetAFreeChannel(): Word;
var
  Loop:Word;
begin
  Result : =  ErrorTrunkNumber;
   for  Loop : =  Low(channelObject) to High(channelObject)  do
  begin
     if  (channelObject[Loop].GetChannelType()  =  ctEmpty) then  continue ;
     if  (channelObject[Loop].GetChannelStatus()  =  atsFree) then
    begin
      Result : =  channelObject[Loop].GetChannelID();
       break ;
    end;
  end;
end;

function TCXXCommCard160A.GetChannelNumber(): Word;
begin
  Result : =  channelNumber;
end;

function TCXXCommCard160A.GetChannelObjectOrder(
   const  aChannelID: Word): Word;
var
  Loop:Word;
begin
  Result : =  ErrorTrunkNumber;
   for  Loop : =  Low(channelObject) to High(channelObject)  do
  begin
     if  (channelObject[Loop].GetChannelID  =  aChannelID) then
    begin
      Result : =  Loop;
       break ;
    end;
  end;
end;

function TCXXCommCard160A.HangUp( const  aChannelID: Word): boolean;
var
  K:Word;
begin
  Result : =   false ;
  K : =  GetChannelObjectOrder(aChannelID);
   if  (K  <>  ErrorTrunkNumber) and (Assigned(channelObject[K])) then
  begin
    channelObject[K].ChannelHangUp();
    Result : =   true ;
  end;
end;

function TCXXCommCard160A.LoadCommDevice( const  loadAll:boolean): boolean;
const
  loadEmpty  =   true ;
var
  Loop,tempNumber:Word;
  isFlag:LongInt;
  function CheckLoadTrunk():boolean;
  begin
    Result : =  loadAll or ((NOT loadAll) and(TChannelType(CheckChType(Loop))  <>  ctEmpty));
  end;
begin
  isFlag : =  LoadDRV();
  Result : =  (isFlag = 0 );
   if  NOT Result then Exit;
  tempNumber : =  CheckValidCh();
  Result : =  EnableCard(tempNumber, 1024 * 8 ) = 0 ;
   if  NOT Result then
  begin
    FreeDrv();
    Exit;
  end;
  Result : =  Sig_Init() = 1 ;
   if  NOT Result then Exit;
  SetBusyPara( 700 );
  SetPackRate(PACK_64KBPS );
  channelNumber : =  tempNumber;
  SetLength(channelObject,channelNumber);
   for  Loop : =   0  to channelNumber  -   1   do
  begin
     if  CheckLoadTrunk() then
    begin
      channelObject[Loop] : =  TCXXDJChannel160A.Create(OnCardChannelState);
      channelObject[Loop].CreateCommChannel(Loop);
    end;
  end;
end;

function TCXXCommCard160A.Startup(): boolean;
var
  Loop:integer;
begin
   for  Loop : =   0  to channelNumber  -   1   do
  begin
    channelObject[Loop].Resume();
  end;
  Result : =   true ;
end;

procedure TCXXCommCard160A.Stop();
var
  Loop:integer;
begin
   for  Loop : =   0  to channelNumber  -   1   do
  begin
    channelObject[Loop].Suspend();
    channelObject[Loop].Terminate();
    channelObject[Loop] : =  nil;
  end;
end;

end.