【文件属性】:
文件名称:来电显示的Delphi开发控件
文件大小:328KB
文件格式:ZIP
更新时间:2010-03-26 12:15:43
CPort Delphi TeleComport 开发控件 来电显示
开发来电显示的Delphi控件包:
使用方法:
(1) 下载控件包Component.zip
(2) 先编译 CPortLib6.dpk ,已安装了CPortLib 控件组的可省略这一步骤
(3) 然后编译 TelePort.dpk ,并安装
(4) 安装完成后,在 kosenTools 控件页增加了一个控件:TeleComport
(5) 使用示例请看 Project2.dpr
示例源程序:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CPort, TeleComportUnit;
type
TForm1 = class(TForm)
TeleComport1: TTeleComport;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure TeleComport1Open(Sender: TObject);
procedure TeleComport1Close(Sender: TObject);
procedure TeleComport1Read(Sender: TObject; s: String; t: TDateTime);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
if TeleComport1.SetupPort then
Memo1.Lines.Add(\'Port=\'+TeleComport1.Port);
//设置来电管理器的连接端口,USB端口的设置为Port:=\"USB\"
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TeleComport1.Open;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
TeleComport1.Close;
end;
procedure TForm1.TeleComport1Open(Sender: TObject);
begin
if TeleComport1.JDConnected then
begin
Memo1.Lines.Add(\'Connected\');
//打开端口时读取来电管理器内缓存的号码
TeleComport1.ReadAllWhenOpen;
end;
end;
procedure TForm1.TeleComport1Close(Sender: TObject);
begin
if not TeleComport1.JDConnected then
Memo1.Lines.Add(\'not Connected\');
end;
//有来电时触发此事件
//s为来电号码,t为来电时间
procedure TForm1.TeleComport1Read(Sender: TObject; s: String;
t: TDateTime);
begin
Memo1.Lines.Add(s+FormatDateTime(\' yyyy-mm-dd hh:nn:ss\', t));
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Memo1.Lines.Add(\'RecordsCount=\'+IntToStr(TeleComport1.RecordsCount));
//未读来电次数
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
TeleComport1.ReadAllRecords; //读取所有缓存内的来电
end;
end.
【文件预览】:
Component
----安装说明.txt(327B)
----CPort()
--------CPortLib6.cfg(390B)
--------CPort.inc(1KB)
--------CPortSetup.dfm(2KB)
--------CPortEsc.pas(12KB)
--------CPortLib6.dpk(776B)
--------CPortTrmSet.dfm(2KB)
--------CPort.pas(100KB)
--------gnugettext.pas(62KB)
--------CPortImg.res(7KB)
--------CPortSetup.pas(2KB)
--------CPortLib6.res(2KB)
--------CPortCtl.pas(71KB)
--------CPortTrmSet.pas(3KB)
----USBunit.pas(3KB)
----Project2.res(876B)
----TelePort.res(2KB)
----TeleComportUnit.pas(17KB)
----CH375DLL.DLL(15KB)
----TelePort.dpk(687B)
----Project2.exe(488KB)
----TelePortSet.dfm(2KB)
----CH375DLL.PAS(12KB)
----Project2.dpr(188B)
----TelePort.cfg(390B)
----Unit2.dfm(2KB)
----TelePortSet.pas(2KB)
----Unit2.pas(2KB)