Delphi之東進數字語音卡(SS1)可復用源碼

作者：成曉旭

Blog：http://blog.csdn.net/cxxsoft

(聲明：歡迎轉載，請保證文章的完整性)

??????? 由于工作原因，本人將不在從事商業應有軟件的開發工作，現在開始逐級“解密”自己以前寫的部分自有產權代碼，但愿對后來的朋友有點參考、借鑒的價值。

??????? 本代碼是本人開發的計劃開源的CIT通用平臺的東進1號信令數字語言卡封裝，設計思路與模擬語音卡的封裝非常類似，在此不再贅述。有興趣的朋友，請參考本人的另外一篇文章《Delphi之東進模擬語音卡(D160A)可復用源碼》：http://blog.csdn.net/cxxsoft/archive/2006/08/23/1108211.aspx

??????? 核心思想是一致的：卡、通道分別設計和實現；通道內，核心的還是“狀態機模式”輪巡通道狀態來管理硬件卡設備；板卡封裝內實現不實現任何業務接口，但允許動態注入實現業務接口的對象，來近一步分發、處理板卡層采集的基礎數據。

卡類源代碼：

//------------------------------------------------------------------------------
//
//??????產品名稱:???成曉旭的個人軟件Delphi源碼庫
//??????產品版本:???CXXSoft?delphi?code?source?lib?2.0
//??????模塊名稱:???Delphi之東進數字語音卡類
//??????模塊描述:???
//??????單元文件:???unDJCardSS1.pas???
//??????開發作者:???成曉旭
//??????作者blog:???http://blog.csdn.net/CXXSoft
//??????備注:???????任何人使用此文件時,請保留此段自述文件,謝謝!
//??????開發時間:???2005-01-09
//??????修改歷史:???
//??????修改描述:
//------------------------------------------------------------------------------
unit?unDJCardSS1;

interface
uses
??Windows,SysUtils,Classes,
??unBaseDefine,
??Tce1_32,
??Tce1_FSK;

type
??TDJCommCardSS1?=?class(TThread)
??private
????onTrunkEvent:TTrunkSatausEvent;
????onRecEvent:TTrunkReceiveEvent;
????isLoadFSK:boolean;
????CommIsFSK:boolean;
????Trunks:array?of?TObject;
????function??InitCardForFSK():boolean;
????procedure?FreeCardForFSK();
????procedure?ThreadKernelProcess();
??protected
????procedure?Execute();?override;
??public
????TotalTrunkNum,InTrunkNum,OutTrunkNum:Word;
????TrunkConnected:array?of?boolean;

????constructor?Create(const?aStateEvent:?TTrunkSatausEvent;const?aRecEvent:TTrunkReceiveEvent);
????destructor?Destroy();?override;
????//初始化中繼卡
????function??InitCard(const?isFSKComm:?boolean):?Boolean;
????//釋放中繼卡??
????function??FreeCommCard():boolean;
????//開始運行中繼卡管理模塊
????procedure?StartRunCommModule();
????//獲取一個空閑通道(指定通道類型)
????function??GetAFreeTrunkByType(const?aTrunkType:TTrunkType):integer;
????//獲取一個空閑呼出通道
????function??GetAFreeTrunkByOut():integer;
????//掛斷指定通道
????procedure?HangOfByTrunkID(const?aChannelID:integer);
????//通過指定通道撥號
????procedure?DialPhoneByTrunkID(const?aChannelID:integer;const?phoneNumber,callerNumber:PChar;const?aDevID:integer=-1);
????//通過指定通道發送數據
????function??SendStringByTrunkID(const?aChannelID:integer;const?sendBuffer:PChar):boolean;
??end;

implementation

...{?TDJCommCardSS1?}
uses
??unDJChannelSS1;

constructor?TDJCommCardSS1.Create(const?aStateEvent:?TTrunkSatausEvent;
??const?aRecEvent:TTrunkReceiveEvent);
begin
??inherited?Create(true);
??Self.FreeOnTerminate?:=?true;
??onTrunkEvent?:=?aStateEvent;
??onRecEvent?:=?aRecEvent;
end;

destructor?TDJCommCardSS1.Destroy();
begin
??Self.Suspend();
??Self.Terminate();
??FreeCommCard();
end;

procedure?TDJCommCardSS1.DialPhoneByTrunkID(const?aChannelID:?integer;
??const?phoneNumber,?callerNumber:?PChar;const?aDevID:integer);
begin
??if?(aChannelID?>?ErrTrunkId)?and?(DJTrk_CheckTrunkFree(aChannelID))?then
????TDJCommChannelsSS1(Trunks[aChannelID]).StartDialPhone(phoneNumber,callerNumber,aDevID,);
end;

