D
doby_li
Unregistered / Unconfirmed
GUEST, unregistred user!
我用at先做个简单的测试为何也不行:
procedure Tsmsfrm.Button1Click(Sender: TObject);
var
sat:string;
begin
try
Comm1.BaudRate:=9600;
Comm1.ByteSize:=8;
Comm1.ParityCheck:=1;
Comm1.CommName:='com1';
Comm1.startcomm;
except
messagedlg('打开串口时失败,可能该串口已被占用或不存在,请换另一个串口!',mterror,[mbyes],0);
end;
sat:='at'+Char(13)+Char(10);
if Comm1.WriteCommData(Pchar(sat),Length(sat)) then
showmessage('发送指令成功')
else
messagedlg('发送指令失败!',mterror,[mbyes],0);
end;
错误提示是:发送指令失败.
我用的是spcomm控件,请问应该如何写发送最简单的at这个指令的程序.
请高手看一下,我的这个发送程序错在哪了,谢谢.
procedure Tsmsfrm.Button1Click(Sender: TObject);
var
sat:string;
begin
try
Comm1.BaudRate:=9600;
Comm1.ByteSize:=8;
Comm1.ParityCheck:=1;
Comm1.CommName:='com1';
Comm1.startcomm;
except
messagedlg('打开串口时失败,可能该串口已被占用或不存在,请换另一个串口!',mterror,[mbyes],0);
end;
sat:='at'+Char(13)+Char(10);
if Comm1.WriteCommData(Pchar(sat),Length(sat)) then
showmessage('发送指令成功')
else
messagedlg('发送指令失败!',mterror,[mbyes],0);
end;
错误提示是:发送指令失败.
我用的是spcomm控件,请问应该如何写发送最简单的at这个指令的程序.
请高手看一下,我的这个发送程序错在哪了,谢谢.