Delphi之三汇模拟语音卡(SHT-8B/PCI/FAX)可复用源码

Delphi之三汇模拟语音卡(SHT-8B/PCI/FAX)可复用源码

作者：成晓旭

设计简介：

1、   设计思路请参考本站Blog的另一篇文章：“Delphi之东进模拟语音卡(D160A)可复用源码”；链接http://blog.csdn.net/CXXSoft/archive/2006/08/23/1108211.aspx。

2、   其实，仔细对比，你会发现这两种卡的代码类方法签名几乎99%是一样的，也就是说，这两都之间，还需要更进一步的抽象，以解决“重复代码”或者“相似代码”的问题。

3、   更高层次的抽象，请参考我的设计文档。

4、   类图(以后补上)：

5、   卡类源码：

 

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

interface
uses
  Windows,
   // unDJTC08a32,unDJNewSig,
  unBaseDefine,
   // unDJ160ADefine,unDJChanne160A,
  unShpa3api,unSHChanne18B,unSH8BDefine;
type
  TCXXCommCard8B  =   class (TObject)
   private

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

    procedure ReleaseCommDevice();
    function  GetChannelObjectOrder( const  aChannelID:Word):Word;
    function InitChannel(): boolean ;
   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

const
  SH_ConfigFile  =   ' C:ShCtiShConfig.ini ' ;
  SH_IndexFile  =   ' C:ShCtiShIndex.ini ' ;
  
... { TCXXCommCard8B }
constructor TCXXCommCard8B.Create( const  trunkEvent:TTrunkStatusEvent);
begin
  ChannelNumber : =   0 ;
  Self.OnCardChannelState : =  trunkEvent;
end;

destructor TCXXCommCard8B.Destroy;
var
  Loop:Word;
begin
   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 TCXXCommCard8B.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 TCXXCommCard8B.ReleaseCommDevice();
begin
  SsmCloseCti() ;
end;

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

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

function TCXXCommCard8B.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 TCXXCommCard8B.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 TCXXCommCard8B.LoadCommDevice( const  loadAll: boolean ):  boolean ;
const
  loadEmpty  =   true ;
begin
  Result : =   false ;
   if  SsmStartCti(SH_ConfigFile,SH_IndexFile)  <>   0  then
  begin
    TCXXSHChannel8B.InformInvodeError();
    Exit;
  end;
   if (SsmGetMaxUsableBoard()  <>  SsmGetMaxCfgBoard()) then
  begin                                                       // 部分板卡初始化失败，取出失败原因
    TCXXSHChannel8B.InformInvodeError();
    Exit;
  end;
  Result : =  InitChannel();
end;

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

function TCXXCommCard8B.InitChannel(): boolean ;
var
  number,Loop:integer;
begin
  Result : =   false ;
  number : =  SsmGetMaxCh();
   if  (number  <   0 ) then Exit;
  ChannelNumber : =  number;
  SetLength(channelObject,channelNumber);
   for  Loop : =   0  to channelNumber  -   1   do
  begin
    channelObject[Loop] : =  TCXXSHChannel8B.Create(OnCardChannelState);
    channelObject[Loop].CreateCommChannel(Loop);
  end;
  Result : =   true ;
end;

end.

 

6、   通道类源码：

 

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

... {$DEFINE ThreadChannel}

interface

uses
  Windows,Classes,SysUtils,

  unBaseDefine,unShpa3api,unSH8BDefine,
   // unDJ160ADefine,
  unDJTC08a32,unDJNewSig;

Type


   ... {$IFDEF ThreadChannel}
  TCXXSHChannel8B  =   class (TThread)
   ... {$ELSE}
  TCXXSHChannel8B  =   class (TObject)
   ... {$ENDIF}
   private
    channelType:TChannelType;
    oldChannelState,channelState:TTrunkState;
    channelID:Word;
    phoneNumber:string;
    dtmfString:string;
    aCallerId:PAnsiChar;
    
    isConntectd: boolean ;

    isDialOut: boolean ;
    aTrunkState:TTrunkStatus;
    
    procedure ChannelProcessor();
    procedure InformTrunkStatus( const  aMsgFlag: TLVOperateFlag);

    procedure ClearTrunkStatus();
    procedure ClearChannelBuffer();
    function  CheckSigHangup(): boolean ;
    function  CheckCallIn(): boolean ;
    function  SwitchOnCallIn(): boolean ;

    procedure ProcessCallInSuccess();
    procedure ProcessDialSuccess();

    procedure ProcessCheckDialSend();
    procedure ProcessDialOut();

    procedure Stop();

     // 三汇卡专用方法
    function GetTrunkStateBySsm( const  ssmState: integer): TTrunkState;
   protected
   ... {$IFDEF ThreadChannel}
    procedure Execute(); override;
   ... {$ENDIF}
   public
    strMessage:string;
    OnChannelState:TTrunkStatusEvent;

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

    procedure CreateCommChannel( const  aChennelID: Word);
    procedure Startup();

    function  GetChannelID():Word;
    function  GetChannelStatus():TTrunkState;
    function  GetChannelType():TChannelType;
    function  DialPhone( const  DialPhoneNumber:PChar): boolean ;overload;
    function  DialPhone( const  DialPhoneNumber:PChar; const  PreDialNumber:PChar): boolean ;overload;
    procedure ChannelHangUp();

    function  GetDialOut(): boolean ;

     // 三汇卡特性方法
    function CheckDialOutEnabled(): boolean ;
     class  procedure InformInvodeError();
  end;
