shpa3api.pas

三汇录音卡的录音源码增加了将来电号码写数据库

function SsmGetConfGrpMmbrId(nGrpId:Integer; pnMmbrId:PInteger):Integer; stdcall;
function SsmGetConfGrpMmbrInfo(nGrpId:Integer; nMmbrId:Integer; pnAppCh:PInteger; pwJoinMode:PWORD; pwIsSpeaking:PWORD; pdwSilenceTime:PDWORD):Integer; stdcall;
function SsmGetConfChInfo(ch:Integer; pnGrpId:PInteger; pnMmbrId:PInteger; pwJoinMode:PWORD; pwIsSpeaking:PWORD; pdwSilenceTime:PDWORD):Integer; stdcall; external 'SHP_A3.dll';

//有关录音通道操作的函数
function SsmQueryOpADC(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetLineVoltage(ch:Integer):Integer; stdcall;
function SsmSetDtrmLineVoltage(ch:Integer; wDtrmValtage:WORD):Integer; stdcall;
function SsmGetDtrmLineVoltage(ch:Integer):Integer; stdcall;

function SsmQueryOpMicGain(ch:Integer):Integer; stdcall;
function SsmSetMicGain(ch:Integer; nGain:Integer):Integer; stdcall;
function SsmGetMicGain(ch:Integer):Integer; stdcall;

function SsmSetPrerecord(ch:Integer; bEnable:Boolean; nMode:Integer; wInsertTime:WORD; nFormat:Integer):Integer;stdcall;
function SsmGetPrerecordState(ch:Integer; pnMode:PInteger; pwInsertTime:PWORD; pnFormat:PInteger):Integer;stdcall;
function SsmSetIgnoreLineVoltage(ch:Integer; bEnable:Boolean):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetIgnoreLineVoltage(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';

//以下函数非标准Ssm开头
procedure PlayListen(dwBId:DWORD; ch:DWORD); stdcall;
procedure StopListen(dwBId:DWORD); stdcall;
procedure PlayListenNew(dwSpeakerCh:DWORD; dwMonitorCh:DWORD); stdcall;
procedure StopListenNew(dwSpeakerCh:DWORD); stdcall;

//本地扬声器功放音量调节函数
procedure SetVolume(dwBoardId:DWORD; dwVolume:DWORD); stdcall; //非Ssm开头
function SsmQueryOpPowerAmp(ch:Integer):Integer; stdcall;
function SsmSetPowerAmpVlm(ch:Integer; nVolume:Integer):Integer; stdcall;

//检测声音信号峰值频率的函数
function SsmQueryOpPeakFrqDetect(ch:Integer):Integer; stdcall;
function SsmSetPeakFrqDetectBW(ch:Integer; nPeakBW:WORD):Integer; stdcall;
function SsmGetPeakFrqDetectBW(ch:Integer):Integer; stdcall;
function SsmGetPeakFrqEnergy(ch:Integer):LongInt; stdcall;
function SsmGetPeakFrq(ch:Integer):Integer; stdcall;
function SsmGetRecPlayEnergy(ch:Integer; dwMask:DWORD):LongInt; stdcall; external 'SHP_A3.dll';

//有关极性反转侦测的函数
function SsmQueryOpPolarRvrs(ch:Integer):Integer; stdcall;
function SsmGetPolarRvrsCount(ch:Integer):Integer; stdcall;
function SsmGetPolarState(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetPolarState(ch:Integer; nPolar:Integer):Integer; stdcall; external 'SHP_A3.dll';

//有关中国1号信令接续控制的函数
function SsmQueryOpSS1(ch:Integer):Integer; stdcall;
function SsmSendCAS(ch:Integer; btCas:BYTE):Integer; stdcall;
function SsmGetSendingCAS(ch:Integer):Integer; stdcall;
function SsmGetCAS(ch:Integer):Integer; stdcall;
function SsmSetRxR2Mode(ch:Integer; nMode:Integer; bEnable:Boolean):Integer; stdcall;
function SsmGetR2(ch:Integer):Integer; stdcall;
function SsmSendR2(ch:Integer; nMode:Integer; btR2:BYTE):Integer; stdcall;
function SsmStopSendR2(ch:Integer):Integer; stdcall;
function SsmGetSendingR2(ch:Integer; pnMode:PInteger; pbtR2:PBYTE):Integer; stdcall;

//有关PCM链路信息的函数
function SsmGetMaxPcm():Integer; stdcall;
function SsmGetPcmInfo(nPcmNo:Integer; pnSSxMode:PInteger; pnBoardId:PInteger; pnBoardPcmNo:PInteger; pnUsePcmTS16:PInteger; pdwRcvrMode:PDWORD; pdwEnableAutoCall:PDWORD; pdwAutoCallDirection:PDWORD):Integer; stdcall;
function SsmGetPcmLinkStatus(nPcmNo:Integer; pwPcmLinkStatus:PWORD):Integer; stdcall;
function SsmPcmTsToCh(nLocalPcmNo:Integer; nTs:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmChToPcmTs(ch:Integer; pnLocalPcmNo:PInteger; pnTs:PInteger):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetPcmClockMode(nPcmNo:Integer; nClockMode:Integer):Integer; stdcall; external 'SHP_A3.dll';

//有关中国No7信令的函数
function SsmSendSs7Msu(wMsuLength:WORD; pucMsuBuf:PByte):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetSs7Msu(ppucMsuBuf:PByte):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetMtp3State():Integer; stdcall; external 'SHP_A3.dll';
function SsmGetMtp3StateEx(nDpcNo:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetMtp2Status(nLinkNum:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetISUPCAT(nch:Integer; ucCallerCAT:Char):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetIsupUPPara(nBCh:Integer; wEventType:WORD; pwLength:PWORD; pucContent:PByte):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetIsupUPPara(nBCh:Integer; wEventType:WORD; pwLength:PWORD; pucContent:PByte):Integer; stdcall; external 'SHP_A3.dll';
function SsmSendIsupMsg(nBCh:Integer; wEventType:WORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetInboundLinkSet(nBCh:Integer; pwLinkSetNo:PWORD; pszOpc:PChar; pszDpc:PChar):Integer; stdcall; external 'SHP_A3.dll';

//有关ISDN呼叫的专有函数
function SsmISDNSetDialSubAddr(ch:Integer; lpSubAddress:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmISDNGetDisplayMsg(ch:Integer; lpDispMsg:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmISDNSetTxSubAddr(ch:Integer; lpSubAddress:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmISDNGetTxCallerSubAddr(ch:Integer; lpSubAddress:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmISDNGetSubAddr(ch:Integer; lpSubAddress:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmISDNGetCallerSubAddr(ch:Integer; lpSubAddress:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmISDNSetHangupRzn(ch:Integer; nReason:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetTxOriginalCallerID(ch:Integer; pszTxCallerId:PBYTE):Integer; stdcall; external 'SHP_A3.dll';
function SsmISDNGetStatus(nPcmNo:Integer; pL3Start:PInteger; pL2Status:PInteger; pL2D_L3Atom:PInteger; pL3_L2DAtom:PInteger; pRef_ind:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetIsdnMsu(nPcmId:Integer; pucMsuBuf:PByte):Integer; stdcall; external 'SHP_A3.dll';
function SsmSendIsdnMsu(nPcmId:Integer; nMsuLen:Integer; pucMsuBuf:PByte):Integer; stdcall; external 'SHP_A3.dll';
function SsmCheckIsdnMsu(nPcmId:Integer):Integer; stdcall; external 'SHP_A3.dll';

//有关BFSK的函数
function SsmSetFskPara(nFreqBit0:Integer; nFreqBit1:Integer; nBaudrate:Integer; nMdlAmp:Integer):Integer; stdcall;
function SsmGetFskPara(pnFreqBit0:PInteger; pnFreqBit1:PInteger; pnBaudrate:PInteger; pnMdlAmp:PInteger):Integer; stdcall;
function SsmTransFskData(pS:PBYTE; nSrcLen:Integer; nSyncLen:Integer; nSyncOffLen:Integer; pD:PBYTE):Integer; stdcall; external 'SHP_A3.dll';
function SsmStartSendFSK(ch:Integer; pBuf:PChar; dwMaxBit:DWORD):Integer; stdcall;
function SsmCheckSendFsk(ch:Integer):Integer; stdcall;
function SsmStopSendFsk(ch:Integer):Integer; stdcall;

function SsmStartRcvFSK(ch:Integer; wTimeOut:WORD; wMaxLen:WORD; ucEndCode:Byte; wEndCodeCount:WORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmStartRcvFSK_II(ch:Integer; wTimeOut:WORD; wMaxLen:WORD; pucMaskCode:PBYTE; ucMaskCodeCount:Byte):Integer; stdcall; external 'SHP_A3.dll';
function SsmClearRcvFSKBuf(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmCheckRcvFSK(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetRcvFSK(ch:Integer; pucBuf:PBYTE):Integer; stdcall; external 'SHP_A3.dll';
function SsmStopRcvFSK(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';

//传真收发函数
function SsmFaxGetChStateMsg(ch:Integer; buf:PChar):Integer; stdcall;
function SsmFaxGetAllBytes(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmFaxGetSpeed(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmFaxGetPages(ch:Integer):Integer; stdcall;
function SsmFaxStartReceive(ch:Integer; filename:PChar):Integer; stdcall;
function SsmFaxStartSend(ch:Integer; filename:PChar):Integer; stdcall;
function SsmFaxSendMultiFile(ch:Integer; szPath:PChar; szFile:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmFaxSendMultiFileEx(ch:Integer; pSCT:PFAX_FILE_SCT; nNum:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmFaxAppendSend(ch:Integer; filename:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmFaxStartSendEx(ch:Integer; filename:PChar; nStartPage:Integer; nEndPage:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmFaxSetHangup(ch:Integer; flag:Boolean):Integer; stdcall; external 'SHP_A3.dll';
function SsmFaxStop(ch:Integer):Integer; stdcall;
procedure SsmFaxSetMaxSpeed(speed:Integer); stdcall;
function SsmFaxCheckEnd(ch:Integer):Integer; stdcall;
function SsmFaxSetID(ch:Integer; myid:PChar):Integer; stdcall;
function SsmFaxGetID(ch:Integer; myid:PChar):Integer; stdcall;
function SsmFaxSetSendMode(ch:Integer; mode:Integer):Integer; stdcall;
function SsmFaxGetRcvBytes(ch:Integer):Integer; stdcall;
function SsmFaxGetSendBytes(ch:Integer):Integer; stdcall;

function SsmEnableCh(ch:Integer):Integer; stdcall;
function SsmDisableCh(ch:Integer):Integer; stdcall;
function SsmResetCh(ch:Integer):Integer; stdcall;
function SsmCheckResetCh(ch:Integer):Integer; stdcall;
function SsmGetLSR(ch:Integer; retu:PBYTE):Integer; stdcall;
function SsmGetMSR(ch:Integer; retu:PBYTE):Integer; stdcall;
function SsmGetRTS(ch:Integer):Integer; stdcall;
function SsmGetCTS(ch:Integer):Integer; stdcall;
function SsmGetOH(ch:Integer):Integer; stdcall;
function SsmDetectCarry(ch:Integer):Integer; stdcall;

function SsmReadRxBuf(ch:Integer; nLen:Integer; lpcRxBuf:PChar):Integer; stdcall;
function SsmGetRxBufLen(ch:Integer):Integer; stdcall;
function SsmWriteTxBuf(ch:Integer; nLen:Integer; lpcTxBuf:PChar):Integer; stdcall;
function SsmWriteTxBuf_C(ch:Integer; buf:Char):Integer; stdcall;
function SsmWriteTxBuf_S(ch:Integer; s:PChar):Integer; stdcall;
function SsmGetTxBufLen(ch:Integer):Integer; stdcall;
function SsmGetTxBufRemain(ch:Integer):Integer; stdcall;
procedure SsmClearTxBuf(ch:Integer); stdcall;
procedure SsmClearRxBuf(ch:Integer); stdcall;

//有关语音识别的函数
function SsmStartRecognize(ch:Integer; grammarid:Integer; max_time:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetResultCount(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
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';

//事件驱动及相关函数
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';

//数字电话录音相关函数说明
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';

//无语音资源ss7电路API接口函数说明
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; exter