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

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

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

ChannelNumber:Word;
channelObject:arrayofTCXXDJChannel160A;
OnCardChannelState:TTrunkStatusEvent;

procedureStop();
procedureReleaseCommDevice();
functionGetChannelObjectOrder( const aChannelID:Word):Word;

public

constructorCreate( const trunkEvent:TTrunkStatusEvent);
destructorDestroy(); override ;

functionLoadCommDevice( const loadAll:boolean = false ):boolean;
functionStartup():boolean;
functionGetAFreeChannel():Word;
functionGetChannelNumber():Word;
functionDialPhone( const aChannelID:Word; const DialPhoneNumber:PChar):boolean;
functionHangUp( const aChannelID:Word):boolean;

end;


implementation

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

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

functionTCXXCommCard160A.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;

procedureTCXXCommCard160A.ReleaseCommDevice();
begin
DisableCard();
FreeDrv();
end;

functionTCXXCommCard160A.GetAFreeChannel():Word;
var
Loop:Word;
begin
Result: = ErrorTrunkNumber;
for Loop: = Low(channelObject)toHigh(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;

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

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

functionTCXXCommCard160A.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;

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

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

procedureTCXXCommCard160A.Stop();
var
Loop:integer;
begin
for Loop: = 0 tochannelNumber - 1 do
begin
channelObject[Loop].Suspend();
channelObject[Loop].Terminate();
channelObject[Loop]: = nil;
end;
end;

end.