procedure?TDJCommCardSS1.Execute;
begin
??while?NOT?Terminated?do
??begin
????Synchronize(ThreadKernelProcess);
????Sleep(1);
??end;
end;

procedure?TDJCommCardSS1.FreeCardForFSK();
begin
??if?CommIsFSK?and?isLoadFSK?then
??begin
????DJFsk_Release();
??end;
end;

function?TDJCommCardSS1.FreeCommCard():?boolean;
var
??Loop:Word;
begin
??Sleep(1000);
??if?TotalTrunkNum?>?0?then
??begin
????for?Loop:=?0?to?TotalTrunkNum?-?1?do
????begin
??????if?Assigned(TDJCommChannelsSS1(Trunks[Loop]))?then
??????begin
????????TDJCommChannelsSS1(Trunks[Loop]).Free();
????????TDJCommChannelsSS1(Trunks[Loop])?:=?nil;
??????end;
????end;
??end;
??DJSys_DisableCard();
??FreeCardForFSK();
??Result?:=?true;
end;

function?TDJCommCardSS1.GetAFreeTrunkByOut():?integer;
begin
??Result?:=?GetAFreeTrunkByType(Type_Export);
end;

function?TDJCommCardSS1.GetAFreeTrunkByType(
??const?aTrunkType:?TTrunkType):?integer;
var
??Loop:Word;
begin
??Result?:=?ErrTrunkID;
??for?Loop?:=?0?to?TotalTrunkNum?-?1?do
??begin
????if?((TDJCommChannelsSS1(Trunks[Loop]).GetTrunkType()?=?aTrunkType)
??????????and?(DJTrk_CheckTrunkFree(Loop)))?then
????begin
??????Result?:=?Loop;
??????break;
????end;
??end;
end;

procedure?TDJCommCardSS1.HangOfByTrunkID(const?aChannelID:?integer);
begin
??TDJCommChannelsSS1(Trunks[aChannelID]).InOutHangOff();
end;

function?TDJCommCardSS1.InitCard(const?isFSKComm:?boolean):?Boolean;
const
??PromptFile?=?'Prompt.ini';
var
??Loop:?Integer;
??isOK:?boolean;
??TimeOfNow:?SystemTime;
begin
??Result?:=?False;
??CommIsFSK?:=?isFSKComm;
??isOK?:=(DJSys_EnableCard('',PromptFile)=_ERR_OK);
??if?Not?isOK?then?exit;
??isOK?:=?InitCardForFSK();
??if?NOT?isOK?then?Exit;
??isLoadFSK?:=?isOK;
??GetLocalTime(TimeOfNow);
??DJSys_SetSysTime(TimeOfNow.wHour,TimeOfNow.wMinute,TimeOfNow.wSecond);
??TotalTrunkNum:=DJTrk_GetTotalTrunkNum();
??InTrunkNum:=TotalTrunkNum?shr?1;
??OutTrunkNum:=TotalTrunkNum?-?InTrunkNum;

??SetLength(Trunks,TotalTrunkNum);
??SetLength(TrunkConnected,TotalTrunkNum);

??for?Loop:=0?to?OutTrunkNum-1?do
????Trunks[Loop]:=TDJCommChannelsSS1.Create(Self,Loop,Type_Export,CommIsFSK,onTrunkEvent,onRecEvent);
??for?Loop:=OutTrunkNum?to?TotalTrunkNum-1?do
????Trunks[Loop]:=TDJCommChannelsSS1.Create(Self,Loop,Type_Import,CommIsFSK,onTrunkEvent,onRecEvent);
??for?Loop:=?0?to?TotalTrunkNum?-?1?do
??begin
????TDJCommChannelsSS1(Trunks[Loop]).ClearTrunkBuffer(csReceiving);
??end;

??DJSys_AutoApplyDtmf(ENABLEDTMF);????//自動分配DTMF資源
??DJSys_EnableAutoKB();?????????????????//自動回送KB信號
??isOK:=isOK?and?DJSys_EnableDtmfSend();
??Result?:=?isOK;
end;

function?TDJCommCardSS1.InitCardForFSK():?boolean;
var
??k:integer;
begin
??Result?:=?true;
??if?CommIsFSK?then
??begin
????k?:=?DJFsk_InitForFsk(SZK_Mode);
????Result?:=?(k?=?1);
??end;
end;

