shpa3api.pas

三汇CTI示例程序源码

function SsmGetResult(buf:PChar; index:PChar; score:PChar; ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetNResult(id:Integer; buf:PChar; index:PChar; score:PChar; ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
procedure SsmSetSil(nValue:Integer); stdcall; external 'SHP_A3.dll';
procedure SsmSetRecoSound(nBeginLen:Integer; nEndLen:Integer; nSoundLen:Integer); stdcall; external 'SHP_A3.dll';
procedure SsmSetRecoTime(nRecoTime:Integer; nMaxWait:Integer); stdcall; external 'SHP_A3.dll';

//
function SpyGetState(nCic:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SpyGetCallerId(nCic:Integer; pszCId:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SpyGetCalleeId(nCic:Integer; pszCId:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SpyGetCallInCh(nCic:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SpyGetCallOutCh(nCic:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SpyGetMaxCic():Integer; stdcall; external 'SHP_A3.dll';
function SpyRecToFile(nCic:Integer; wDirection:WORD; pszFileName:PChar; nCodecFormat:Integer; dwStartPos:DWORD; dwBytes:DWORD; dwTime:DWORD; nMask:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SpyStopRecToFile(nCic:Integer):Integer; stdcall; external 'SHP_A3.dll';

//event 
function SsmSetEvent(wEvent:WORD; nReference:Integer; bEnable:Boolean; pEventSet:PEVENT_SET_INFO):Integer; stdcall; external 'SHP_A3.dll';
function SsmWaitForEvent(dwTimeOut:DWORD; pEvent:PMESSAGE_INFO):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetEvent(pEvent:PMESSAGE_INFO):Integer; stdcall; external 'SHP_A3.dll';
function SsmStartTimer(wDelay:WORD; fuEvent:WORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmStopTimer(nTimer:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmPutUserEvent(wEventCode:WORD; nReference:Integer; dwParam:DWORD):Integer; stdcall; external 'SHP_A3.dll';

//DTR operation
function DTRGetLCDStr(ch:Integer; pszStr:PChar):Integer; stdcall; external 'SHP_A3.dll';
function DTRSetMixerVolume(ch:Integer; nGroup:Integer; nDownVolume:Integer; nUpVolume:Integer):Integer; stdcall; external 'SHP_A3.dll';
function DTRGetMixerVolume(ch:Integer; nGroup:Integer; pnDownVolume:PInteger; pnUpVolume:PInteger):Integer; stdcall; external 'SHP_A3.dll';
function DTRGetDKeyStr(ch:Integer; pszDKeyStr:PChar):Integer; stdcall; external 'SHP_A3.dll';

//
function ShgGetCallerId(nLocPcmNo:Integer; nTs:Integer; szCallerId:PChar):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetCallerIdA(nLocPcmNo:Integer; nTs:Integer):PChar; stdcall; external 'SHP_A3.dll';
function ShgClearCallerId(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgPickup(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgHangup(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgSearchIdleCallOutCh(wSearchMode:WORD; dwPrecedence:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function ShgAutoDial(nLocPcmNo:Integer; nTs:Integer; szPhoNum:PChar):Integer; stdcall; external 'SHP_A3.dll';
function ShgAppendPhoNum(nLocPcmNo:Integer; nTs:Integer; szPhoNum:PChar):Integer; stdcall; external 'SHP_A3.dll';
function ShgChkAutoDial(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetAutoDialFailureReason(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgQueryLocalChBlockState(nLocPcmNo:Integer; nTs:Integer; pdwBlockState:PDWORD):Integer; stdcall; external 'SHP_A3.dll';
function ShgBlockLocalCh(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgUnblockLocalCh(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgQueryLocalPCMBlockState(nLocPcmNo:Integer; pdwBlockState:PDWORD):Integer; stdcall; external 'SHP_A3.dll';
function ShgBlockLocalPCM(nLocPcmNo:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgUnblockLocalPCM(nLocPcmNo:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgBlockRemoteCh(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgUnblockRemoteCh(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetRemoteChBlockStatus(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgBlockRemotePCM(nLocPcmNo:Integer; dwBlockMode:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function ShgUnblockRemotePCM(nLocPcmNo:Integer; dwUnBlockMode:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetRemotePCMBlockStatus(nLocPcmNo:Integer; dwBlockMode:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetChState(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetChStateKeepTime(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetPendingReason(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetPhoNumLen(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetPhoNumStr(nLocPcmNo:Integer; nTs:Integer; pszPhoNum:PChar):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetPhoNumStrA(nLocPcmNo:Integer; nTs:Integer):PChar; stdcall; external 'SHP_A3.dll';
function ShgGet1stPhoNumLen(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgGet1stPhoNumStr(nLocPcmNo:Integer; nTs:Integer; pszPhoNum:PChar):Integer; stdcall; external 'SHP_A3.dll';
function ShgGet1stPhoNumStrA(nLocPcmNo:Integer; nTs:Integer):PChar; stdcall; external 'SHP_A3.dll';
function ShgEnableAutoSendKB(nLocPcmNo:Integer; nTs:Integer; bEnable:Boolean):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetAutoSendKBFlag(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgSetKB(nLocPcmNo:Integer; nTs:Integer; btSigKB:BYTE):Integer; stdcall; external 'SHP_A3.dll';
function ShgSetTxCallerId(nLocPcmNo:Integer; nTs:Integer; pszTxCallerId:PChar):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetTxCallerId(nLocPcmNo:Integer; nTs:Integer; pszTxCallerId:PChar):Integer; stdcall; external 'SHP_A3.dll';
function ShgGetKB(nLocPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function ShgSetISUPCAT(nLocPcmNo:Integer; nTs:Integer; ucCallerCAT:BYTE):Integer; stdcall; external 'SHP_A3.dll';
function ShgHangupEx(nLocPcmNo:Integer; nTs:Integer; ucCauseVal:BYTE):Integer; stdcall; external 'SHP_A3.dll';

//
function SsmGetRxDtmfBufSize():Integer; stdcall;

function SsmLinkToBusCh(nCh:Integer; nBusCh:Integer):Integer; stdcall;
function SsmUnLinkToBusCh(nCh:Integer; nBusCh:Integer):Integer; stdcall;
function SsmLinkFromBusCh(nBusCh:Integer; nCh:Integer):Integer; stdcall;

function SsmPauseCard():Integer; stdcall;
function SsmRestartCard():Integer; stdcall;


//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@ ST-BUS OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmGetBusChInfo(nBusCh:Integer;  pnOwner:PInteger;  pnInAppCh:PInteger;  pnTotOut:PInteger):Integer; stdcall;
function SsmApplyBusCh():Integer; stdcall;
function SsmFreeBusCh(nBusCh:Integer):Integer; stdcall;
function SsmUnLinkFromBusCh(nBusCh:Integer;  nCh:Integer):Integer; stdcall;


//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ CONFERENCE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@ FUNCTIONS COMPATIBLE WITH SHP_8A3 BOARD DRIVER  @@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function InitCard(add1:DWORD; add2:DWORD; add3:DWORD; add4:DWORD ;add5:DWORD;
				  add6:DWORD; add7:DWORD; add8:DWORD; intno:DWORD):DWORD; stdcall;
procedure ShutCard(); stdcall;

function StartRecordFile(ch:DWORD; fliename:PChar):DWORD; stdcall;

procedure StopRecordFile(ch:DWORD); stdcall;

procedure PauseRecord(ch:DWORD); stdcall;

procedure RestartRecord(ch:DWORD); stdcall;
function GetRecordTime(ch:DWORD):DWORD; stdcall;

function StartPlayFile(ch:DWORD; filename:PChar):DWORD; stdcall;
procedure StopPlayFile(ch:DWORD); stdcall;
function CheckPlayingEnd(ch:DWORD):DWORD; stdcall;

procedure PausePlay(ch:DWORD); stdcall;
procedure RestartPlay(ch:DWORD); stdcall;
procedure FastPlay(ch:DWORD); stdcall;
procedure BackPlay(ch:DWORD); stdcall;

function GetPlayTime(ch:DWORD):DWORD; stdcall;
function GetPlayPercent(ch:DWORD):DWORD; stdcall;
procedure SetPlayTime(ch:DWORD;time:DWORD ); stdcall;
procedure SetPlayPercent(ch:DWORD; percent:DWORD); stdcall;

function LoadIndexFile(segno:DWORD; filename:PChar; startadr:DWORD; length:DWORD):DWORD; stdcall;

procedure FreeIndexMem(segno:DWORD); stdcall;
procedure PlayIndex(ch:DWORD; segstring:PChar); stdcall;
procedure StopIndex(ch:DWORD); stdcall;
procedure DTMFStop(ch:DWORD; if_stop:DWORD); stdcall;

function GetDTMF(ch:DWORD):DWORD; stdcall;
procedure ClearDTMFBuf(ch:DWORD); stdcall;
procedure HangUp(ch:DWORD); stdcall;
procedure PickUp(ch:DWORD); stdcall;
function DetectInter(ch:DWORD):DWORD; stdcall;
function GetFlash(ch:DWORD):DWORD; stdcall;
procedure SetFlashTime(time:Integer); stdcall;
function ToneCheck(ch:DWORD):DWORD; stdcall;
function GetBusyLen(ch:DWORD):DWORD; stdcall;
procedure DTMFDial(ch:DWORD; dialstring:PChar); stdcall;
function DTMFDialEnd(ch:DWORD):DWORD; stdcall;

procedure Flash(ch:DWORD;time:DWORD); stdcall;

procedure SetPlayVolume(ch:DWORD; volume:LongInt); stdcall;
procedure SetRecVolume(ch:DWORD; volume:LongInt); stdcall;



function GetNum(ch:DWORD; buf:PChar; time:DWORD; len:DWORD; end_char:Integer):DWORD; stdcall;

procedure SetWorkMode(Mode:Integer); stdcall;

procedure SetUserCard(addr1:DWORD; addr2:DWORD; addr3:DWORD; addr4:DWORD; addr5:DWORD; addr6:DWORD; addr7:DWORD; addr8:DWORD); stdcall;

procedure SendBusyTone(ch:Integer); stdcall;
procedure SendRingEchoTone(ch:Integer); stdcall;
procedure SendDialTone(ch:Integer); stdcall;
procedure StopSendTone(ch:Integer); stdcall;
procedure StartSendRing(ch:Integer); stdcall;
procedure StopSendRing(ch:Integer); stdcall;

function Link2Ch(ch1:Integer;ch2:Integer):Integer; stdcall;
procedure UnLink2Ch(ch1:Integer;ch2:Integer); stdcall;

function Link3Ch(ch1:Integer;ch2:Integer;ch3:Integer):Integer; stdcall;


procedure UnLink3Ch(ch1:Integer;ch2:Integer;ch3:Integer); stdcall;
function ListenFromCh(ch1:Integer;ch2:Integer):Integer; stdcall;

procedure StopListenFromCh(ch1:Integer;ch2:Integer); stdcall;
procedure SetDelay(ch:DWORD; delay:DWORD); stdcall;
procedure SetLevel(ch:DWORD; level:DWORD); stdcall;

function DetectSound(ch:DWORD):DWORD; stdcall;
function GetFax11(ch:DWORD):DWORD; stdcall;
function GetFax21(ch:DWORD):DWORD; stdcall;

procedure SetDialSpeed (point:DWORD); stdcall;
procedure GetErrorMsg(buf:PChar); stdcall;

function  SetMaxSeg(inmaxsegment:DWORD):DWORD; stdcall;

function ApplyTimeSlot():Integer; stdcall;

function LinkFromBus(TsHandle:Integer;Ch:Integer):Integer; stdcall;
function StopLinkFromBus(TsHandle:Integer;Ch:Integer):Integer; stdcall;
function LinkToBus(Ch:Integer;TsHandle:Integer):Integer; stdcall;

function StopLinkToBus(Ch:Integer;TsHandle:Integer):Integer; stdcall;

procedure FreeTimeSlot(TsHandle:Integer); stdcall;
procedure PauseCard(); stdcall;
procedure RestartCard(); stdcall;

function SetIRQPriority(nPriorityClass:Integer):Boolean; stdcall;

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RECORD MODULE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function GetLevel(ch:DWORD ):DWORD;stdcall;
procedure SetJudge(ch:DWORD ;  Judge:DWORD);stdcall;
function DetectPickUp(ch:DWORD ):DWORD;stdcall;
function DetectEmpty(ch:DWORD ):DWORD;stdcall;
procedure SetSoundJudgeLevel(ch:DWORD ;  level:DWORD);stdcall;
function GetSoundJudgeLevel(ch:DWORD ):DWORD;stdcall;



//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POWER-AMPLIFIER OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POLAR REVERSE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function GetFZCount(ch:DWORD ):DWORD;stdcall;

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SS1 OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PCM LINK OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SEND FSK OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@ FAX OPERATION API @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ MODEM OPERATION API  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@ SERIAL PORT IO OPERATION API @@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

implementation