implementation

... { TCXXSHChannel8B }

procedure TCXXSHChannel8B.ChannelHangUp();
begin
  isDialOut : =   false ;
  SsmHangUp(channelID);
  ClearChannelBuffer();
  ClearTrunkStatus();
  InformTrunkStatus(lvofUpdate);
end;

procedure TCXXSHChannel8B.ChannelProcessor();
var
  ssmState:integer;
begin
//   ssmState := SsmGetChState(channelID);
//   channelState := GetTrunkStateBySsm(ssmState);
  CheckCallIn();
     case  channelState of
    atsFree:
    begin
       //
    end;
    atsCallIning:
    begin
      SwitchOnCallIn();
    end;
    atsCallInSuccess:
    begin
       if  CheckSigHangup() then Exit;
      ProcessCallInSuccess();
    end;
    atsCheckSendDial:
    begin
      ProcessCheckDialSend();
    end;
    atsDialing:
    begin
      ProcessDialOut();
    end;
    atsDialSuccess:
    begin
       if  CheckSigHangup() then Exit;
      ProcessDialSuccess();
      strMessage : =   ' 拨号成功 ' ;
    end;
    atsHangOff:
    begin
      ChannelHangUp();
    end;
    end;
     if  (oldChannelState  <>  channelState) then
    begin
      oldChannelState : =  channelState;
      InformTrunkStatus(lvofUpdate);
    end;
end;

function TCXXSHChannel8B.CheckCallIn():  boolean ;
begin
  Result : =   false ;
   if (SsmGetChState(channelID) = 2 ) then  // 检测到振铃信号
  begin
    SsmGetCallerId(channelID, aCallerId);  // 取出CALLERID信息
    channelState : =  atsCallIning;
    Result : =   true ;
  end;
... {
  Result := RingDetect(channelID);
  if Result then
  begin
    OffHook(channelID);
    if isDialOut then
      channelState := atsDialSuccess
    else
      channelState := atsCallIning;
  end;
}
end;

function TCXXSHChannel8B.CheckSigHangup():  boolean ;
begin
  Result : =   false ;
   if  (SsmGetChState(channelID)  =  S_CALL_PENDING) then
  begin
    strMessage : =   ' 对方已挂机 ' ;
    InformTrunkStatus(lvofUpdate);
    SsmStopPlay(channelID);
    channelState : =  atsHangOff;
    Result : =   true ;
  end;
end;

procedure TCXXSHChannel8B.ClearTrunkStatus();
begin
  channelState : =  atsFree;
  oldChannelState : =  channelState;
  phoneNumber : =   '' ;
  dtmfString : =   '' ;
  strMessage : =   '' ;
  isConntectd : =   false ;
end;

constructor TCXXSHChannel8B.Create( const  trunkEvent:TTrunkStatusEvent);
begin
  GetMem(aCallerId, 50 );
  Self.OnChannelState : =  trunkEvent;
... {$IFDEF ThreadChannel}
  Self.FreeOnTerminate : =   true ;
  inherited Create( true );
... {$ENDIF}
end;


destructor TCXXSHChannel8B.Destroy;
begin
  ChannelHangUp();
  Stop();
... {$IFNDEF ThreadChannel}
  inherited Destroy();
... {$ENDIF}
  InformTrunkStatus(lvofDelete);
  FreeMem(aCallerId);  
end;

function TCXXSHChannel8B.DialPhone( const  DialPhoneNumber:PChar;
   const  PreDialNumber:PChar):  boolean ;
begin
  Result : =   false ;
   if  (channelState  <>  atsFree) then Exit;
  phoneNumber : =  DialPhoneNumber;
  Result : =  (SsmPickup(channelID)  =   0 );
   if  NOT Result then Exit;
  Result : =  (SsmAutoDial(channelID,DialPhoneNumber) = 0 );
   if  Result then
  begin
    isDialOut : =   true ;
    channelState : =  atsCheckSendDial;
  end;
end;

function TCXXSHChannel8B.DialPhone(
   const  DialPhoneNumber: PChar):  boolean ;
begin
  Result : =  DialPhone(DialPhoneNumber, '' );
end;

... {$IFDEF ThreadChannel}
procedure TCXXSHChannel8B.Execute;
begin
   while  NOT Terminated  do
  begin
    Synchronize(ChannelProcessor);
    Sleep( 10 );
  end;
end;
... {$ENDIF}

function TCXXSHChannel8B.GetChannelID(): Word;
begin
  Result : =  channelID;
end;

