代码如下:
IdT_yyxt.Host := IP;
if not IdT_yyxt.Connected then
IdT_yyxt.Connect;
//命令1
s := 'sysoper';
//s := trim(edit1.Text);
for i := 1 to length(s) do
IdT_yyxt.SendCh(s[i]);
IdT_yyxt.SendCh(#13);
//命令2
s := 'sysoper';
for i := 1 to length(s) do
IdT_yyxt.SendCh(s[i]);
IdT_yyxt.SendCh(#13);
IdT_yyxt.Write(s);
//命令3
s := 'cd bin';
Sleep(5000);
for i := 1 to length(s) do
IdT_yyxt.SendCh(s[i]);
IdT_yyxt.SendCh(#13);
对于这三个命令,如果我分开执行,s从文本获取,在按钮中每次点击执行一个命令能够顺利完成,但是如果把三个命令都写在按钮控件中,一次执行,结果服务器相当于只收到了我命令一的发送信息,即(服务器返回的信息是舒服命令1后的信息,相当于我输入用户名后提示我输入密码,但是我命令2是密码,命令3是接下去的操作都没有执行)
IdT_yyxt.Host := IP;
if not IdT_yyxt.Connected then
IdT_yyxt.Connect;
//命令1
s := 'sysoper';
//s := trim(edit1.Text);
for i := 1 to length(s) do
IdT_yyxt.SendCh(s[i]);
IdT_yyxt.SendCh(#13);
//命令2
s := 'sysoper';
for i := 1 to length(s) do
IdT_yyxt.SendCh(s[i]);
IdT_yyxt.SendCh(#13);
IdT_yyxt.Write(s);
//命令3
s := 'cd bin';
Sleep(5000);
for i := 1 to length(s) do
IdT_yyxt.SendCh(s[i]);
IdT_yyxt.SendCh(#13);
对于这三个命令,如果我分开执行,s从文本获取,在按钮中每次点击执行一个命令能够顺利完成,但是如果把三个命令都写在按钮控件中,一次执行,结果服务器相当于只收到了我命令一的发送信息,即(服务器返回的信息是舒服命令1后的信息,相当于我输入用户名后提示我输入密码,但是我命令2是密码,命令3是接下去的操作都没有执行)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货