shpa3api.pas

用Delphi写的呼叫中心

function SsmGetVocFxFlag(ch:Integer;  nSelFx:Integer;  bClear:Boolean):Integer; stdcall;
function SsmGetToneAnalyzeResult(ch:Integer):Integer; stdcall;
function SsmGetBusyToneLen(ch:Integer):Integer; stdcall;
function SsmGetBusyToneCount(ch:Integer):Integer; stdcall;
function SsmGetRingEchoToneTime(ch:Integer):Integer; stdcall;

function SsmSetTonePara(ch:Integer;  wToneFreq1:WORD; wToneBW1:WORD; wToneFreq2:WORD; wToneBW2:WORD; dwIsToneRatio:DWORD):Integer; stdcall;
function SsmSetIsDialToneDtrTime(ch:Integer;  wIsDialToneDtrTime:WORD):Integer; stdcall;
function SsmSetBusyTonePeriod(ch:Integer;  wBusyTonePeriod:WORD):Integer; stdcall;
function SsmSetIsBusyToneDtrCnt(ch:Integer;  wIsBusyToneDtrCnt:WORD):Integer; stdcall;
function SsmSetRingEchoTonePara(ch:Integer;  wRingEchoOnTime:WORD; wRingEchoOffTime:WORD):Integer; stdcall;
function SsmSetVoiceFxPara(ch:Integer;  wSelFx:WORD;  wFx:WORD; wFxBW:WORD;  dwIsVocFxRatio:DWORD;  wIsVocFxDtrTime:WORD):Integer; stdcall;
function SsmSetVoiceOnDetermineTime(ch:Integer;  wIsVocDtrTime:WORD):Integer; stdcall;
function SsmSetMinVocDtrEnergy(ch:Integer;  dwMinVocDtrEnergy:DWORD):Integer; stdcall;

function SsmGetTonePara(ch:Integer;  pwToneFreq1:PWORD;  pwToneBW1:PWORD; pwToneFreq2:PWORD; pwToneBW2:PWORD; pdwIsToneRatio:PDWORD):Integer; stdcall;
function SsmGetIsDialToneDtrTime(ch:Integer;  pwIsDialToneDtrTime:PWORD):Integer; stdcall;
function SsmGetBusyTonePeriod(ch:Integer;  pwBusyTonePeriod:PWORD):Integer; stdcall;
function SsmGetIsBusyToneDtrCnt(ch:Integer;  pwIsBusyToneDtrCnt:PWORD):Integer; stdcall;
function SsmGetRingEchoTonePara(ch:Integer;  pwRingEchoOnTime:PWORD;  pwRingEchoOffTime:PWORD):Integer; stdcall;
function SsmGetIsNoVocDtrmTime(ch:Integer;  pwIsNoVocDtrmTime:PWORD):Integer; stdcall;
function SsmGetVoiceFxPara(ch:Integer;  wSelFx:WORD;  pwFx:PWORD; pwFxBW:PWORD;  pdwIsVocFxRatio:PDWORD;  pwIsVocFxDtrTime:PWORD):Integer; stdcall;
function SsmGetVoiceOnDetermineTime(ch:Integer;  pwIsVocDtrTime:PWORD):Integer; stdcall;
function SsmGetMinVocDtrEnergy(ch:Integer;  pdwMinVocDtrEnergy:PDWORD):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 SsmStart2ndToneAnalyzer(ch:Integer;  bEn:Boolean):Integer;stdcall;
function SsmGet2ndToneAnalyzerState(ch:Integer):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 SsmGet2ndToneAnalyzeResult(ch:Integer):Integer;stdcall;
function SsmClear2ndToneAnalyzeResult(ch:Integer):Integer;stdcall;
function SsmGet2ndBusyToneLen(ch:Integer):Integer;stdcall;
function SsmGet2ndBusyToneCount(ch:Integer):Integer;stdcall;
function SsmSet2ndBusyTonePeriod(ch:Integer;  wBusyTonePeriod:WORD):Integer;stdcall;
function SsmGet2ndBusyTonePeriod(ch:Integer;  pwBusyTonePeriod:PWORD):Integer;stdcall;
function SsmSet2ndIsBusyToneDtrCnt(ch:Integer;  wIsBusyToneDtrCnt:WORD):Integer;stdcall;
function SsmGet2ndIsBusyToneDtrCnt(ch:Integer;  pwIsBusyToneDtrCnt:PWORD):Integer;stdcall;
function SsmSet2ndIsDialToneDtrTime(ch:Integer;  wIsDialToneDtrTime:WORD):Integer;stdcall;
function SsmGet2ndIsDialToneDtrTime(ch:Integer;  pwIsDialToneDtrTime:PWORD):Integer;stdcall;
function SsmSet2ndRingEchoTonePara(ch:Integer;  wRingEchoOnTime:WORD; wRingEchoOffTime:WORD):Integer;stdcall;
function SsmGet2ndRingEchoTonePara(ch:Integer;  pwRingEchoOnTime:PWORD;  pwRingEchoOffTime:PWORD):Integer;stdcall;

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@ BARGEIN OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmSetNoSoundDtrmTime(ch:Integer;  dwIsNoSoundDtrTime:DWORD):Integer; stdcall;
function SsmSetIsBargeInDtrmTime(ch:Integer;  wIsBargeInDtrmTime:WORD):Integer; stdcall;
function SsmSetBargeInSens(ch:Integer;  nBargeInSens:Integer):Integer; stdcall;

