关于来电显示的问题(200分)

  • 主题发起人 主题发起人 董海滨
  • 开始时间 开始时间

董海滨

Unregistered / Unconfirmed
GUEST, unregistred user!
各位老大,用普通的MODEM怎么实现来电显示!<br>我知道VB是已经实现了的,但我不懂VB,在这里也查到了一些众说纷纭的Delphi实现,但均无源码,但我对通讯这一块的了解几乎为零.<br>而我的这活儿也是很急的,希望哪位兄弟给段源码给我,兄弟回头再慢慢研究!万分感谢!
 
下载控件: MSCOMM32.OCX<br>注册,安装,在activex页上,有个MScommd的控件,用它很容易实现的.
 
to xuxincheng<br>我把VB都装上了,但是在ActiveX上还是没有找到msComm
 
to xuxincheng<br>嘿嘿,不好意思,我第一次装那个ActiveX控件,终于装上去了!<br>但我没有MSCOMM的资料.
 
贴段别人给我的程序,不一定正确, 参考一下:<br>unit Unit1;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br>&nbsp; OleCtrls, MSCommLib_TLB, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList,<br>&nbsp; Db, ADODB, Menus, MPlayer;<br><br>type<br>&nbsp; TfmMain = class(TForm)<br>&nbsp; &nbsp; StatusBar: TStatusBar;<br>&nbsp; &nbsp; Panel1: TPanel;<br>&nbsp; &nbsp; Image1: TImage;<br>&nbsp; &nbsp; SpeedButton1: TSpeedButton;<br>&nbsp; &nbsp; &nbsp;MSC: TMSComm;<br>&nbsp; &nbsp; ImageList: TImageList;<br>&nbsp; &nbsp; ListView: TListView;<br>&nbsp; &nbsp; ADOTable1: TADOTable;<br>&nbsp; &nbsp; &nbsp;MediaPlayer: TMediaPlayer;<br>&nbsp; &nbsp; &nbsp;procedure MSCComm(Sender: TObject);<br>&nbsp; &nbsp; procedure FormClose(Sender: TObject; var Action: TCloseAction);<br>&nbsp; &nbsp; procedure SpeedButton1Click(Sender: TObject);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; &nbsp; MessageStr:String;<br>&nbsp; end;<br>var<br>&nbsp; fmMain: TfmMain;<br>implementation<br>{$R *.DFM}<br>procedure TfmMain.MSCComm(Sender: TObject);<br>var<br>&nbsp; tempstr,SendCommand:string;<br>&nbsp; ee:char;<br>begin<br>// &nbsp;Application.MessageBox('有信息发送过来',Pchar('来电显'+Msc.Input),0);<br>&nbsp; MessageStr:=MessageStr+ Msc.Input;<br>&nbsp; ShowMessage( MessageStr);<br>&nbsp; if(Msc.CommEvent=comEvReceive) then<br>&nbsp; &nbsp;begin<br>&nbsp; &nbsp; tempstr:=Msc.Input;<br>&nbsp; &nbsp; tempstr:=trim(tempstr);<br>&nbsp; &nbsp; ShowMessage(tempstr);<br>&nbsp; &nbsp; StatusBar.Panels[0].Text:=tempstr;<br>&nbsp; &nbsp; if(AnsiUpperCase(tempStr)='RING') then<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; StatusBar.Panels[0].Text:='有来电,请处理......';<br>&nbsp; &nbsp; &nbsp; &nbsp; MediaPlayer.FileName:='a.wav';<br>&nbsp; &nbsp; &nbsp; &nbsp; MediaPlayer.Open;<br>&nbsp; &nbsp; &nbsp; &nbsp; MediaPlayer.Play;<br>&nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp;end;<br>end;<br><br>procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br>&nbsp;if &nbsp;MSC.PortOpen then<br>&nbsp; MSC.PortOpen:=false;<br>end;<br><br>procedure TfmMain.SpeedButton1Click(Sender: TObject);<br>begin<br>&nbsp; &nbsp;If MSC.PortOpen Then<br>&nbsp; &nbsp;MSC.PortOpen:= False;<br>&nbsp; MSC.CommPort:=1;<br>&nbsp; Msc.PortOpen:=true;<br>&nbsp; fmMain.Caption:='来电显示演示程序';<br>&nbsp; Msc.InputMode:=comInputModeText;<br>// &nbsp;MSC.Output:='AT#CID=1'+#13;<br>// &nbsp;MSC.Output:='AtS0=0'+#13;<br>end;<br>end.<br>
 
to xuxincheng<br>谢谢你,但这段代码的话对Modem是否有特殊要求,是否需要我的电话开通来电显示
 
to xuxincheng<br>我的QQ是27138698,希望能得到更多帮助,请联系我
 
还有哪位兄弟,给俺一个能正确执行的执行程序,俺也感激不尽(最好能告诉俺对MODEM有什么<br>特殊要求,是否需要在电信开通来电显示的).<br>VB的代码俺也找了一大堆,可俺看不懂,其它乱七八糟的控件俺也下了一堆,可一下子似乎来不及
 
http://delphi123.8u8.com/download/voice.rar<br>对moden有要求的,要求moden支持来电显示,同时你也开通了来电显示.
 
to wjing<br>那个东西下载下来了,可是好象不能用
 
有没有哪位在深圳的兄弟做过这个东西,急救我啊!<br>给你多少RMB的话,俺也没几个钱,但是请你吃顿把饭的钱倒是有的!
 
那个是我自己随便写的,第一次运行时在弹出窗口的基本设置中选择你的moden,然后保存.<br>就可以使用了.
 
to wjing<br>那个东西下载下来了,可是好象不能用<br>你能不能发一个到我邮箱里,不要打包,seawater001@yeah.net
 
to wjing<br>那个东西下载下来了,可是好象不能用<br>能不能发个到我邮箱里seawater001@yeah.net
 
谢谢wjing<br>能够拔打电话,但是好象接收来电的时候还是有点问题
 
什么问题可以说说吗!一般是想第一声和第二声直接的时候来电信息才可以收到
 
谢谢wjing<br>你给我的程序可以执行了
 
当我用手机拔号,显示了一下来电号码,但下一次拔很快就不行了,里面没有号码,我继续拔的话,报错。<br>我的Modem是Rockwell DPF PnP,36K,支持语音及传真的.
 
后退
顶部