?? shpa3api.pas
字號:
unit Shpa3api;
interface
uses Windows;
const
//enum{
ANALOG_CH = 0;
INTER_CH = 1;
USER_CH = 2;
REC_CH = 3;
SS1_CH = 4;
FAX_CH = 5;
//};
//pending reason
//enum{
ANALOGOUT_NO_DIALTONE=0;
ANALOGOUT_BUSYTONE=1;
ANALOGOUT_ECHO_NOVOICE=2;
ANALOGOUT_NOANSWER=3;
ANALOGOUT_TALKING_REMOTE_HANGUPED=4;
SS1IN_WAIT_SET_KB=10;
SS1IN_BWD_KB5=11;
SS1IN_TALKING_REMOTE_HANGUPED=12; // 自動呼入時檢測到主叫用戶先掛機
SS1OUT_TALKING_REMOTE_HANGUPED=20; // 自動呼出進入通話后檢測到被叫用戶先掛機
SS1OUT_NOANSWER=21; // 等待被叫用戶摘機超時
SS1OUT_NOBWDACK=22; // 等待占用應答信號超時
SS1OUT_DIALING_BWD_HANGUP=23; // 收到后向拆線信號
SS1OUT_BWD_A5=24; // 收到A=5（空號）信號
SS1OUT_BWD_KB5=25; // 收到KB=5（空號）信號
SS1OUT_BWD_KB2=26; // 用戶“市忙”
SS1OUT_BWD_KB3=27; // 用戶”長忙“
SS1OUT_BWD_A4=28; // 機鍵擁塞
SS1OUT_BWD_KB4=29; // 收到KB=4（機鍵擁塞）信號
SS1OUT_TIMEOUT_BWD_A=30; // 等候接收后向A組信號超時
SS1OUT_TIMEOUT_BWD_A_STOP=31; // 等候后向A組信號停發超時
SS1OUT_TIMEOUT_BWD_KB=32; // 接收后向KB信號超時
SS1OUT_TIMEOUT_BWD_KB_STOP=33; // 等候被叫方停發后向KB信號超時
SS1OUT_TIMEOUT_CALLERID_BWD_A1=34; // 收到未定義的后向A組信號
SS1OUT_TIMEOUT_CALLERID_BWD_A1_STOP=35; // 發送CALLERID時等候后向A組信號停發超時
SS1OUT_UNDEFINED_CALLERID_BWD_A=36; // 發送主叫號碼時收到未定義的后向A組信號
SS1OUT_UNDEFINED_BWD_A=37; // 收到未定義的后向A組信號
SS1OUT_UNDEFINED_BWD_KB=38; // 收到未定義的KB信號
//};
//enum{
S_CALL_STANDBY=0;
S_CALL_PICKUPED=1;
S_CALL_RINGING=2;
S_CALL_TALKING=3;
S_CALL_ANALOG_WAITDIALTONE=4;
S_CALL_ANALOG_TXPHONUM=5;
S_CALL_ANALOG_WAITDIALRESULT=6;
S_CALL_PENDING=7;
S_CALL_OFFLINE=8;
S_CALL_WAIT_REMOTE_PICKUP=9;
S_CALL_ANALOG_CLEAR=10;
S_CALL_SS1_BLOCK=20;
S_CALL_SS1_SAYIDLE=21;
S_CALL_SS1IN_WAIT_PHONUM=30;
S_CALL_SS1IN_WAIT_FWDSTOP=31;
S_CALL_SS1IN_WAIT_CALLERID=32;
S_CALL_SS1IN_WAIT_KD=33;
S_CALL_SS1IN_WAIT_KDSTOP=34;
S_CALL_SS1OUT_WAITBWDACK=40;
S_CALL_SS1OUT_TXPHONENUM=41;
S_CALL_SS1OUT_WAIT_PHONUM=42;
S_CALL_SS1OUT_TXCALLERID=43;
S_CALL_SS1OUT_WAIT_KB=44;
//};
//enum{
DIAL_STANDBY=0;
DIAL_DIALING=1;
DIAL_ECHOTONE=2;
DIAL_NO_DIALTONE=3;
DIAL_BUSYTONE=4;
DIAL_ECHO_NOVOICE=5;
DIAL_NOVOICE=6;
DIAL_VOICE=7;
DIAL_VOICEF1=8;
DIAL_VOICEF2=9;
DIAL_NOANSWER=10;
DIAL_FAILURE=11;
DIAL_INVALID_PHONUM=12;
//};
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@ INITIALIZATION OPERATION @@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmStartCti( lpSsmCfgFileName:PChar;
lpIndexCfgFileName:PChar):Integer; stdcall;
function SsmCloseCti():Integer; stdcall;
procedure SsmGetLastErrMsg( szErrMsgBuf:PChar); stdcall;
function SsmGetLastErrCode():Integer; stdcall;
function SsmGetMaxUsableBoard():Integer; stdcall;
function SsmGetMaxCfgBoard():Integer; stdcall;
function SsmGetRxDtmfBufSize():Integer; stdcall;
function SsmGetAccreditId( nBId:Integer):Integer; stdcall;
function SsmGetMaxCh():Integer; stdcall;
function SsmGetChType(ch:Integer):Integer; stdcall;
function SsmSetMaxIdxSeg( wMaxIdxSeg:WORD):Integer; stdcall;
function SsmLoadIndexData(nSegNo:Integer;
pAlias:PChar;
nCodec:Integer;
pVocFile:PChar;
lStartPos:LongInt;
lLen:LongInt):Integer; stdcall;
function SsmFreeIndexData( nSegNo:Integer):Integer; stdcall;
function SsmGetTotalIndexSeg():Integer; stdcall;
function SsmPauseCard():Integer; stdcall;
function SsmRestartCard():Integer; stdcall;
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PLAY OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmSetPlayVolume(ch:Integer; nVolume:Integer):Integer; stdcall;
function SsmSetDtmfStopPlay(ch:Integer; bDspf:Boolean):Integer; stdcall;
function SsmGetDtmfStopPlayFlag(ch:Integer):Integer; stdcall;
function SsmSetBargeinStopPlay(ch:Integer; bBispf:Boolean):Integer; stdcall;
function SsmGetBargeinStopPlayFlag(ch:Integer):Integer; stdcall;
function SsmPlayFile(ch:Integer;
pszFileName:PChar;
nFormat:Integer;
dwStartPos:DWORD;
dwLen:DWORD):Integer; stdcall;
function SsmStopPlayFile(ch:Integer):Integer; stdcall;
function SsmPausePlay(ch:Integer):Integer; stdcall;
function SsmRestartPlay(ch:Integer):Integer; stdcall;
function SsmFastFwdPlay(ch:Integer):Integer; stdcall;
function SsmFastBwdPlay(ch:Integer):Integer; stdcall;
function SsmSetPlayTime(ch:Integer; dwTime:DWORD):Integer; stdcall;
function SsmSetPlayPrct(ch:Integer; dwPercentage:DWORD):Integer; stdcall;
function SsmGetPlayedTime(ch:Integer):LongInt; stdcall;
function SsmGetPlayedPercentage(ch:Integer):Integer; stdcall;
function SsmGetDataBytesToPlay(ch:Integer):LongInt; stdcall;
function SsmCheckPlay(ch:Integer):Integer; stdcall;
function SsmGetPlayType(ch:Integer):Integer; stdcall;
function SsmPlayIndexString(ch:Integer; pszIdxStr:PChar):Integer; stdcall;
function SsmPlayIndexList(ch:Integer;
wIdxListLen:WORD;
pwIdxList:PWORD):Integer; stdcall;
function SsmStopPlayIndex(ch:Integer):Integer; stdcall;
function SsmClearFileList(ch:Integer):Integer; stdcall;
function SsmAddToFileList(ch:Integer;
pszFileName:PChar;
nFormat:Integer;
dwStartPos:DWORD;
dwLen:DWORD):Integer; stdcall;
function SsmPlayFileList(ch:Integer):Integer; stdcall;
function SsmStopPlayFileList(ch:Integer):Integer; stdcall;
function SsmPlayMem(ch:Integer;
nFormat:Integer;
pBuf:PBYTE;
dwBufSize:DWORD;
dwStartOffset:DWORD;
dwStopOffset:DWORD):Integer; stdcall;
function SsmGetPlayOffset(ch:Integer; pdwPlayOffset:PDWORD):Integer; stdcall;
function SsmSetStopPlayOffset(ch:Integer; dwStopPlayOffset:DWORD):Integer; stdcall;
function SsmStopPlayMem(ch:Integer):Integer; stdcall;
function SsmClearPlayMemList():Integer; stdcall;
function SsmAddToPlayMemList( pBuf:PBYTE;
dwDataLen:DWORD;
nFormat:Integer):Integer; stdcall;
function SsmPlayMemList(ch:Integer; pMemList:PWORD; wMemListLen:WORD):Integer; stdcall;
function SsmStopPlayMemList(ch:Integer):Integer; stdcall;
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@ RECORD OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmSetRecVolume(ch:Integer; nVolume:Integer):Integer; stdcall;
function SsmGetRecType(ch:Integer):Integer; stdcall;
function SsmRecToFile(ch:Integer;
pszFileName:PChar;
nFormat:Integer;
dwStartPos:DWORD;
dwBytes:DWORD;
dwTime:DWORD;
nMask:Integer):Integer; stdcall;
function SsmPauseRecToFile(ch:Integer):Integer; stdcall;
function SsmRestartRecToFile(ch:Integer):Integer; stdcall;
function SsmGetRecTime(ch:Integer):LongInt; stdcall;
function SsmGetDataBytesToRecord(ch:Integer):LongInt; stdcall;
function SsmStopRecToFile(ch:Integer):Integer; stdcall;
function SsmChkRecToFile(ch:Integer):Integer; stdcall;
function SsmRecToMem(ch:Integer;
nFormat:Integer;
pBuf:PBYTE;
dwBufSize:DWORD;
dwStartOffset:DWORD):Integer; stdcall;
function SsmStopRecToMem(ch:Integer):Integer; stdcall;
function SsmGetRecOffset(ch:Integer):LongInt; stdcall;
function SsmGetRecAGCSwitch(ch:Integer):Integer; stdcall;
function SsmSetRecAGC(ch:Integer; bEnable:Boolean):Integer; stdcall;
function SsmQueryOpRecMixer(ch:Integer):Integer; stdcall;
function SsmSetRecMixer(ch:Integer; bEnRecMixer:Boolean; nMixerVolume:Integer):Integer; stdcall;
function SsmGetRecMixerState(ch:Integer;
pnEnRecMixer:PInteger;
pnMixerVolume:PInteger):Integer; stdcall;
function SsmSetPrerecord(ch:Integer; bEnable:Boolean; nMode:Integer; wInsertTime:WORD; nFormat:Integer):Integer;stdcall;
function SsmSetTruncateTail(ch:Integer; dwTime:DWORD):Integer;stdcall;
function SsmGetTruncateTailTime(ch:Integer):LongInt; stdcall;
function SsmGetPrerecordState(ch:Integer; pnMode:PInteger; pwInsertTime:PWORD; pnFormat:PInteger):Integer;stdcall;
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@ RxDTMF OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmEnableRxDtmf(ch:Integer; bRun:Boolean):Integer; stdcall;
function SsmClearRxDtmfBuf(ch:Integer):Integer; stdcall;
function SsmGetDtmfStr(ch:Integer; pszDtmf:PChar):Integer; stdcall;
function SsmGetRxDtmfLen(ch:Integer):Integer; stdcall;
function SsmGet1stDtmf(ch:Integer; pcDtmf:PChar):Integer; stdcall;
function SsmGet1stDtmfClr(ch:Integer; pcDtmf:PChar):Integer; stdcall;
function SsmGetLastDtmf(ch:Integer; pcDtmf:PChar):Integer; stdcall;
function SsmSetWaitDtmf(ch:Integer; wTimeOut:WORD; wMaxLen:WORD; cEndChar:char; bWithEndChar:Boolean):Integer; stdcall;
function SsmChkWaitDtmf(ch:Integer; pszDtmf:PChar):Integer; stdcall;
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@ TXDTMF OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmQueryTxDtmf(ch:Integer; pszDtmf:PChar):Integer; stdcall;
function SsmQueryTxFlash(ch:Integer; pszDtmf:PChar):Integer; stdcall;
function SsmSetTxDtmfPara(ch:Integer; wOnTime:WORD; wOffTime:WORD):Integer; stdcall;
function SsmGetTxDtmfPara(ch:Integer; pwOnTime:PWORD; pwOffTime:PWORD):Integer; stdcall;
function SsmTxDtmf(ch:Integer; pszDtmf:PChar):Integer; stdcall;
function SsmStopTxDtmf(ch:Integer):Integer; stdcall;
function SsmChkTxDtmf(ch:Integer):Integer; stdcall;
function SsmTxFlash(ch:Integer; time:WORD):Integer; stdcall;
function SsmChkTxFlash(ch:Integer):Integer; stdcall;
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@ INTER-CH OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmSetLocalFlashTime( nFlashTime:Integer):Integer; stdcall;
function SsmSetASDT(ch:Integer; bEnAutoSendDialTone:Boolean):Integer; stdcall;
function SsmGetASDT(ch:Integer):Integer; stdcall;
function SsmGetFlashCount(ch:Integer):Integer; stdcall;
function SsmClearFlashCount(ch:Integer):Integer; stdcall;
function SsmGetHookState(ch:Integer):Integer; stdcall;
function SsmStartRing(ch:Integer):Integer; stdcall;
function SsmStopRing(ch:Integer):Integer; stdcall;
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@ SEND TONE OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmQueryOpSendTone(ch:Integer):Integer; stdcall;
function SsmSendTone(ch:Integer; nToneType:Integer):Integer; stdcall;
function SsmStopSendTone(ch:Integer):Integer; stdcall;
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@ TONE ANALYZE OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmClearToneAnalyzeResult(ch:Integer):Integer; stdcall;
function SsmStartToneAnalyze(ch:Integer):Integer; stdcall;
function SsmCloseToneAnalyze(ch:Integer):Integer; stdcall;
function SsmGetOverallEnergy(ch:Integer):LongInt; stdcall;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -