shpa3api.pas

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

type
  //
  PFAX_FILE_SCT = ^FAX_FILE_SCT;
  FAX_FILE_SCT = record
    szFileName: PChar;
    nStartPage: Integer;
    nEndPage: Integer;
    nReserve1: Integer;
    nReserve2: Integer;
  end;

  PEVENT_SET_INFO = ^EVENT_SET_INFO;
  EVENT_SET_INFO = record
    dwWorkMode: DWORD;
    lpHandlerParam: Pointer;
    dwOutCondition: DWORD;
    dwOutParamVal: DWORD;
    dwUser: DWORD;
  end;

  PMESSAGE_INFO = ^MESSAGE_INFO;
  MESSAGE_INFO = record
    wEventCode: WORD;
    nReference: Integer;
    dwParam:DWORD;
  end;

  RXDTMFHANDLER = procedure(ch:Integer; cDtmf:Char; nDTStatus:Integer; pV:Pointer); stdcall;
  PLAYMEMBLOCKHANDLER = function(ch:Integer; nEndReason:Integer; pucBuf:PByte; dwStopOffSet:DWORD; pV:Pointer):Boolean; stdcall;
  LPRECTOMEM = procedure(ch:Integer; lpData:PByte; dwDataLen:DWORD); stdcall;
  RECORDMEMBLOCKHANDLER = function(ch:Integer; nEndReason:Integer; pucBuf:PByte; dwStopOffSet:DWORD; pV:Pointer):Boolean; stdcall;
  //LPFNEVENTCALLBACK = function(wEvent:WORD; nReference:Integer; dwParam:DWORD; dwUser:DWORD):Integer; stdcall;

//系统初始化的函数
function SsmStartCti(lpSsmCfgFileName:PChar; lpIndexCfgFileName:PChar):Integer; stdcall;
function SsmCloseCti():Integer; stdcall;

