怎样使用AT命令进行拨号? (100分)

  • 主题发起人 主题发起人 songjy
  • 开始时间 开始时间
S

songjy

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样使用AT命令进行拨号?
 
atdt1367777777[回车]
 
考虑用控件吗?
tms async
turbopower async

 
rainxy2002,用户名称和密码在什么时候输入?
 
通常是以返回字符串为标记的。
比如16300拨号:
atdt16300[回车]
以下是Com口读出的字符串
+MCR:v92
+ER:LAPM
+DR:V44
CONNECT 28800
*******************************
*Quidway A8010 Internet Server*
*welcome!! *
*******************************
please input username:
please input password:
可以自己做判断,我用的是SpComm控件,所以直接读取如下:
procedure TForm1.spComm1OnReceiveData(Sender:TObject; Buffer: Pointer;
BufferLength: Word);
var
ReturnStr: String;
begin
ReturnStr := StrPas(Buffer);
If Pos('please input username:',ReturnStr)>0 Then
spComm1.writeCommData(PChar('userName'));
If Pos('please input password:',ReturnStr)>0 Then
spComm1.writeCommData(PChar('password'));
End;
 
对不起,忘记加回车符了
procedure TForm1.spComm1OnReceiveData(Sender:TObject; Buffer: Pointer;
BufferLength: Word);
var
ReturnStr: String;
begin
ReturnStr := StrPas(Buffer);
If Pos('please input username:',ReturnStr)>0 Then
spComm1.writeCommData(PChar('userName'^M),Length('userName'^M));
If Pos('please input password:',ReturnStr)>0 Then
spComm1.writeCommData(PChar('password'^M),Length('userName'^M));
End;
 
用现成的RAS控件吧。如果需要的话,请发邮件至simon_guo@sina.com
 
多人接受答案了。
 
后退
顶部