function SsmGetNoSoundTime(ch:Integer):LongInt; stdcall;
function SsmGetNoSoundDtrmTime(ch:Integer):LongInt; stdcall;

function SsmGetIsBargeInDtrmTime(ch:Integer):Integer; stdcall;
function SsmGetBargeInSens(ch:Integer):Integer; stdcall;
function SsmDetectBargeIn(ch:Integer):Integer; stdcall;
function SsmDetectNoSound(ch:Integer):Integer; stdcall;


//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@ RING DETECT OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
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 SsmGetCallerIdEx(ch:Integer;  szCallerIdEx:PChar):Integer; stdcall;
function SsmClearCallerId(ch:Integer):Integer; stdcall;
function SsmClearCallerIdEx(ch:Integer):Integer; stdcall;


//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@ CALL OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmPickup(ch:Integer):Integer; stdcall;
function SsmHangup(ch:Integer):Integer; stdcall;
function SsmAutoDial(ch:Integer;  szPhoNum:PChar):Integer; stdcall;
function SsmChkAutoDial(ch:Integer):Integer; stdcall;
function SsmGetChState(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 SsmAppendPhoNum(ch:Integer;  szPhoNum:PChar):Integer; stdcall;
function SsmGetPendingReason(ch:Integer):Integer; stdcall;
function SsmGetChStateKeepTime(ch:Integer):LongInt;stdcall;
function SsmGetPhoNumStr(ch:Integer;  pszPhoNum:PChar):Integer; stdcall;
function SsmGetPhoNumLen(ch:Integer):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 SsmSetKD(ch:Integer; btSigKD:BYTE):Integer; stdcall;
function SsmSetKA(ch:Integer; btSigKA:BYTE):Integer; stdcall;
function SsmSetTxCallerId(ch:Integer;  pszTxCallerId:PChar):Integer; stdcall;
function SsmGetTxCallerId(ch:Integer; pszTxCallerId:PChar):Integer; stdcall;
function SsmGetKA(ch:Integer):Integer; stdcall;
function SsmGetKB(ch:Integer):Integer; stdcall;
function SsmGetKD(ch:Integer):Integer; stdcall;

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@ ADAPTIVE FILTER OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
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 SsmGetEchoCancellerRatio(ch:Integer):Integer; stdcall;
function SsmSaveEchoCancellerPara(ch:Integer):Integer; stdcall;


//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@ ST-BUS OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmGetBusChInfo(nBusCh:Integer;  pnOwner:PInteger;  pnInAppCh:PInteger;  pnTotOut:PInteger):Integer; stdcall;
function SsmApplyBusCh():Integer; stdcall;
function SsmFreeBusCh(nBusCh:Integer):Integer; stdcall;
function SsmLinkToBusCh( nCh:Integer; nBusCh:Integer):Integer; stdcall;
function SsmUnLinkToBusCh( nCh:Integer; nBusCh:Integer):Integer; stdcall;
function SsmLinkFromBusCh(nBusCh:Integer;  nCh:Integer):Integer; stdcall;
function SsmUnLinkFromBusCh(nBusCh:Integer;  nCh:Integer):Integer; stdcall;
function SsmListenTo(ch1:Integer;ch2:Integer):Integer; stdcall;
function SsmStopListenTo(ch1:Integer;ch2:Integer):Integer; stdcall;
function SsmTalkWith(ch1:Integer;ch2:Integer):Integer; stdcall;
function SsmStopTalkWith(ch1:Integer;ch2:Integer):Integer; stdcall;


procedure PlayListen( dwBId:DWORD;  ch:DWORD);stdcall;
procedure PlayListenNew( dwSpeakerCh:DWORD;  dwMonitorCh:DWORD);stdcall;
procedure StopListen( dwBId:DWORD);stdcall;
procedure StopListenNew( dwSpeakerCh:DWORD);stdcall;

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ CONFERENCE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
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 SsmGetTotalConfGroup():Integer; stdcall;
function SsmGetConfGrpId( pnGrpId:PInteger):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 SsmGetConfGrpMmbrId(nGrpId:Integer;  pnMmbrId:PInteger):Integer; stdcall;
function SsmGetConfGrpMmbrInfo(nGrpId:Integer;  nMmbrId:Integer;  pnAppCh:PInteger;  pwJoinMode:PWORD;  pwIsSpeaking:PWORD;  pdwSilenceTime:PDWORD):Integer; stdcall;


//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@ FUNCTIONS COMPATIBLE WITH SHP_8A3 BOARD DRIVER  @@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function InitCard( add1:DWORD; add2:DWORD; add3:DWORD; add4:DWORD ;add5:DWORD;
				  add6:DWORD; add7:DWORD; add8:DWORD; intno:DWORD):DWORD; stdcall;
