unit3.pas

演示怎样取电话来电显示号码

unit Unit3;


interface
uses
  Windows;
{'功能：开启''话录通''
'参数：1 Port 端口号（指64-71USB口），powerchar 接收fsk需要调整的接收参数，可调整的参数（2，3，4）；
'返回值：1 成功；0 失败。}
function  LT_InitializeSystem(DIDN:integer;powerchar:Char):integer;stdcall ; far external 'LTMainDll.dll';

{'功能：关闭''话录通''
'参数：1 Port 端口号（指64-71USB口）
'返回值：1 成功；0 失败。}
function  LT_CloseSystem(Port:integer):integer;stdcall; far external 'LTMainDll.dll';

{'功能：拨打电话（影响到摘挂机状态）
'参数：1 Port 端口号（64-71USB口）；2 Numbers 电话号码字符串（目前可处理：‘0-9，‘*’，‘#’，‘~’延时，‘,’:500ms,‘ ’:1000ms，‘(’，‘)’，‘-’）
'返回值：1 成功；0 失败。}
function  LT_DialNumber( Port:integer;Numbers:String):integer;stdcall; far external 'LTMainDll.dll';

{'功能：得到电话号码
'参数：1 Port 端口号（64-71USB口）
'返回值：电话号码}
function  LT_GetCallerID(Port:integer):pchar;stdcall; far external 'LTMainDll.dll';

{'功能：设定回调函数
'参数：1 Data 回调函数地址；2 B=0(默认)
'返回值：1 成功；0 失败。}
procedure LT_SetCallbackFun(Data:integer;B:integer);stdcall; far external 'LTMainDll.dll';

{'功能：查询状态
'参数：1 Port 端口号(0-7 对应USB口的64-71)，state 状态
'返回值：1 成功；0 失败。}
procedure GetKHTState(Port:integer; var state:integer);stdcall; far external 'LTShowRec.dll'; //注意此处是LTShowRec.dll

{'功能：设定控制字
'参数：1 Port 端口号（0-7 对应 USB口的64-71）；func 功能； Data 数据
'返回值：1 成功；0 失败。}
Function  LT_SetChannelNumber(Port:integer  ; func :integer ;  data :integer ) :integer;stdcall; far external 'LTMainDll.DLL';

//扩展功能，基本用不到，不建议使用
function  LT_TelHookOnOff(port:integer;Flag :char):integer;stdcall; far external 'LTMainDll.dll';

//扩展功能，基本用不到，不建议使用
function  LT_CheckState(port:integer):integer;stdcall; far external 'LTMainDll.dll';

{'功能：得到USB数据
'参数：1 port 端口号（0-7 对应 USB口的64-71）；2 data 8个数据（BYTE）
'返回值：1 成功；0 失败。}
function  LT_GetHardWareData(port:integer; data:byte):integer;stdcall far external 'LTMainDll.DLL';


{'功能：验证ID 用于硬件对软件的简单加密
'参数：1 port 端口号（0-7 对应 USB口的64-71）；2 id 验证数据
'返回值：1 成功；0 失败。}
function  LT_CheckSerialNo(Port:integer;id:integer):integer;stdcall;far external 'LTMainDll.DLL';

{'功能：单健拨号
'参数： port 端口号（1-63串行口，64-128USB口）；2 data 拨号数据
'返回值：1 成功；0 失败。}
function  DiaDTMF(Port:integer;data:byte):integer;stdcall;far external 'LTShowRec.DLL';//注意此处是LTShowRec.dll
var
 groupname:string;
 portnum:Integer;
 SamplingChar:char;
implementation

end.