function?TDJCommCardSS1.SendStringByTrunkID(const?aChannelID:?integer;
??const?sendBuffer:?PChar):boolean;
begin
??Result?:=?TDJCommChannelsSS1(Trunks[aChannelID]).SendString(sendBuffer);
end;

procedure?TDJCommCardSS1.StartRunCommModule();
begin
??Resume();
end;

procedure?TDJCommCardSS1.ThreadKernelProcess();
var
??Loop:Word;
begin
??DJSys_PushPlay();
??for?Loop?:=?0?to?TotalTrunkNum?-?1?do
??begin
????try
??????TDJCommChannelsSS1(Trunks[Loop]).DJChannelProcessor();
????except
????end;
??end;
end;

end.

通道類源代碼：

//------------------------------------------------------------------------------
//
//??????產品名稱:???成曉旭的個人軟件Delphi源碼庫
//??????產品版本:???CXXSoft?delphi?code?source?lib?2.0
//??????模塊名稱:???Delphi之東進數字語音卡通道類
//??????模塊描述:???
//??????單元文件:???unDJChannelSS1.pas???
//??????開發作者:???成曉旭
//??????作者blog:???http://blog.csdn.net/CXXSoft
//??????備注:???????任何人使用此文件時,請保留此段自述文件,謝謝!
//??????開發時間:???2005-01-09
//??????修改歷史:???
//??????修改描述:
//------------------------------------------------------------------------------
unit?unDJChannelSS1;

interface
uses
??Windows,?SysUtils,
??unBaseDefine,
??Tce1_32,
??Tce1_FSK,
??unDJCardSS1;
type

??TCXXStatus?=?(csSending,csReceiving,csPlaying);
??
??TDJCommChannelsSS1?=?class(TObject)
??private
????CommIsFSK:boolean;
????controller:TDJCommCardSS1;
????TrunkID:integer;
????TrunkStep:TTrunkStep;

????MaxBuffer:?array?[0..DTMF_BUFFER_SIZE-1]?of?Char;
????msgChannel:TTrunkStatusInfo;
????msgFrame:TRecCommFrame;

????commFrameNumber,recPos:Word;
????subStatus:TCXXStatus;
????commPhone:string;
????commFrameStr:string;

????//應該進一步優化為注入的接口,非簡單的回調句柄
????onTrunkState:TTrunkSatausEvent;
????onRecEvent:TTrunkReceiveEvent;
????InOutType:TTrunkType;

????function??SendDataFromTrunk():boolean;
????function??CheckSendDataEnd():boolean;
????procedure?SaveMaxBufferToFrameStr();
????procedure?ProcessConnected();
????//注意:此方法與具體業務的通信協議存在嚴重依賴關系(IoC實現依賴反轉)
????function??CheckReceiveOverFSK(const?dataBuffer:array?of?char;const?dataNumber:Word):boolean;
????//注意:此方法與具體業務的通信協議存在嚴重依賴關系(IoC實現依賴反轉)
????function??CheckReceiveOverDTMF(const?dataBuffer:array?of?char;const?dataNumber:Word):boolean;
????function??GetCommData(const?dataBuffer:array?of?char;const?dataNumber:Word):string;
????function??ReceiveDataFromTrunk():boolean;

????procedure?InformChannelStatus(const?aStep:TTrunkStep;const?lvof:TLVOperateFlag);
????procedure?InformBusinessStatus(const?aCommData:string;const?cif:TCommInformFlag);
????procedure?InformDialStatus(const?aStep:TTrunkStep);
????procedure?InWaitingIntoToConnect();
????function??GetCommFrameFromSendString(const?commFrame:string):string;

????procedure?RegisterTrunkEvent(const?trunkStateEvent:TTrunkSatausEvent);
????procedure?RegisterReceiveEvent(const?trunkRecEvent:TTrunkReceiveEvent);
??public
????
????constructor?Create(const?trunkController:?TDJCommCardSS1;?const?TrkID:?Integer;
??????const?TrunkType:?TTrunkType;const?isFSKComm:?boolean;
??????const?aStateEvent:?TTrunkSatausEvent;const?aRecEvent:TTrunkReceiveEvent);
????destructor?Destroy;?override;

????//獲取通道狀態
????function?GetTrunkType():TTrunkType;
????procedure?DJChannelProcessor();
????//通道掛機
????procedure?InOutHangOff();
????//開始撥號
????procedure?StartDialPhone(const?phoneNumber,callerNumber:PChar;const?aDevID:integer=-1);
????//發送通信數據
????function??SendString(const?pchSend:PChar):boolean;
????//清空通道數據緩沖
????procedure?ClearTrunkBuffer(const?aSB:TCXXStatus);
????//獲取通道號
????function??GetTrunkID():integer;
??end;