procedure ShutCard(); stdcall;

function StartRecordFile(ch:DWORD; fliename:PChar):DWORD; stdcall;

procedure StopRecordFile(ch:DWORD); stdcall;

procedure PauseRecord(ch:DWORD); stdcall;

procedure RestartRecord(ch:DWORD); stdcall;
function GetRecordTime(ch:DWORD):DWORD; stdcall;

function StartPlayFile(ch:DWORD; filename:PChar):DWORD; stdcall;
procedure StopPlayFile(ch:DWORD); stdcall;
function CheckPlayingEnd(ch:DWORD):DWORD; stdcall;

procedure PausePlay(ch:DWORD); stdcall;
procedure RestartPlay(ch:DWORD); stdcall;
procedure FastPlay(ch:DWORD); stdcall;
procedure BackPlay(ch:DWORD); stdcall;

function GetPlayTime(ch:DWORD):DWORD; stdcall;
function GetPlayPercent(ch:DWORD):DWORD; stdcall;
procedure SetPlayTime(ch:DWORD;time:DWORD ); stdcall;
procedure SetPlayPercent(ch:DWORD; percent:DWORD); stdcall;

function LoadIndexFile( segno:DWORD; filename:PChar; startadr:DWORD; length:DWORD):DWORD; stdcall;

procedure FreeIndexMem( segno:DWORD); stdcall;
procedure PlayIndex(ch:DWORD; segstring:PChar); stdcall;
procedure StopIndex(ch:DWORD); stdcall;
procedure DTMFStop(ch:DWORD; if_stop:DWORD); stdcall;

function GetDTMF(ch:DWORD):DWORD; stdcall;
procedure ClearDTMFBuf(ch:DWORD); stdcall;
function DetectRing(ch:DWORD):DWORD; stdcall;
procedure ClearRing(ch:DWORD); stdcall;
procedure HangUp(ch:DWORD); stdcall;
procedure PickUp(ch:DWORD); stdcall;
function DetectInter(ch:DWORD):DWORD; stdcall;
function GetFlash(ch:DWORD):DWORD; stdcall;
procedure SetFlashTime( time:Integer); stdcall;
function ToneCheck(ch:DWORD):DWORD; stdcall;
function GetBusyLen(ch:DWORD):DWORD; stdcall;
procedure DTMFDial(ch:DWORD; dialstring:PChar); stdcall;
function DTMFDialEnd(ch:DWORD):DWORD; stdcall;

procedure Flash(ch:DWORD;time:DWORD); stdcall;

procedure SetPlayVolume(ch:DWORD; volume:LongInt); stdcall;
procedure SetRecVolume(ch:DWORD; volume:LongInt); stdcall;

function GetCallerId(ch:DWORD; buf:PChar):DWORD; stdcall;


