shpa3api.pas

三汇CTI示例程序源码

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 SsmAddToPlayMemList(pBuf:PBYTE; dwDataLen:DWORD; nFormat:Integer):Integer; stdcall;
function SsmClearPlayMemList():Integer; stdcall;
function SsmPlayMemList(ch:Integer; pMemList:PWORD; wMemListLen:WORD):Integer; stdcall;
function SsmStopPlayMemList(ch:Integer):Integer; stdcall;

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

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;
function SsmGetPlayType(ch:Integer):Integer; stdcall;
function SsmSetPlayGain(ch:Integer; wGainLevel:WORD):Integer; stdcall; external 'SHP_A3.dll';

//record
function SsmSetRecAGC(ch:Integer; bEnable:Boolean):Integer; stdcall;
function SsmSetNoModuleChBusRec(ch:Integer; nBusRec:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetRecVolume(ch:Integer; nVolume:Integer):Integer; stdcall;
function SsmQueryOpRecMixer(ch:Integer):Integer; stdcall;
function SsmSetRecMixer(ch:Integer; bEnRecMixer:Boolean; nMixerVolume:Integer):Integer; stdcall;
function SsmSetTruncateTail(ch:Integer; dwTime:DWORD):Integer; stdcall;
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;
function SsmGetRecMixerState(ch:Integer; pnEnRecMixer:PInteger; pnMixerVolume:PInteger):Integer; stdcall;
function SsmGetRecAGCSwitch(ch:Integer):Integer; stdcall;
function SsmGetRecType(ch:Integer):Integer; stdcall;
function SsmGetRecTime(ch:Integer):LongInt; stdcall;
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;
function SsmStopRecToFile(ch:Integer):Integer; stdcall;
function SsmPauseRecToFile(ch:Integer):Integer; stdcall;
function SsmRestartRecToFile(ch:Integer):Integer; stdcall;
function SsmChkRecToFile(ch:Integer):Integer; stdcall;
function SsmGetDataBytesToRecord(ch:Integer):LongInt; stdcall;
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;
function SsmStopRecToMem(ch:Integer):Integer; stdcall;
function SsmGetRecOffset(ch:Integer):LongInt; stdcall;

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 SsmTalkWith(ch1:Integer; ch2:Integer):Integer; stdcall;
function SsmTalkWithEx(ch1:Integer; nVlm1:Integer; ch2:Integer; nVlm2:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmStopTalkWith(ch1:Integer; ch2:Integer):Integer; stdcall;
//?function SsmGetChBusInfo(ch:Integer; p:PBUS_OP):Integer; stdcall; external 'SHP_A3.dll';
function SsmListenTo(ch1:Integer; ch2:Integer):Integer; stdcall;
function SsmListenToEx(ch1:Integer; nVolume1:Integer; ch2:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmStopListenTo(ch1:Integer; ch2:Integer):Integer; stdcall;
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';

//echo cancel
function SsmQueryOpEchoCanceller(ch:Integer):Integer; stdcall;
function SsmSetEchoCanceller(ch:Integer; bRun:Boolean):Integer; stdcall;
function SsmGetEchoCancellerState(ch:Integer):Integer; stdcall;
function SsmSetEchoCancellerStudy(ch:Integer; bRun:Boolean):Integer; stdcall;
function SsmGetEchoCancellerStudyState(ch:Integer):Integer; stdcall;
function SsmSaveEchoCancellerPara(ch:Integer):Integer; stdcall;
function SsmGetEchoCancellerRatio(ch:Integer):Integer; stdcall;
function SsmSetEchoCancelDelaySize(ch:Integer; wSize:WORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetEchoCancelDelaySize(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';

//telephone conference
function SsmCreateConfGroup(nMaxMember:Integer; nMaxSpeaker:Integer; nMaxSpeaking:Integer; nMaxSilenceTime:Integer):Integer; stdcall;
function SsmFreeConfGroup(nGrpId:Integer):Integer; stdcall;
function SsmJoinConfGroup(nGrpId:Integer; ch:Integer; wJoinMode:WORD; nMixerVolume:Integer; bCreateAlways:Boolean; bExitGrpAlways:Boolean):Integer; stdcall;
function SsmExitConfGroup(ch:Integer; bFreeGrpAlways:Boolean):Integer; stdcall;
function SsmGetConfCfgInfo(pwMaxMember:PWORD; pwMaxSpeaker:PWORD; pwMaxSpeaking:PWORD; pwMaxSilenceTime:PWORD):Integer; stdcall;
function SsmGetConfGrpCfgInfo(nGrpId:Integer; pwMaxMember:PWORD; pwMaxSpeaker:PWORD; pwMaxSpeaking:PWORD; pwMaxSilenceTime:PWORD):Integer; stdcall;
function SsmGetConfGrpInfo(nGrpId:Integer; pwTotalMember:PWORD; pwTotalSpeaker:PWORD; pwTotalSpeaking:PWORD):Integer; stdcall;
function SsmGetConfGrpId(pnGrpId:PInteger):Integer; stdcall;
function SsmValidateGrpId(nGrpId:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetTotalConfGroup():Integer; stdcall;
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';

//recorder channel operation
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';

//
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; 
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';

//POLAR REVERSE OPERATION
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';

//ss1
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;


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';

//NO.7
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';

//fax
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;

//ViaVoice recognize
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';