implementation

...{?TDJCommChannelsSS1?}
const
??Frame_FillChar?=?#0;
??Leader_Flag?=?$55;
??HeadNumber?=?30;
??hasLeader?=?true;
??
function?TDJCommChannelsSS1.CheckSendDataEnd():?boolean;
begin
??Result?:=?false;
??if?CommIsFSK?then
??begin
????if?(DJFsk_CheckSendFSKEnd(TrunkID,SZK_Mode)?=?1)?then
????begin
??????DJFsk_StopSend(TrunkID,SZK_Mode);
??????Result?:=?true;
????end;
??end
??else
??begin
????if?DJTrk_CheckDtmfSendEnd(TrunkID)?then
????begin
??????DJVoc_StopPlayFile(TrunkID);
??????Result?:=?true;
????end;
??end;
??if?Result?then
????ClearTrunkBuffer(csReceiving);
end;

procedure?TDJCommChannelsSS1.ClearTrunkBuffer(const?aSB:TCXXStatus);
begin
??subStatus?:=?aSB;
??if?CommIsFSK?then
????DJFsk_ResetFskBuffer(TrunkID,SZK_Mode)
??else
????DJTrk_InitDtmfBufNew(TrunkID);
??commFrameNumber?:=?0;
??recPos?:=?0;
end;

constructor?TDJCommChannelsSS1.Create(const?trunkController:?TDJCommCardSS1;?const?TrkID:?Integer;
??const?TrunkType:?TTrunkType;?const?isFSKComm:?boolean;
??const?aStateEvent:?TTrunkSatausEvent;const?aRecEvent:TTrunkReceiveEvent);
var
??t:TTrunkType;
begin
??inherited?Create;
??RegisterTrunkEvent(aStateEvent);
??RegisterReceiveEvent(aRecEvent);
??controller?:=trunkController;
??TrunkID:=TrkID;
??commPhone?:=?'';
??TrunkStep:=TTrunkStep(-1);
??t?:=?TrunkType;
??if?DJTrk_SetTrunkType(TrkID,t)?then
????InOutType:=TrunkType;
??CommIsFSK?:=?isFSKComm;
??controller.TrunkConnected[TrunkID]?:=?false;
??ClearTrunkBuffer(csReceiving);
??InformChannelStatus(Step_Free,lvofAdd);
end;

destructor?TDJCommChannelsSS1.Destroy();
begin
??inherited;
??DJTrk_BackwardHangUp(TrunkID);
end;

procedure?TDJCommChannelsSS1.DJChannelProcessor();
var
??aStep:?TTrunkStep;
begin
??//DJSys_PushPlay();
??aStep:=?DJTrk_GetTrunkStatus(TrunkID);
??//狀態變化
??if?TrunkStep?<>?aStep?then
??begin
????TrunkStep:=?aStep;
????InformChannelStatus(TrunkStep,lvofUpdate);
??end;
??//前向掛機
??if?(TrunkStep<>Step_Free)?and?DJTrk_CheckForwardHangUp(TrunkID)?then
??begin
????InOutHangOff();
??end;
??//入中繼撥入,等待接續(建立連接)
??if?(TrunkStep?=?Step_Wait)?and?(DJTrk_CheckTrunkIn(TrunkID))?then
??begin
????InWaitingIntoToConnect();
??end;
??//通道連接已經建立
??if?(TrunkStep?=?Step_Connect)?then
??begin
????ProcessConnected();
??end;
??//出通道撥號失敗
??if?TrunkStep=Step_DialFail?then
??begin
????InformDialStatus(TrunkStep);
??end;
??if?TrunkStep=Step_Delay?then
????Exit;
??//出入通道空閑
??if?TrunkStep?=?Step_Free?then
??begin
????//等待接收呼入
??end;
end;

function?TDJCommChannelsSS1.GetTrunkID():?integer;
begin
??Result?:=?Self.TrunkID;
end;