procedure SetPickSens( piont:DWORD); stdcall;
function GetPickUp( ch:DWORD):DWORD; stdcall;
function GetNum( ch:DWORD; buf:PChar; time:DWORD; len:DWORD; end_char:Integer):DWORD; stdcall;

procedure SetWorkMode( Mode:Integer); stdcall;

procedure SetUserCard( addr1:DWORD; addr2:DWORD; addr3:DWORD; addr4:DWORD; addr5:DWORD; addr6:DWORD; addr7:DWORD; addr8:DWORD); stdcall;

procedure SendBusyTone(ch:Integer); stdcall;
procedure SendRingEchoTone(ch:Integer); stdcall;
procedure SendDialTone(ch:Integer); stdcall;
procedure StopSendTone(ch:Integer); stdcall;
procedure StartSendRing(ch:Integer); stdcall;
procedure StopSendRing(ch:Integer); stdcall;

function Link2Ch(ch1:Integer;ch2:Integer):Integer; stdcall;
procedure UnLink2Ch(ch1:Integer;ch2:Integer); stdcall;

function Link3Ch(ch1:Integer;ch2:Integer;ch3:Integer):Integer; stdcall;


procedure UnLink3Ch(ch1:Integer;ch2:Integer;ch3:Integer); stdcall;
function ListenFromCh(ch1:Integer;ch2:Integer):Integer; stdcall;

procedure StopListenFromCh(ch1:Integer;ch2:Integer); stdcall;
procedure SetDelay( ch:DWORD; delay:DWORD); stdcall;
procedure SetLevel( ch:DWORD; level:DWORD); stdcall;

function DetectSound(ch:DWORD):DWORD; stdcall;
function GetFax11(ch:DWORD):DWORD; stdcall;
function GetFax21(ch:DWORD):DWORD; stdcall;
function GetRing(ch:DWORD):DWORD; stdcall;

procedure SetDialSpeed ( point:DWORD); stdcall;
procedure GetErrorMsg( buf:PChar); stdcall;

function  SetMaxSeg( inmaxsegment:DWORD):DWORD; stdcall;

function ApplyTimeSlot():Integer; stdcall;

function LinkFromBus(TsHandle:Integer;Ch:Integer):Integer; stdcall;
function StopLinkFromBus(TsHandle:Integer;Ch:Integer):Integer; stdcall;
function LinkToBus(Ch:Integer;TsHandle:Integer):Integer; stdcall;

function StopLinkToBus(Ch:Integer;TsHandle:Integer):Integer; stdcall;

procedure FreeTimeSlot(TsHandle:Integer); stdcall;
procedure PauseCard(); stdcall;
procedure RestartCard(); stdcall;

function SetIRQPriority(nPriorityClass:Integer):Boolean; stdcall;

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RECORD MODULE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function GetLevel(ch:DWORD ):DWORD;stdcall;
procedure SetJudge(ch:DWORD ;  Judge:DWORD);stdcall;
function SsmGetLineVoltage(ch:Integer):Integer; stdcall;
function SsmSetDtrmLineVoltage(ch:Integer;  wDtrmValtage:WORD):Integer; stdcall;
function SsmGetDtrmLineVoltage(ch:Integer):Integer; stdcall;
function DetectPickUp(ch:DWORD ):DWORD;stdcall;
function DetectEmpty(ch:DWORD ):DWORD;stdcall;
procedure SetSoundJudgeLevel(ch:DWORD ;  level:DWORD);stdcall;
function GetSoundJudgeLevel(ch:DWORD ):DWORD;stdcall;

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


//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POWER-AMPLIFIER OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
procedure SetVolume( dwBoardId:DWORD;  dwVolume:DWORD);stdcall;
function SsmQueryOpPowerAmp(ch:Integer):Integer; stdcall;
function SsmSetPowerAmpVlm(ch:Integer;  nVolume:Integer):Integer; stdcall;

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POLAR REVERSE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function GetFZCount(ch:DWORD ):DWORD;stdcall;
function SsmQueryOpPolarRvrs(ch:Integer):Integer; stdcall;
function SsmGetPolarRvrsCount(ch:Integer):Integer; stdcall;

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SS1 OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
function SsmQueryOpSS1(ch:Integer):Integer; stdcall;
function SsmSendCAS(ch:Integer;  btCas:BYTE):Integer; stdcall;
function SsmGetCAS(ch:Integer):Integer; stdcall;