function SsmGetLastErrCode():Integer; stdcall;
procedure SsmGetLastErrMsg(szErrMsgBuf:PChar); stdcall;
function SsmGetLastErrMsgA():PChar; stdcall; external 'SHP_A3.dll';
function SsmGetAccreditId(nBId:Integer):Integer; stdcall;
function SsmGetAccreditIdEx(nBId:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetBoardModel(nBId:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetMaxCfgBoard():Integer; stdcall;
function SsmGetMaxUsableBoard():Integer; stdcall;
function SsmGetMaxCh():Integer; stdcall;
function SsmGetChType(ch:Integer):Integer; stdcall;
function SsmGetPciSerialNo(nBId:Integer):DWORD; stdcall; external 'SHP_A3.dll';
function SsmGetChHdInfo(ch:Integer; pnBId:PInteger; pnBCh:PInteger):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetAppChId(ch:PInteger; nBId:Integer; nBCh:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetFlag(ch:Integer; nType:Integer; lValue:LongInt):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetFlag(ch:Integer; nType:Integer; plValue:PInteger):Integer; stdcall; external 'SHP_A3.dll';

function SsmSetMaxIdxSeg(wMaxIdxSeg:WORD):Integer; stdcall;
function SsmGetTotalIndexSeg():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 SsmQueryOpRingDetect(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
//新旧函数对照
//SsmGetPickup
function GetPickUp(ch:DWORD):DWORD; stdcall;
//SsmSetCalleeHookDetectP
procedure SetPickSens(point:DWORD); stdcall;
//SsmGetCallerId
function GetCallerId(ch:DWORD; buf:PChar):DWORD; stdcall;
function SsmGetCallerIdA(ch:Integer):PChar; stdcall; external 'SHP_A3.dll';
//SsmGetRingFlag
function GetRing(ch:DWORD):DWORD; stdcall;
//SsmGetRingCount
function DetectRing(ch:DWORD):DWORD; stdcall;
//SsmClearRingCount
procedure ClearRing(ch:DWORD); stdcall;

function SsmPickup(ch:Integer):Integer; stdcall;
function SsmCheckActualPickup(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmHangup(ch:Integer):Integer; stdcall;
function SsmSearchIdleCallOutCh(wSearchMode:WORD; dwPrecedence:DWORD):Integer; stdcall;
function SsmSetAutoCallDirection(ch:Integer; bEnAutoCall:Boolean; nDirection:Integer):Integer; stdcall;
function SsmGetAutoCallDirection(ch:Integer; pnDirection:PInteger):Integer; stdcall;
function SsmAutoDial(ch:Integer; szPhoNum:PChar):Integer; stdcall;
function SsmChkAutoDial(ch:Integer):Integer; stdcall;
function SsmGetAutoDialFailureReason(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmAppendPhoNum(ch:Integer; szPhoNum:PChar):Integer; stdcall;
function SsmGetChState(ch:Integer):Integer; stdcall;
function SsmGetChStateKeepTime(ch:Integer):LongInt; stdcall;
function SsmGetPendingReason(ch:Integer):Integer; stdcall;
function SsmGetRingFlag(ch:Integer):Integer; stdcall;
function SsmGetRingCount(ch:Integer):Integer; stdcall;
function SsmClearRingCount(ch:Integer):Integer; stdcall;
function SsmChkOpCallerId(ch:Integer):Integer; stdcall;
function SsmGetCallerId(ch:Integer; szCallerId:PChar):Integer; stdcall;
function SsmClearCallerId(ch:Integer):Integer; stdcall;
function SsmGetCallerIdEx(ch:Integer; szCallerIdEx:PChar):Integer; stdcall;
function SsmClearCallerIdEx(ch:Integer):Integer; stdcall;
function SsmGetPhoNumStr(ch:Integer; pszPhoNum:PChar):Integer; stdcall;
function SsmGetPhoNumStrA(ch:Integer):PChar; stdcall; external 'SHP_A3.dll';
function SsmGetPhoNumLen(ch:Integer):Integer; stdcall;
function SsmGet1stPhoNumStr(ch:Integer; pszPhoNum:PChar):Integer; stdcall; external 'SHP_A3.dll';
function SsmGet1stPhoNumStrA(ch:Integer):PChar; stdcall; external 'SHP_A3.dll';
function SsmGet1stPhoNumLen(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetTxCallerId(ch:Integer; pszTxCallerId:PChar):Integer; stdcall;
function SsmGetTxCallerId(ch:Integer; pszTxCallerId:PChar):Integer; stdcall;
function SsmEnableAutoSendKB(ch:Integer; bEnable:Boolean):Integer; stdcall;
function SsmGetAutoSendKBFlag(ch:Integer):Integer; stdcall;
function SsmSetKB(ch:Integer; btSigKB:BYTE):Integer; stdcall;
function SsmGetKB(ch:Integer):Integer; stdcall;
function SsmSetKD(ch:Integer; btSigKD:BYTE):Integer; stdcall;
function SsmGetKD(ch:Integer):Integer; stdcall;
function SsmSetKA(ch:Integer; btSigKA:BYTE):Integer; stdcall;
function SsmGetKA(ch:Integer):Integer; stdcall;
function SsmSetWaitAutoDialAnswerTime(wSeconds:WORD):Boolean; stdcall; external 'SHP_A3.dll';
function SsmGetWaitAutoDialAnswerTime(pwSeconds:PWORD):Boolean; stdcall; external 'SHP_A3.dll';
function SsmSetUnimoduleState(ch:Integer; nLinkState:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetCalleeHookDetectP(ch:Integer; wNulti:WORD; wValidTime:WORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetCalleeHookDetectP(ch:Integer; pwMulti:PWORD; pwValidTime:PWORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmStartPickupAnalyze(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetPickup(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetChState(ch:Integer; nState:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmAutoDialEx(ch:Integer; szPhoNum:PChar; wParam:WORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetReleaseReason(ch:Integer):WORD; stdcall; external 'SHP_A3.dll';
function SsmIsHaveCpg(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetCpg(ch:Integer; szmsg:PChar; msglen:PInteger):Integer; stdcall; external 'SHP_A3.dll';
function SsmSetCalleeHoldFlag(ch:Integer; bFlag:Boolean):Integer; stdcall; external 'SHP_A3.dll';

//通道闭塞函数
function SsmBlockLocalCh(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmUnblockLocalCh(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmQueryLocalChBlockState(ch:Integer; pdwBlockState:PDWORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmBlockLocalPCM(nLocalPcmNo:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmUnblockLocalPCM(nLocalPcmNo:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmQueryLocalPCMBlockState(nLocalPcmNo:Integer; pdwBlockState:PDWORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmQueryOpBlockRemoteCh(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmBlockRemoteCh(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmUnblockRemoteCh(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetRemoteChBlockStatus(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmBlockRemotePCM(nLocalPcmNo:Integer; dwBlockMode:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmUnblockRemotePCM(nLocalPcmNo:Integer; dwUnblockMode:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetRemotePCMBlockStatus(nLocalPcmNo:Integer; dwBlockMode:DWORD):Integer; stdcall; external 'SHP_A3.dll';

//内线/坐席通道操作的函数
function SsmStartRing(ch:Integer):Integer; stdcall;
function SsmStopRing(ch:Integer):Integer; stdcall;
function SsmSetASDT(ch:Integer; bEnAutoSendDialTone:Boolean):Integer; stdcall;
function SsmGetASDT(ch:Integer):Integer; stdcall;
function SsmSetLocalFlashTime(nFlashTime:Integer):Integer; stdcall;
function SsmGetFlashCount(ch:Integer):Integer; stdcall;
function SsmClearFlashCount(ch:Integer):Integer; stdcall;
function SsmGetHookState(ch:Integer):Integer; stdcall;
function SsmStartRingWithFskCID(ch:Integer; pBuf:PChar; dwMaxBit:DWORD; dw1stRingOffDelay:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmStartRingWithCIDStr(ch:Integer; pBuf:PChar; dwLen:DWORD; dw1stRingOffDelay:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmCheckSendRing(ch:Integer; pnCnt:PInteger):Integer; stdcall; external 'SHP_A3.dll';

//发送信号音的函数
function SsmSetTxTonePara(ch:Integer; nFreq1:Integer; nVolume1:Integer; nFreq2:Integer; nVolume2:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGetTxTonePara(ch:Integer; nFreq1:PInteger; nVolume1:PInteger; nFreq2:PInteger; nVolume2:PInteger):Integer; stdcall; external 'SHP_A3.dll';
function SsmQueryOpSendTone(ch:Integer):Integer; stdcall;
function SsmSendTone(ch:Integer; nToneType:Integer):Integer; stdcall;
function SsmSendToneEx(ch:Integer; dwOnTime:DWORD; dwOffTime:DWORD):Integer; stdcall; external 'SHP_A3.dll';
function SsmStopSendTone(ch:Integer):Integer; stdcall;
function SsmChkSendTone(ch:Integer; pnToneType:PInteger):Integer; stdcall; external 'SHP_A3.dll';

//信号音分析操作的函数
function SsmQueryOpToneAnalyze(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmStart2ndToneAnalyzer(ch:Integer; bEn:Boolean):Integer; stdcall;
function SsmGet2ndToneAnalyzerState(ch:Integer):Integer; stdcall;
function SsmStartToneAnalyze(ch:Integer):Integer; stdcall;
function SsmCloseToneAnalyze(ch:Integer):Integer; stdcall;
function SsmGetToneAnalyzeResult(ch:Integer):Integer; stdcall;
function SsmGetBusyToneEx(ch:Integer):Integer; stdcall; external 'SHP_A3.dll';
function SsmGet2ndToneAnalyzeResult(ch:Integer):Integer; stdcall;
function SsmClearToneAnalyzeResult(ch:Integer):Integer; stdcall;
function SsmClear2ndToneAnalyzeResult(ch:Integer):Integer; stdcall;
function SsmGetBusyToneLen(ch:Integer):Integer; stdcall;
function SsmGetBusyToneCount(ch:Integer):Integer; stdcall;
function SsmGet2ndBusyToneLen(ch:Integer):Integer; stdcall;
function SsmGet2ndBusyToneCount(ch:Integer):Integer; stdcall;
function SsmGetRingEchoToneTime(ch:Integer):Integer; stdcall;
function SsmGetVocFxFlag(ch:Integer; nSelFx:Integer; bClear:Boolean):Integer; stdcall;
function SsmSetTonePara(ch:Integer; wToneFreq1:WORD; wToneBW1:WORD; wToneFreq2:WORD; wToneBW2:WORD; dwIsToneRatio:DWORD):Integer; stdcall;
function SsmGetTonePara(ch:Integer; pwToneFreq1:PWORD; pwToneBW1:PWORD; pwToneFreq2:PWORD; pwToneBW2:PWORD; pdwIsToneRatio:PDWORD):Integer; stdcall;
function SsmSet2ndTonePara(ch:Integer; wToneFreq1:WORD; wToneBW1:WORD; wToneFreq2:WORD; wToneBW2:WORD; dwIsToneRatio:DWORD):Integer; stdcall;
function SsmGet2ndTonePara(ch:Integer; pwToneFreq1:PWORD; pwToneBW1:PWORD; pwToneFreq2:PWORD; pwToneBW2:PWORD; pdwIsToneRatio:PDWORD):Integer; stdcall;
function SsmSetIsDialToneDtrTime(ch:Integer; wIsDialToneDtrTime:WORD):Integer; stdcall;
function SsmGetIsDialToneDtrTime(ch:Integer; pwIsDialToneDtrTime:PWORD):Integer; stdcall;
function SsmSet2ndIsDialToneDtrTime(ch:Integer; wIsDialToneDtrTime:WORD):Integer; stdcall;
function SsmGet2ndIsDialToneDtrTime(ch:Integer; pwIsDialToneDtrTime:PWORD):Integer; stdcall;
function SsmSetBusyTonePeriod(ch:Integer; wBusyTonePeriod:WORD):Integer; stdcall;
function SsmGetBusyTonePeriod(ch:Integer; pwBusyTonePeriod:PWORD):Integer; stdcall;
function SsmSet2ndBusyTonePeriod(ch:Integer; wBusyTonePeriod:WORD):Integer; stdcall;
function SsmGet2ndBusyTonePeriod(ch:Integer; pwBusyTonePeriod:PWORD):Integer; stdcall;
function SsmSetIsBusyToneDtrCnt(ch:Integer; wIsBusyToneDtrCnt:WORD):Integer; stdcall;
function SsmGetIsBusyToneDtrCnt(ch:Integer; pwIsBusyToneDtrCnt:PWORD):Integer; stdcall;