Delphi之三汇模拟语音卡(SHT-8BPCIFAX)可复用源码

Delphi之三汇模拟语音卡(SHT-8B/PCI/FAX)可复用源码设计简介：1、设计思路请参考本站Blog的另一篇文章：“Delphi之东进模拟语音卡(D160A)可复用源码”；链接/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;interfaceusesWindows,//unDJTC08a32,unDJNewSig,unBaseDefine,//unDJ160ADefine,unDJChanne160A,unShpa3api,unSHChanne18B,unSH8BDefine;typeTCXXCommCard8B = class(TObject)privateChannelNumber:Word;channelObject:array of TCXXSHChannel8B;OnCardChannelState:TTrunkStatusEvent;procedure ReleaseCommDevice();function GetChannelObjectOrder(const aChannelID:Word):Word;function InitChannel():boolean;publicconstructor 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):boolea n;function HangUp(const aChannelID:Word):boolean;end;implementationconstSH_ConfigFile = 'C:ShCtiShConfig.ini';SH_IndexFile = 'C:ShCtiShIndex.ini';{ TCXXCommCard8B }constructor TCXXCommCard8B.Create(const trunkEvent:TTrunkStatusEvent);beginChannelNumber := 0;Self.OnCardChannelState := trunkEvent;end;destructor TCXXCommCard8B.Destroy;varLoop:Word;beginif (Length(channelObject) > 0) and (channelNumber > 0) thenbeginfor Loop := 0 to ChannelNumber - 1 dobeginif Assigned(channelObject[Loop]) thenbeginchannelObject[Loop].Free();channelObject[Loop] := nil;end;end;end;ReleaseCommDevice();end;function TCXXCommCard8B.DialPhone(const aChannelID: Word;const DialPhoneNumber: PChar): boolean;varK:Word;beginResult := false;K := GetChannelObjectOrder(aChannelID);if (K <> ErrorTrunkNumber) and (Assigned(channelObject[K])) thenbeginResult := channelObject[K].DialPhone(DialPhoneNumber);end;end;procedure TCXXCommCard8B.ReleaseCommDevice();beginSsmCloseCti() ;end;function TCXXCommCard8B.GetAFreeChannel(): Word;varLoop:Word;beginResult := ErrorTrunkNumber;for Loop := Low(channelObject) to High(channelObject) dobeginif NOT channelObject[Loop].CheckDialOutEnabled() then continue;if (channelObject[Loop].GetChannelStatus() = atsFree) thenbeginResult := channelObject[Loop].GetChannelID();break;end;end;end;function TCXXCommCard8B.GetChannelNumber(): Word;beginResult := channelNumber;end;function TCXXCommCard8B.GetChannelObjectOrder(const aChannelID: Word): Word;varLoop:Word;beginResult := ErrorTrunkNumber;for Loop := Low(channelObject) to High(channelObject) dobeginif (channelObject[Loop].GetChannelID = aChannelID) thenbeginResult := Loop;break;end;end;end;function TCXXCommCard8B.HangUp(const aChannelID: Word): boolean;varK:Word;beginResult := false;K := GetChannelObjectOrder(aChannelID);if (K <> ErrorTrunkNumber) and (Assigned(channelObject[K])) thenbeginchannelObject[K].ChannelHangUp();Result := true;end;end;function TCXXCommCard8B.LoadCommDevice(const loadAll:boolean): boolean;constloadEmpty = true;beginResult := false;if SsmStartCti(SH_ConfigFile,SH_IndexFile) <> 0 thenbeginrmInvodeError();Exit;end;if(SsmGetMaxUsableBoard() <> SsmGetMaxCfgBoard()) thenbegin //部分板卡初始化失败，取出失败原因rmInvodeError();Exit;end;Result := InitChannel();end;function TCXXCommCard8B.Startup(): boolean;varLoop:integer;beginfor Loop := 0 to channelNumber - 1 dobeginchannelObject[Loop].Startup();end;Result := true;end;function TCXXCommCard8B.InitChannel():boolean;varnumber,Loop:integer;beginResult := false;number := SsmGetMaxCh();if (number < 0) then Exit;ChannelNumber := number;SetLength(channelObject,channelNumber);for Loop := 0 to channelNumber - 1 dobeginchannelObject[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}interfaceusesWindows,Classes,SysUtils,unBaseDefine,unShpa3api,unSH8BDefine,//unDJ160ADefine,unDJTC08a32,unDJNewSig;Type{$IFDEF ThreadChannel}TCXXSHChannel8B = class(TThread){$ELSE}TCXXSHChannel8B = class(TObject){$ENDIF}privatechannelType: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}publicstrMessage: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):bo olean;overload;procedure ChannelHangUp();function GetDialOut():boolean;//三汇卡特性方法function CheckDialOutEnabled():boolean;class procedure InformInvodeError();end;implementation{ TCXXSHChannel8B }procedure TCXXSHChannel8B.ChannelHangUp();beginisDialOut := false;SsmHangUp(channelID);ClearChannelBuffer();ClearTrunkStatus();InformTrunkStatus(lvofUpdate);end;procedure TCXXSHChannel8B.ChannelProcessor();varssmState:integer;begin// ssmState := SsmGetChState(channelID);// channelState := GetTrunkStateBySsm(ssmState);CheckCallIn();case channelState ofatsFree:begin//end;atsCallIning:beginSwitchOnCallIn();end;atsCallInSuccess:beginif CheckSigHangup() then Exit;ProcessCallInSuccess();end;atsCheckSendDial:beginProcessCheckDialSend();end;atsDialing:beginProcessDialOut();end;atsDialSuccess:beginif CheckSigHangup() then Exit;ProcessDialSuccess();strMessage := '拨号成功';end;atsHangOff:beginChannelHangUp();end;end;if (oldChannelState <> channelState) thenbeginoldChannelState := channelState;InformTrunkStatus(lvofUpdate);end;end;function TCXXSHChannel8B.CheckCallIn(): boolean;beginResult := false;if(SsmGetChState(channelID)=2) then //检测到振铃信号beginSsmGetCallerId(channelID, aCallerId); //取出CALLERID信息channelState := atsCallIning;Result := true;end;{Result := RingDetect(channelID);if Result thenbeginOffHook(channelID);if isDialOut thenchannelState := atsDialSuccesselsechannelState := atsCallIning;end;}end;function TCXXSHChannel8B.CheckSigHangup(): boolean;beginResult := false;if (SsmGetChState(channelID) = S_CALL_PENDING) thenbeginstrMessage := '对方已挂机';InformTrunkStatus(lvofUpdate);SsmStopPlay(channelID);channelState := atsHangOff;Result := true;end;end;procedure TCXXSHChannel8B.ClearTrunkStatus();beginchannelState := atsFree;oldChannelState := channelState;phoneNumber := '';dtmfString := '';strMessage := '';isConntectd := false;end;constructor TCXXSHChannel8B.Create(const trunkEvent:TTrunkStatusEvent);beginGetMem(aCallerId,50);Self.OnChannelState := trunkEvent;{$IFDEF ThreadChannel}Self.FreeOnTerminate := true;inherited Create(true);{$ENDIF}end;destructor TCXXSHChannel8B.Destroy;beginChannelHangUp();Stop();{$IFNDEF ThreadChannel}inherited Destroy();{$ENDIF}InformTrunkStatus(lvofDelete);FreeMem(aCallerId);end;function TCXXSHChannel8B.DialPhone(const DialPhoneNumber:PChar;const PreDialNumber:PChar): boolean;beginResult := false;if (channelState <> atsFree) then Exit;phoneNumber := DialPhoneNumber;Result := (SsmPickup(channelID) = 0);if NOT Result then Exit;Result := (SsmAutoDial(channelID,DialPhoneNumber)=0);if Result thenbeginisDialOut := true;channelState := atsCheckSendDial;end;end;function TCXXSHChannel8B.DialPhone(const DialPhoneNumber: PChar): boolean;beginResult := DialPhone(DialPhoneNumber,'');end;{$IFDEF ThreadChannel}procedure TCXXSHChannel8B.Execute;beginwhile NOT Terminated dobeginSynchronize(ChannelProcessor);Sleep(10);end;end;{$ENDIF}function TCXXSHChannel8B.GetChannelID(): Word;beginResult := channelID;end;function TCXXSHChannel8B.GetChannelStatus(): TTrunkState;beginResult := channelState;end;procedure rmTrunkStatus(const aMsgFlag: TLVOperateFlag);beginif 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();beginend;function TCXXSHChannel8B.SwitchOnCallIn(): boolean;beginSsmPickup(channelID); //摘机ClearChannelBuffer();channelState := atsCallInSuccess;Result := true;end;procedure TCXXSHChannel8B.ProcessDialSuccess();beginend;procedure TCXXSHChannel8B.CreateCommChannel(const aChennelID: Word);varct:integer;beginchannelID := aChennelID;ct := SsmGetChType(channelID);if (ct < 0) then Exit;channelType := TChannelType(ct);ClearTrunkStatus();InformTrunkStatus(lvofAdd);end;function TCXXSHChannel8B.GetChannelType(): TChannelType;beginResult := channelType;end;function TCXXSHChannel8B.GetDialOut(): boolean;beginResult := 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 rmInvodeError;varmsgBuffer:PAnsiChar;beginGetMem(msgBuffer,255);trySsmGetLastErrMsg(msgBuffer);//记录异常日志,或者通知用户//Showmessage(msgBuffer);finallyFreeMem(msgBuffer);end;end;function TCXXSHChannel8B.GetTrunkStateBySsm(const ssmState: integer): TTrunkState;beginResult := atsFree;case ssmState of0: Result := atsFree;4,5,6,9: Result := atsCallIning;7: Result := atsHangOff;//8:“断线”状态。