如何利用TAPI编写来电显示程序。(200分)

如何利用TAPI在普通MODEM编写来电显示程序，最好有测试程序给我参考，谢谢了。
（线路的来电显示的功能已经开通了）

不知道

listen

如果电信部门是用的DTMF编码发送的来电显示号码,你可以尝试监视DTMF编码,在MSDN中的可以找到

我有一个这方面的程序，是我以前从网上面下载的，有近９Ｍ，里面有源程序示例，想要的话告诉我
一个大于１０Ｍ的邮箱地址。

Alphazw兄，给我发一份　ctx@21cn.com
不过要发最好分成1M一个文件发，我分几次收回来，谢谢
我试过几个来电显示的软件，都不行，好象还要那几种猫

最好找个地方上传一下，便于大家下载

文件太大，不便发送，我已经找到我以前下载那个软件的地址了，是网易的，不过它们的地址已经
因为服务器升级全改了，大家看着办好吧？我也没有办法，因为没有地方可以上传，而且那么
大，总之是不好办。
http://go2.163.com/~duhu/product.htm,文件名叫做:Teletools.exe
我用http://duhu.yeah.net一会显示web地址找到，一会又上不去，那是一个好像叫做《电话精灵》
软件作者的主页，如果实在不行的话，那么大家可以在网上找找看。或者找这个软件，然后通过软件
中的邮件地址发信给《电话精灵》软件的作者。
我只能做这些了，我已经尽力了！

Alphazw兄，Teletools.exe能用吗？网页上不去！

放到http://delphi.itschem.com这上吧，
让我大家都咬一口。

那个TAPI可以检测出Modem所连电话线的号码(本地号码,不是来电号码)?

我没有去上传，但是我知道好何才能打开原来的那个网页了：
http://go2.163.com/duhu/product.htm
在那上面找到：Teletools3.5无限测试版，然后点边上的链接把它下载，其它的事情各位自己
都应该会做了吧？！
有问题单独给我发邮件，我还没有仔细研究过那东西，如果那位做用它做了什么好作品，不要
忘记告诉我一声呀。先谢谢了。

我的邮件地址是：alpha@kzinfo.net;crowzw@163.net,如果要给我发送程序的话，请往这个
邮箱发：zhangwei_zw@china.com

ＡＬＰＨＡ：网址可以上去了，但是etTT35却不能下载！

这个我没有办法，你还是给那位站长同志去信问问吧，我下载也会出错的。
对不起，我无能为力。上传的话时间太长，我没有足够的时间和金钱来完成它。SORRY
或者你们在网上搜索一下那个软件吧!也许会有用的。

可以利用RXLIB控件，然后在参考以下程序：

unit formMain;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VaClasses, VaComm, ExtCtrls, Menus;

type
TForm1 = class(TForm)
VaComm1: TVaComm;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
procedure VaComm1RxChar(Sender: TObject; Count: Integer);
procedure FormCreate(Sender: TObject);
procedure VaComm1Ring(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
Var
Finished: boolean;
CallerID,
Call_Date,
Call_Time:String[50];

procedure TForm1.VaComm1RxChar(Sender: TObject; Count: Integer);
Var
S:string[50];
begin

S:=VaComm1.ReadText;

if Not Finished then
begin
CallerID:=CallerID+copy(S,0,length(S)-2);
Finished:=True;
Label1.Caption:=CallerID;
end;

if Copy(S,0,4)='NMBR' then
begin
CallerID:=copy(S,8,length(S));
if copy(S,length(S),1)=#10 then
Begin
Finished:=True;
end
else Finished:=False;
end;



end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Finished:=True;
Form1.Top:=Label1.Top;
Form1.Left:=Label1.Left;
Form1.Height:=Label1.Height*2;
Form1.Width:=Label1.Width+Label2.Width;
VaComm1.WriteText('AT#CLS=8#CID=1'+#13#10);

end;

procedure TForm1.VaComm1Ring(Sender: TObject);
begin
Label2.Caption:='来电...';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Not Vacomm1.RING then Label2.Caption:='';
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Label1.Caption:='';
end;

end.

几天来，大富翁网站都上不了！RXLIB控件？VaComm？能否详细说明一下？

Alden Zhou的方法不行，AT Command 所获得的Caller ID形式不是标准的，不同厂家的
Caller ID回传格式不一至，最好用TAPI来控制拨号连接，因为获取Caller ID的事应该
是Modem的Driver和TAPI之间解决，我们只要通过调用TAPI来获取Caller ID.

但上面的连接现在连不上了。

listen

大家去http://voiceangel.myetang.com/看一看吧