function TCXXSHChannel8B.GetChannelStatus(): TTrunkState;
begin
  Result : =  channelState;
end;

procedure TCXXSHChannel8B.InformTrunkStatus( const  aMsgFlag: TLVOperateFlag);
begin
   if  NOT Assigned(OnChannelState) then Exit;
  aTrunkState.lvFlag : =  aMsgFlag;
  aTrunkState.TrunkID : =  IntToStr(channelID);
  aTrunkState.TrunkType : =  Ord(channelType);
  aTrunkState.TrunkTypeStr : =  ChannelTypeString[channelType];
  aTrunkState.TrunkStep : =  Ord(channelState);
  aTrunkState.TrunkStepStr : =  TrunkStateString[channelState];
  aTrunkState.TrunkPhone : =  phoneNumber;
  aTrunkState.TrunkData : =  dtmfString;
  OnChannelState(aTrunkState);
end;

procedure TCXXSHChannel8B.ProcessCallInSuccess();
begin

end;

function TCXXSHChannel8B.SwitchOnCallIn():  boolean ;
begin
  SsmPickup(channelID);                  // 摘机
  ClearChannelBuffer();
  channelState : =  atsCallInSuccess;
  Result : =   true ;
end;

procedure TCXXSHChannel8B.ProcessDialSuccess();
begin

end;

procedure TCXXSHChannel8B.CreateCommChannel( const  aChennelID: Word);
var
  ct:integer;
begin
  channelID : =  aChennelID;
  ct : =  SsmGetChType(channelID);
   if  (ct  <   0 ) then Exit;
  channelType : =  TChannelType(ct);
  ClearTrunkStatus();
  InformTrunkStatus(lvofAdd);
end;

function TCXXSHChannel8B.GetChannelType(): TChannelType;
begin
  Result : =  channelType;
end;

function TCXXSHChannel8B.GetDialOut():  boolean ;
begin
  Result : =  isDialOut;
end;

procedure TCXXSHChannel8B.ProcessCheckDialSend();
begin
   // 三汇卡直接转换状态
  channelState : =  atsDialing;
end;

procedure TCXXSHChannel8B.Startup();
begin
   ... {$IFDEF ThreadChannel}
  Resume();
   ... {$ENDIF}
end;

procedure TCXXSHChannel8B.Stop();
begin
   ... {$IFDEF ThreadChannel}
  Suspend();
  Terminate();
   ... {$ENDIF}
end;

function TCXXSHChannel8B.CheckDialOutEnabled():  boolean ;
begin
   // 内线通道、坐席通道、磁石通道和录音通道不支持本SsmPicuup操作
  Result : =  NOT((channelType  =  ct1) or
                (channelType  =  ct2) or
                (channelType  =  ct3) or
                (channelType  =  ct10));
end;

class  procedure TCXXSHChannel8B.InformInvodeError;
var
  msgBuffer:PAnsiChar;
begin
  GetMem(msgBuffer, 255 );
   try
    SsmGetLastErrMsg(msgBuffer);
     // 记录异常日志,或者通知用户
     // Showmessage(msgBuffer);
   finally
    FreeMem(msgBuffer);
  end;
end;

function TCXXSHChannel8B.GetTrunkStateBySsm(
   const  ssmState: integer): TTrunkState;
begin
  Result : =  atsFree;
   case  ssmState of
     0 :        Result : =  atsFree;
     4 , 5 , 6 , 9 :  Result : =  atsCallIning;
     7 :        Result : =  atsHangOff;
     // 8:“断线”状态。只有录音通道才会进入本状态。暂时不处理
     // 8:        Result := atsHangOff;
     // 3:        Result := atsCallInSuccess;
  end;
end;

procedure TCXXSHChannel8B.ProcessDialOut();
var
  dState:integer;
begin
  dState : =  SsmChkAutoDial(channelID);
   case  dState of
    DIAL_VOICE,
    DIAL_VOICEF1,
    DIAL_VOICEF2:
    begin
      channelState : =  atsDialSuccess;
      isConntectd : =   true ;
    end;
    DIAL_STANDBY,
    DIAL_NO_DIALTONE,
    DIAL_ECHO_NOVOICE,
    DIAL_NOVOICE,
    DIAL_NOANSWER,
    DIAL_FAILURE,
    DIAL_INVALID_PHONUM:
    begin
      channelState : =  atsHangOff;
    end;
  end;
  strMessage : =   ' 拨号中... ' ;
end;

procedure TCXXSHChannel8B.ClearChannelBuffer();
begin
  SsmClearRxDTMFBuf(channelID);          // 清空驱动程序内部的DTMF按键号码接收缓冲区
  SsmClearRxBuf(channelID);              // 清除指定通道ch上MODEM模块的接收缓冲区中的所有数据
   // “抢拨” 开关是指当在放音过程中收到对方的DTMF按键字符时，由驱动程序程序立即停止正在进行的放音操作。
   // SsmSetDtmfStopPlay(channelID,true);          // 打开抢拨开关
end;

end.