procedure?TDJCommChannelsSS1.InformChannelStatus(const?aStep:?TTrunkStep;const?lvof:TLVOperateFlag);
begin
??msgChannel.lvFlag?:=?lvof;
??msgChannel.TrunkID?:=?IntToStr(Self.TrunkID);
??msgChannel.DeviceID?:=?'';
??msgChannel.TrunkTypeStr:=TrunkTypeInStr[InOutType];
??msgChannel.TrunkStep?:=?Ord(aStep);
??msgChannel.TrunkStepStr:=TrunkStepInStr[aStep];
??if?aStep?=?Step_Free?then
??begin
????msgChannel.Phone:='';
????msgChannel.Data:='';
??end
??else
??begin
????msgChannel.Phone:=commPhone;
????msgChannel.Data:=commFrameStr;
??end;
??if?Assigned(onTrunkState)?then
????onTrunkState(msgChannel);
end;

procedure?TDJCommChannelsSS1.InformDialStatus(const?aStep:?TTrunkStep);
var
??dStatus:TDialStatus;
begin
??dStatus?:=?DJTrk_GetDialStatus(TrunkID);
??case?dStatus?of
??DS_Busy,DS_OverTime,DS_NoUser,DS_LineError:
??begin
????InOutHangOff();
??end;
??end;
end;

procedure?TDJCommChannelsSS1.InformBusinessStatus(const?aCommData:?string;const?cif:TCommInformFlag);
begin
??//依賴注入的業務處理接口調用,實現業務處理的
end;

procedure?TDJCommChannelsSS1.InOutHangOff();
begin
??DJTrk_BackwardHangUp(TrunkID);
??controller.TrunkConnected[TrunkID]?:=?false;
??InformBusinessStatus('',cifDisconnected);
end;

procedure?TDJCommChannelsSS1.InWaitingIntoToConnect;
begin
??DJVoc_PlayFile(TrunkID,'.Voicedtmf13');
??DJVoc_StopPlayFile(TrunkID);
end;


procedure?TDJCommChannelsSS1.ProcessConnected();
var
??ss:TCXXStatus;??
begin
??if?NOT?controller.TrunkConnected[TrunkID]?then
??begin
????controller.TrunkConnected[TrunkID]?:=?true;
????ss?:=?csReceiving;
????InformBusinessStatus('',cifConnected);
????ClearTrunkBuffer(ss);
??end;
??case?subStatus?of
??csSending:
??begin
????if?CheckSendDataEnd()?then
????begin
????????InformChannelStatus(Step_Connect,lvofUpdate);
????????InformBusinessStatus(commFrameStr,cifSend);
????end;
??end;
??csReceiving:
??begin
????if?ReceiveDataFromTrunk()?then
????begin
??????msgFrame.CommFrame?:=?commFrameStr;
??????msgFrame.CommType?:=?Comm_FSK;
??????InformChannelStatus(Step_Connect,lvofUpdate);
??????InformBusinessStatus(commFrameStr,cifReceive);
????end;
??end;
??csPlaying:
??begin
????
??end;
??end;
end;

function?TDJCommChannelsSS1.ReceiveDataFromTrunk():?boolean;
var
??num,Loop:integer;
??tempBuffer:array[0..DTMF_BUFFER_SIZE-1]?of?Char;
begin
??Result?:=?false;
??try
????if?Self.CommIsFSK?then
????begin
??????//FSK方式版本
??????FillChar(tempBuffer,DTMF_BUFFER_SIZE,Frame_FillChar);
??????num?:=?DJFsk_GetFSK(TrunkID,tempBuffer,SZK_MODE);
??????if?(num?>?0)?then
??????begin
????????if?CheckReceiveOverFSK(tempBuffer,num)?then
????????begin
??????????Self.commFrameStr?:=?GetCommData(tempBuffer,num);
??????????Self.ClearTrunkBuffer(csReceiving);
??????????Result?:=?true;
????????end;
??????end;
????end
????else
????begin
??????//DTMF方式版本
??????num?:=?DJTrk_GetReceiveDtmfNumNew(TrunkID);
??????if?num?>?0?then
??????begin
????????for?Loop?:=?0?to?num?-?1?do
????????begin
??????????MaxBuffer[recPos+Loop]?:=?DJTrk_GetDtmfCodeNew(TrunkID);
??????????recPos?:=?(recPos?+?1)?mod?DTMF_BUFFER_SIZE;
????????end;
????????Inc(commFrameNumber,num);
????????if?CheckReceiveOverDTMF(tempBuffer,num)?then
????????begin
??????????ClearTrunkBuffer(csReceiving);
??????????Result?:=?true;
????????end;
??????end;
????end;
??except
????Result?:=?false;
??end;
end;

procedure?TDJCommChannelsSS1.RegisterReceiveEvent(
??const?trunkRecEvent:?TTrunkReceiveEvent);
begin
??onRecEvent?:=?trunkRecEvent;
end;

