tc08a32.pas

东进D160A板卡自动外呼程序代码

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';
//D160
function Sig_Init(para: 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';

//文件索引放音
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: word; wCheckNum: word): 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';

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';
//end of add

//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.