shpa3api.pas

三汇CTI示例程序源码

function SsmSetDtmfStopPlay(ch:Integer; bDspf:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmSetDTMFStopPlayCharSet(ch:Integer; lpstrDtmfCharSet:PChar):Integer; stdcall; external 'shp_a3.dll';
function SsmGetDTMFStopPlayCharSet(ch:Integer; lpstrDtmfCharSet:PChar):Integer; stdcall; external 'shp_a3.dll';
function SsmSetBargeinStopPlay(ch:Integer; bBispf:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmGetDtmfStopPlayFlag(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetHangupStopPlayFlag(ch:Integer; bHangupStopPlayFlag:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmGetBargeinStopPlayFlag(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetPlayedTime(ch:Integer):LongInt; stdcall; external 'shp_a3.dll';
function SsmGetPlayedTimeEx(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetPlayedPercentage(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmCheckPlay(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmQueryPlayFormat(ch:Integer; nFormat:Integer):Integer; stdcall; external 'shp_a3.dll';

function SsmPlayFile(ch:Integer; pszFileName:PChar; nFormat:Integer; dwStartPos:DWORD; dwLen:DWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmSetPlayDest(ch:Integer; nSelDest:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetRecBack(ch:Integer; nRecBack:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopPlayFile(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopPlay(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmPausePlay(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmRestartPlay(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmFastFwdPlay(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmFastBwdPlay(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetPlayTime(ch:Integer; dwTime:DWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmSetPlayPrct(ch:Integer; dwPercentage:DWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmGetPlayingFileInfo(ch:Integer; pnFormat:PInteger; pnTotalTime:PInteger):Integer; stdcall; external 'shp_a3.dll';

function SsmAddToFileList(ch:Integer; pszFileName:PChar; nFormat:Integer; dwStartPos:DWORD; dwLen:DWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmClearFileList(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmPlayFileList(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopPlayFileList(ch:Integer):Integer; stdcall; external 'shp_a3.dll';

function SsmPlayIndexString(ch:Integer; pszIdxStr:PChar):Integer; stdcall; external 'shp_a3.dll';
function SsmPlayIndexList(ch:Integer; wIdxListLen:WORD; pwIdxList:PWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmStopPlayIndex(ch:Integer):Integer; stdcall; external 'shp_a3.dll';

function SsmAddToPlayMemList(pBuf:PBYTE; dwDataLen:DWORD; nFormat:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmClearPlayMemList():Integer; stdcall; external 'shp_a3.dll';
function SsmPlayMemList(ch:Integer; pMemList:PWORD; wMemListLen:WORD):Integer; stdcall; external 'shp_a3.dll';
function SsmStopPlayMemList(ch:Integer):Integer; stdcall; external 'shp_a3.dll';

function SsmPlayMem(ch:Integer; nFormat:Integer; pBuf:PBYTE; dwBufSize:DWORD; dwStartOffset:DWORD; dwStopOffset:DWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmStopPlayMem(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetPlayOffset(ch:Integer; pdwPlayOffset:PDWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmSetStopPlayOffset(ch:Integer; dwStopPlayOffset:DWORD):Integer; stdcall; external 'shp_a3.dll';

function SsmPlayMemBlock(ch:Integer; nFormat:Integer; pBuf:PBYTE; dwBufSize:DWORD; OnPlayMemBlockDone:PLAYMEMBLOCKHANDLER; pV:Pointer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopPlayMemBlock(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetDataBytesPlayed(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetDataBytesToPlay(ch:Integer):LongInt; stdcall; external 'shp_a3.dll';
function SsmGetPlayType(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetPlayGain(ch:Integer; wGainLevel:WORD):Integer; stdcall; external 'shp_a3.dll';

//有关录音的相关函数
function SsmSetRecAGC(ch:Integer; bEnable:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmSetNoModuleChBusRec(ch:Integer; nBusRec:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetRecVolume(ch:Integer; nVolume:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmQueryOpRecMixer(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetRecMixer(ch:Integer; bEnRecMixer:Boolean; nMixerVolume:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetTruncateTail(ch:Integer; dwTime:DWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmSetDTMFStopRecCharSet(ch:Integer; lpstrDtmfCharSet:PChar):Integer; stdcall; external 'shp_a3.dll';
function SsmGetDTMFStopRecCharSet(ch:Integer; lpstrDtmfCharSet:PChar):Integer; stdcall; external 'shp_a3.dll';
function SsmSetHangupStopRecFlag(ch:Integer; bHangupStopRecFlag:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmCheckRecord(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetTruncateTailTime(ch:Integer):LongInt; stdcall; external 'shp_a3.dll';
function SsmGetRecMixerState(ch:Integer; pnEnRecMixer:PInteger; pnMixerVolume:PInteger):Integer; stdcall; external 'shp_a3.dll';
function SsmGetRecAGCSwitch(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetRecType(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetRecTime(ch:Integer):LongInt; stdcall; external 'shp_a3.dll';
function SsmQueryRecFormat(ch:Integer; nFormat:Integer):Integer; stdcall; external 'shp_a3.dll';

function SsmRecToFile(ch:Integer; pszFileName:PChar; nFormat:Integer; dwStartPos:DWORD; dwBytes:DWORD; dwTime:DWORD; nMask:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopRecToFile(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmPauseRecToFile(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmRestartRecToFile(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmChkRecToFile(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetDataBytesToRecord(ch:Integer):LongInt; stdcall; external 'shp_a3.dll';
function SsmRecToFileA(ch:Integer; pszFileName:PChar; nFormat:Integer; dwStartPos:DWORD; dwBytes:DWORD; dwTime:DWORD; nMask:Integer; pfnRecToMem:LPRECTOMEM):Integer; stdcall; external 'shp_a3.dll';
function SsmRecToFileEx(ch:Integer; pszFileName:PChar; nFormat:Integer; dwStartPos:DWORD; dwBytes:DWORD; dwTime:DWORD; nMask:Integer; bSaveToFileOnBargin:Boolean; dwRollbackTime:DWORD):Integer; stdcall; external 'shp_a3.dll';

function SsmRecToMem(ch:Integer; nFormat:Integer; pBuf:PBYTE; dwBufSize:DWORD; dwStartOffset:DWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmStopRecToMem(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetRecOffset(ch:Integer):LongInt; stdcall; external 'shp_a3.dll';

function SsmRecordMemBlock(ch:Integer; nFormat:Integer; pBuf:PChar; dwBufSize:DWORD; OnRecMemBlockDone:RECORDMEMBLOCKHANDLER; pV:Pointer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopRecordMemBlock(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmRecToFileB(ch:Integer; pszFileName:PChar; nFormat:Integer; dwStartPos:DWORD; dwBytes:DWORD; dwTime:DWORD; nMask:Integer; pfnRecToMem:LPRECTOMEMB; pV:Pointer):Integer; stdcall; external 'shp_a3.dll';

//有关交换总线操作的函数
function SsmTalkWith(ch1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmTalkWithEx(ch1:Integer; nVlm1:Integer; ch2:Integer; nVlm2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopTalkWith(ch1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
//?function SsmGetChBusInfo(ch:Integer; p:PBUS_OP):Integer; stdcall; external 'shp_a3.dll';
function SsmListenTo(ch1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmListenToEx(ch1:Integer; nVolume1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopListenTo(ch1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmLinkFrom(ch1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmLinkFromEx(ch1:Integer; nVolume1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmStopLinkFrom(ch1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmLinkFromAllCh(ch:Integer; nVolume:Integer; pnListenerTable:PInteger; nListenerNum:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmUnLinkFromAllCh(ch:Integer; pnListenerTable:PInteger; nListenerNum:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmLinkToBus(ch:Integer; ts:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmUnLinkToBus(ch:Integer; ts:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmLinkFromBus(ts:Integer; ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmLinkFromBusEx(ts:Integer; ch:Integer; nVol:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmUnLinkFromBus(ts:Integer; ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmListenToPlay(ch1:Integer; nVlm:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmUnListenToPlay(ch1:Integer; ch2:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmClearChBusLink(nCh:Integer):Integer; stdcall; external 'shp_a3.dll';

//有关回波消除的函数
function SsmQueryOpEchoCanceller(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetEchoCanceller(ch:Integer; bRun:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmGetEchoCancellerState(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetEchoCancellerStudy(ch:Integer; bRun:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmGetEchoCancellerStudyState(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSaveEchoCancellerPara(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetEchoCancellerRatio(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetEchoCancelDelaySize(ch:Integer; wSize:WORD):Integer; stdcall; external 'shp_a3.dll';
function SsmGetEchoCancelDelaySize(ch:Integer):Integer; stdcall; external 'shp_a3.dll';

//电话会议函数
function SsmCreateConfGroup(nMaxMember:Integer; nMaxSpeaker:Integer; nMaxSpeaking:Integer; nMaxSilenceTime:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmFreeConfGroup(nGrpId:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmJoinConfGroup(nGrpId:Integer; ch:Integer; wJoinMode:WORD; nMixerVolume:Integer; bCreateAlways:Boolean; bExitGrpAlways:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmExitConfGroup(ch:Integer; bFreeGrpAlways:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmGetConfCfgInfo(pwMaxMember:PWORD; pwMaxSpeaker:PWORD; pwMaxSpeaking:PWORD; pwMaxSilenceTime:PWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmGetConfGrpCfgInfo(nGrpId:Integer; pwMaxMember:PWORD; pwMaxSpeaker:PWORD; pwMaxSpeaking:PWORD; pwMaxSilenceTime:PWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmGetConfGrpInfo(nGrpId:Integer; pwTotalMember:PWORD; pwTotalSpeaker:PWORD; pwTotalSpeaking:PWORD):Integer; stdcall; external 'shp_a3.dll';
function SsmGetConfGrpId(pnGrpId:PInteger):Integer; stdcall; external 'shp_a3.dll';
function SsmValidateGrpId(nGrpId:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetTotalConfGroup():Integer; stdcall; external 'shp_a3.dll';
function SsmGetConfGrpMmbrId(nGrpId:Integer; pnMmbrId:PInteger):Integer; stdcall; external 'shp_a3.dll';
function SsmGetConfGrpMmbrInfo(nGrpId:Integer; nMmbrId:Integer; pnAppCh:PInteger; pwJoinMode:PWORD; pwIsSpeaking:PWORD; pdwSilenceTime:PDWORD):Integer; stdcall; external 'shp_a3.dll';
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; external 'shp_a3.dll';
function SsmSetDtrmLineVoltage(ch:Integer; wDtrmValtage:WORD):Integer; stdcall; external 'shp_a3.dll';
function SsmGetDtrmLineVoltage(ch:Integer):Integer; stdcall; external 'shp_a3.dll';

function SsmQueryOpMicGain(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetMicGain(ch:Integer; nGain:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetMicGain(ch:Integer):Integer; stdcall; external 'shp_a3.dll';

function SsmSetPrerecord(ch:Integer; bEnable:Boolean; nMode:Integer; wInsertTime:WORD; nFormat:Integer):Integer;stdcall; external 'shp_a3.dll';
function SsmGetPrerecordState(ch:Integer; pnMode:PInteger; pwInsertTime:PWORD; pnFormat:PInteger):Integer;stdcall; external 'shp_a3.dll';
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; external 'shp_a3.dll';
procedure StopListen(dwBId:DWORD); stdcall; external 'shp_a3.dll';
procedure PlayListenNew(dwSpeakerCh:DWORD; dwMonitorCh:DWORD); stdcall; external 'shp_a3.dll';
procedure StopListenNew(dwSpeakerCh:DWORD); stdcall; external 'shp_a3.dll';

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

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

//有关极性反转侦测的函数
function SsmQueryOpPolarRvrs(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetPolarRvrsCount(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
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; external 'shp_a3.dll';
function SsmSendCAS(ch:Integer; btCas:BYTE):Integer; stdcall; external 'shp_a3.dll';
function SsmGetSendingCAS(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetCAS(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSetRxR2Mode(ch:Integer; nMode:Integer; bEnable:Boolean):Integer; stdcall; external 'shp_a3.dll';
function SsmGetR2(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmSendR2(ch:Integer; nMode:Integer; btR2:BYTE):Integer; stdcall; external 'shp_a3.dll';
function SsmStopSendR2(ch:Integer):Integer; stdcall; external 'shp_a3.dll';
function SsmGetSendingR2(ch:Integer; pnMode:PInteger; pbtR2:PBYTE):Integer; stdcall; external 'shp_a3.dll';

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