procedure?TDJCommChannelsSS1.RegisterTrunkEvent(
??const?trunkStateEvent:?TTrunkSatausEvent);
begin
??onTrunkState?:=?trunkStateEvent;
end;

procedure?TDJCommChannelsSS1.SaveMaxBufferToFrameStr();
var
??Loop:Word;
begin
??commFrameStr?:=?'';
??for?Loop?:=?0?to?commFrameNumber?-?1?do
??begin
????commFrameStr?:=?commFrameStr?+?MaxBuffer[Loop];
??end;
end;

function?TDJCommChannelsSS1.SendDataFromTrunk():boolean;
begin
??Result?:=?false;
??if?controller.TrunkConnected[TrunkID]?then
??begin
????if?CommIsFSK?then
????begin
??????Result?:=?DJFsk_SendFSK(TrunkID,@MaxBuffer[0],commFrameNumber,SZK_Mode)?=?1;
????end
????else
????begin
??????Result?:=?DJTrk_SendDtmfStr(TrunkID,@MaxBuffer[0])?=?1;
????end;
??end;
??if?Result?then
????subStatus?:=?csSending;
end;

function?TDJCommChannelsSS1.SendString(const?pchSend:?PChar):boolean;
var
??Loop:integer;
??strTemp:string;
begin
??Result?:=?false;
??if?Self.CommIsFSK?and?hasLeader?then
??begin
????//加FSK前導字符的版本
????strTemp?:=?GetCommFrameFromSendString(pchSend);
????commFrameNumber?:=?Length(strTemp);
????if?commFrameNumber?>?0?then
????begin
??????for?Loop?:=?0?to?commFrameNumber-1?do
????????MaxBuffer[Loop]?:=?strTemp[Loop+1];
??????MaxBuffer[commFrameNumber]?:=?#0;
??????SaveMaxBufferToFrameStr();
??????Result?:=?SendDataFromTrunk();
????end;
??end
??else
??begin
????//不加前導字符的版本
????commFrameNumber?:=?Length(pchSend);
????if?commFrameNumber?>?0?then
????begin
??????for?Loop?:=?0?to?commFrameNumber-1?do
????????MaxBuffer[Loop]?:=?pchSend[Loop];
??????MaxBuffer[commFrameNumber]?:=?#0;
??????SaveMaxBufferToFrameStr();
??????Result?:=?SendDataFromTrunk();
????end;
??end;
end;

procedure?TDJCommChannelsSS1.StartDialPhone(const?phoneNumber,
??callerNumber:?PChar;const?aDevID:integer);
begin
??if?DJTrk_CheckTrunkFree(TrunkID)?and(Trim(phoneNumber)?<>?'')?then
??begin
????commPhone?:=?Trim(phoneNumber);
????DJTrk_StartDial(TrunkID,PChar(commPhone),'');
??end;
end;

function?TDJCommChannelsSS1.CheckReceiveOverFSK(const?dataBuffer:?array?of?char;
??const?dataNumber:?Word):?boolean;
begin
??//業務實現方法:判定通信幀串發送結束
??Result?:=?true;
end;

function?TDJCommChannelsSS1.GetCommData(const?dataBuffer:?array?of?char;
??const?dataNumber:?Word):?string;
var
??Loop:Word;
begin
??Result?:=?'';
??if?dataNumber?<=?0?then?Exit;
??for?Loop?:=?0?to?dataNumber?-?1?do
??begin
????if?(dataBuffer[Loop]?<>?Frame_FillChar)?then
??????Result?:=?Result?+?dataBuffer[Loop];
??end;
end;

function?TDJCommChannelsSS1.GetCommFrameFromSendString(
??const?commFrame:?string):?string;
var
??Loop:integer;
begin
??Result?:=?commFrame;
??for?Loop?:=?0?to?HeadNumber?-?1?do
????Result?:=?CHR(Leader_Flag)?+?Result;
end;

function?TDJCommChannelsSS1.CheckReceiveOverDTMF(
??const?dataBuffer:?array?of?char;?const?dataNumber:?Word):?boolean;
begin
??//業務實現方法:判定通信幀串發送結束
??Result?:=?true;
end;

function?TDJCommChannelsSS1.GetTrunkType():?TTrunkType;
begin
??Result?:=?Self.InOutType;
end;

end.

?

總結

以上是生活随笔為你收集整理的Delphi之东进数字语音卡(SS1)可复用源码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。