tc08a32.pas

Delphi编写的东进语音卡实现的电话挂失系统

function Sig_Init(Param:word):integer; stdcall; external 'Newsig.dll';
function Sig_CheckBusy(wChNo:word):integer;stdcall; external 'Newsig.dll';
function Sig_StartDial(wChNo:word;DialNum:pchar;PreDialNum:pchar;wMode:word):integer;stdcall; external 'Newsig.dll';
function Sig_CheckDial(wChNo:word):integer;stdcall; external 'Newsig.dll';
procedure Sig_ResetCheck(wChNo:word);stdcall; external 'Newsig.dll';
function Sig_GetCadenceCount(wChNo:word;nCadenceType:integer):integer;stdcall; external 'Newsig.dll';

function SetLink( one:integer;another:integer):Integer; stdcall; far  external 'Tc08a32.dll';
function ClearLink( one:integer;another:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function LinkOneToAnother (wOne:WORD; wAnother:WORD ):LongInt;stdcall; far  external 'Tc08a32.dll';
function ClearOneFromAnother ( wOne:WORD; wAnother:WORD ):LongInt;stdcall; far  external 'Tc08a32.dll';
function LinkThree(wOne:WORD;wTwo:WORD;wThree:WORD):LongInt;stdcall; far  external 'Tc08a32.dll';
function ClearThree(wOne:WORD;wTwo:WORD;wThree:WORD):LongInt;stdcall; far  external 'Tc08a32.dll';

procedure InitDtmfBuf(wChnlNo: WORD); stdcall; far external 'Tc08a32.dll';
function GetDtmfCode(wChnlNo : WORD) :Shortint; stdcall; far  external 'Tc08a32.dll';
function DtmfHit(wChnlNo:WORD ):boolean; stdcall; far  external 'Tc08a32.dll';

function StartSigCheck( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function StopSigCheck( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function ReadCheckResult( chanelNo:integer;checkMode:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function ReadBusyCount :Integer; stdcall;  far  external 'Tc08a32.dll';

function SetBusyPara( busylen:integer):Integer; stdcall;  far  external 'Tc08a32.dll';
function SetDialPara( ringBack1:integer;ringBack0:integer;busyLen:integer;ringTimes:integer):Integer; stdcall; far  external 'Tc08a32.dll';
procedure ReadSigBuf (wChnlNo:WORD;pwStartPoint:pointer;pwCount:pointer;SigBuf:array of byte); stdcall; far  external 'Tc08a32.dll';

function StopPlay(chanelNo:integer):Integer;  stdcall; far  external 'Tc08a32.dll';
function CheckPlayEnd (wChnlNo : WORD ) : BOOLEAN; stdcall; far  external 'Tc08a32.dll';
procedure ReadStatus (wChnlNo: WORD;TmpRead:pointer); stdcall; far  external 'Tc08a32.dll';

function StartPlayFile (wChnlNo : WORD;FileName: PCHAR; StartPos: LONGINT ) : BOOLEAN; stdcall; far external 'Tc08a32.dll';
procedure StopPlayFile (wChnlNo : WORD); stdcall; external 'Tc08a32.dll';

procedure RsetIndexPlayFile( chanelNo:integer); stdcall; far  external 'Tc08a32.dll';
function AddIndexPlayFile( chanelNo:integer;filename:Pchar) :Integer; stdcall; far  external 'Tc08a32.dll';
function StartIndexPlayFile( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function CheckIndexPlayFile( chanelNo:integer) :integer; stdcall;  far  external 'Tc08a32.dll';
procedure StopIndexPlayFile( chanelNo:integer); stdcall; far  external 'Tc08a32.dll';

procedure ResetIndex (); stdcall; far  external 'Tc08a32.dll';
function SetIndex (VocBuf:PChar;dwVocLen:WORD):boolean;  stdcall; far  external 'Tc08a32.dll';
procedure StartPlayIndex(wChnlNo: WORD ;pIndexTable:array of WORD;wIndexLen:WORD ); stdcall; far  external 'Tc08a32.dll';

function SendDtmfBuf( chanelNo:integer;dialNum:Pchar) :Integer;  stdcall; far  external 'Tc08a32.dll';
function CheckSendEnd( chanelNo:integer) :Integer;  stdcall; far  external 'Tc08a32.dll';

function StopRecord( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function StartRecordFile (wChnlNo:WORD; FileName : PCHAR;dwRecordLen:LONGINT ):BOOLEAN; stdcall; external 'Tc08a32.dll';
function CheckRecordEnd ( wChnlNo:WORD ):BOOLEAN; stdcall; external 'Tc08a32.dll';
procedure StopRecordFile (wChnlNo:WORD); stdcall; external 'Tc08a32.dll';

function FeedSigFunc:Integer; stdcall; far  external 'Tc08a32.dll';
procedure StartTimer(wChnlNo:WORD;ClockType:WORD ); stdcall; far  external 'Tc08a32.dll';
function ElapseTime (wChnlNo: WORD ;ClockType:WORD  ):LongInt; stdcall; far  external 'Tc08a32.dll';
function StartPlaySignal( chanelNo:integer;sigtype:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function StartHangUpDetect( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function HangUpDetect( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
procedure FeedRing(wChnlNo:WORD );stdcall; far  external 'Tc08a32.dll';
function FeedRealRing( chanelNo:integer) :Integer; stdcall;  far  external 'Tc08a32.dll';
function FeedPower( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function OffHookDetect( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
function ReadGenerateSigBuf( lpfilename:Pchar) :Integer; stdcall;  far  external 'Tc08a32.dll';
// caller-id
procedure ResetCallerIDBuffer(wChnlNo:WORD);stdcall;  far  external 'Tc08a32.dll';
function GetCallerIDRawStr (wChnlNo:WORD ;IDRawStr:PChar):WORD; stdcall;  far  external 'Tc08a32.dll';
function GetCallerIDStr (wChnlNo:WORD;IDStr:PChar):WORD;stdcall;  far  external 'Tc08a32.dll';


function StartRecordFileNew (wChnlNo: WORD;FileName:PChar;dwRecordLen:DWORD;dwRecordStartPos:DWORD):boolean;stdcall;  far  external 'Tc08a32.dll';
function NewReadPass (wCardNo: WORD ):LongInt;stdcall;  far  external 'Tc08a32.dll';
function CheckSilence( chanelNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';

function SetSendPara (ToneLen:Integer;SilenceLen:Integer ):Integer;stdcall; far  external 'Tc08a32.dll';
procedure NewSendDtmfBuf(ChannelNo:Integer;DialNum:PChar);stdcall; far  external 'Tc08a32.dll';
function NewCheckSendEnd(ChannelNo:Integer):Integer;stdcall; far  external 'Tc08a32.dll';

function SetSigPara( AlNo:integer;clNo:integer) :Integer; stdcall; far  external 'Tc08a32.dll';
procedure StartPlay(wChnlNo:WORD;PlayBuf:PChar;dwStartPos:WORD;dwPlayLen:DWORD);stdcall; far  external 'Tc08a32.dll';

//add for tc08d
    const FREQWIDTH_ALL=   0;
    const FREQWIDTH_WIDE=  1;

    const SENSVAL_1_OF_16= 00;
    const SENSVAL_1_OF_8=  01;
    const SENSVAL_1_OF_4=  02;
    const SENSVAL_1_OF_2=  03;

    const SPEAKER_VOL_NONE=        0;
    const SPEAKER_VOL_1=           1;
    const SPEAKER_VOL_2=           2;
    const SPEAKER_VOL_3=           3;
    const SPEAKER_VOL_4=           4;
    const SPEAKER_VOL_5=           5;
    const SPEAKER_VOL_6=           6;
    const SPEAKER_VOL_7=           7;
    const SPEAKER_VOL_8=           8;

procedure LinkZeroTo ( wChnlNo: WORD ); stdcall; far  external 'Tc08a32.dll';
procedure ClearZeroLink (); stdcall; far  external 'Tc08a32.dll';
procedure SetSpkVol ( wVol:WORD  ); stdcall; far  external 'Tc08a32.dll';


//FAX DLL
function DJFax_DriverReady(wBuffSize:WORD):integer;stdcall; far external 'Tc08a32.dll';
procedure DJFax_DisableCard();stdcall; far external 'Tc08a32.dll';
procedure DJFax_GetSysInfo(TmpInfo:pointer); stdcall; far external 'Tc08a32.dll';
function DJFax_GetTotalFaxChnl():integer;stdcall; far external 'Tc08a32.dll';

function DJFax_SetLocalID (wChnl:WORD;s:PChar ):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_GetLocalID (wChnl:WORD;s:PChar ):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_SetDialNo(wChnl:WORD;DialNo:PChar):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_SetValue(wChnl:WORD;s:pointer;Position:WORD;Count:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_GetValue(wChnl:WORD; s:pointer;Position:WORD;Count:WORD):integer;stdcall; far external 'Tc08a32.dll';

function DJFax_SetLink(wFaxChnl:WORD;trunkID:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_ClearLink (wFaxChnl:WORD;trunkID:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_SelfCheckSetLink(wFaxChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_SelfCheckBreakLink(wFaxChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';

function DJFax_GetRcvBytes(wChnl:WORD):longInt;stdcall; far external 'Tc08a32.dll';
function DJFax_GetSendBytes(wChnl:WORD):longInt;stdcall; far external 'Tc08a32.dll';

function DJFax_GetOneFreeFaxChnl():integer;stdcall; far external 'Tc08a32.dll';
function DJFax_GetFaxChnlOfVoiceChnl(trunkID:WORD):integer; stdcall; far external 'Tc08a32.dll';
function DJFax_GetVoiceChnlOfFaxChnl(trunkID:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_GetMiddleStatus(wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_GetErrCode(wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_GetErrPhase(wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_GetErrSubst(wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';

procedure DJFax_StopFax(wChnl:WORD);stdcall; far external 'Tc08a32.dll';


function DJFax_SendFaxFile(wChnl:WORD;FileName:PChar):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_CheckTransmit(wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJFax_RcvFaxFile(wChnl:WORD;FileName:PChar):integer;stdcall; far external 'Tc08a32.dll';

function DJFax_SetResolution(wChnl:WORD;ResolutionFlag:integer):integer;stdcall; far external 'Tc08a32.dll';

//--------------------------------------------------------------------------
//Add by WGL 1998.11.26


//function DJFax_SetModemCtrol (  wChnl:WORD):integer; stdcall; far external 'Tc08a32.dll';
//function DJFax_GetModemCtrol ( wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
//function DJFax_GetLineStatus(  wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
//function DJFax_GetModemStatus(  wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
//function DJFax_GetSendBufSize(  wChnl:WORD):integer; stdcall; far external 'Tc08a32.dll';


//function DJFax_ReadModemBuf( wChnl:WORD;DataBuf:PChar):integer;stdcall; far external 'Tc08a32.dll';
//function DJFax_WriteModemBuf( wChnl:WORD;DataBuf:PChar;DataLen:integer):integer;stdcall; far external 'Tc08a32.dll';


function DJCvt_InitConvert():integer;stdcall; far external 'Tc08a32.dll';
procedure DJCvt_DisableConvert();stdcall; far external 'Tc08a32.dll';
function DJCvt_Open(wChnl:WORD;cbFaxFileName:PChar;cbResolution:BYTE;
            wPageLineNo:WORD):integer; stdcall; far external 'Tc08a32.dll';
function DJCvt_Close(wChnl:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJCvt_DotLine(wChnl:WORD;cbDotStr:PChar;wDotSize:WORD;wDotFlag:WORD):integer;stdcall; far external 'Tc08a32.dll';
function DJCvt_TextLine(wChnl:WORD;cbTextStr:PChar):integer; stdcall; far external 'Tc08a32.dll';
function DJCvt_BmpImage(wChnl:WORD;cbImageStr:PChar):integer;stdcall; far external 'Tc08a32.dll';
function DJCvt_BmpFile(wChnl:WORD;cbBmpFileName:PChar):integer; stdcall; far external 'Tc08a32.dll';




implementation
end.