花落谁家，你作主！	盛大widget设计大赛英雄榜

关于mscomm控件的问题，高分相送

楼主godlessme（老万）2004-09-02 19:42:56 在 Delphi / 网络通信/分布式开发提问

已经正确的在系统中注册了控件。但是在使用的时候，怎么拨号猫都没有反应。我的初始化端口和猫的程序是这样写的：其中AXPHONE是控件的名字。端口是3，‘9600，n,8,1'
try
if axphone.PortOpen then
begin
axphone.PortOpen:=false;
sleep(1000);
end;
if not axphone.PortOpen then
begin
axphone.PortOpen:=true;
end;
except
on e:exception do
begin
showmessage('MODEM 初始化失败，请重新拨号');
initmodem;
end;
end;

axphone.InBufferCount:=0;
axphone.InputLen:=0;
axphone.RThreshold:=1;
axphone.DTREnable:=true;
axphone.RTSEnable:=true;
axphone.Output:='ATE1M0Q0S0=3V1X4&C1&D3&K0&S0'+CHR(13);

拨号一直没有反应。问题点数：100、回复次数：11Top

1 楼godlessme（老万）回复于 2004-09-02 20:18:38 得分 0

怎么没有回啊Top

2 楼godlessme（老万）回复于 2004-09-02 20:45:24 得分 0

大家来帮忙啊，真是郁闷啊！搞了一下午了。Top

3 楼godlessme（老万）回复于 2004-09-02 20:46:50 得分 0

帮不了的话up一下也行啊。Top

4 楼wangfugang（大福）回复于 2004-09-02 21:35:23 得分 40

你用什么编的？Top

5 楼godlessme（老万）回复于 2004-09-02 21:37:19 得分 0

用delphi 7Top

6 楼godlessme（老万）回复于 2004-09-02 21:50:02 得分 0

大家来顶啊，来了就有分Top

7 楼Jeff20040819（美丽）回复于 2004-09-02 22:16:44 得分 30

sleep(1000);时间太长， sleep(200);但问题应该不在这儿

可能‘9600，n,8,1'有问题，多试几次

学习
Top

8 楼godlessme（老万）回复于 2004-09-03 02:23:43 得分 0

问题我自己解决了，可是又不能自己把帖子删掉。真实郁闷！把代码贴出来，不过只有拨号和挂断功能，其他比较详细的都还没有做，比如说对方忙，对方先挂断，等等，不过剩下的都不是问题了。
Jeff20040819(最爱Delphi,C#——苦练内功中)，你运气好，要是我结贴时候只有你一个人顶的话，只好把两个帖子的160分都给你了。

unit call_out;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, MSCommLib_TLB, StdCtrls;

type
TForm1 = class(TForm)
AXPhone: TMSComm;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure AXPhoneComm(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
call_num:integer;
procedure InitModem;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.InitModem;
begin
try
if axphone.PortOpen then
begin
axphone.PortOpen:=false;
//sleep(1000);
end;
if not axphone.PortOpen then
begin
axphone.PortOpen:=true;
end;
except
on e:exception do
begin
showmessage('MODEM 初始化失败，请重新拨号');
// initmodem;
end;
end;
axphone.InBufferCount:=0;
axphone.InputLen:=0;
axphone.RThreshold:=1;
axphone.DTREnable:=true; //是否使DTR信号线有效，DTR
//指示计算机在等待接受传输
axphone.RTSEnable:=true;
// axphone.Output:='+++';
// sleep(1000);
//axphone.OutBufferCount:=0;
//axphone.Output:='ATE1m1Q0S0=3V1X4&C1&D3&K0&S0#10#13';

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
call_num:=0;
self.InitModem;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if call_num>=1 then
initmodem;
{if axphone.PortOpen=true then
showmessage('ok'); }
axphone.OutBufferCount:=0;
if edit2.Text='' then //检测分机号码是否为空
axphone.Output:='ATDT'+trim(edit1.Text) + chr(13)
else
axphone.Output:='ATDT'+trim(edit1.Text)+',,'+trim(edit2.Text)+chr(13);
call_num:=call_num+1;
//showmessage(inttostr(axphone.OutBufferCount));
label3.Caption:='正在拨号中';
if axphone.CDHolding then //检测该属性确定是否正在通话中
label3.Caption:='通话中';

{if axphone.CTSHolding then //确定是否可以发送数据
showmessage('可以发送数据'); }

//showmessage(inttostr(axphone.commid));//返回控件的句柄

//showmessage(inttostr(axphone.CommPort));返回端口号

{if axphone.DSRHolding then //检测是否做好操作准备，由
showmessage('作好操作准备'); //modem向计算机发出 }

//showmessage('输出缓冲字符数：'+inttostr(axphone.OutBufferCount));
end;

procedure TForm1.AXPhoneComm(Sender: TObject);
begin
case axphone.CommEvent of
1001: ;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
axphone.OutBufferCount:=0;
axphone.Output:='+++' + chr(13);
axphone.Output:='ATH' + chr(13);
axphone.PortOpen := false;
end;

end.Top

9 楼godlessme（老万）回复于 2004-09-03 02:24:46 得分 0

没法子，十一前不结贴要扣信誉分啊Top

10 楼dafeifei（大飞飞）回复于 2004-09-03 07:44:13 得分 30

学习
Top

11 楼godlessme（老万）回复于 2004-09-03 10:20:21 得分 0

大家都来顶啊，顶了就有分啊Top