G
gdtkd
Unregistered / Unconfirmed
GUEST, unregistred user!
AT+CMGF=1
OK
AT+CSCA="+8613800760500"
OK
AT+CMGS=13925355484
>This is a test!
>OH!I SEE YOU!(Ctrl+Z)
AT指令在超级终端下可以发送成功!
procedure TLocalFrm.Button1Click(Sender: TObject);
begin
MsComm1.CommPort:=StrToInt(Edit1.Text);
MsComm1.Settings:='9600,N,8,1';
MsComm1.PortOpen:=True;
end;
procedure TLocalFrm.Button3Click(Sender: TObject);
begin
MsComm1.Output:='AT+CMGF=1'+Chr(13)+Chr(10);
MsComm1.Output:='AT+CSCA="+8613800760500"'+Chr(13)+Chr(10);
MsComm1.Output:='AT+CMGS=13925355484'+Chr(13)+Chr(10);
MsComm1.Output:='This is A Test!'+Chr(26);
end;
但在DELPHI用MSCOMM发送就出现不能发送,但没有提示错误?
OK
AT+CSCA="+8613800760500"
OK
AT+CMGS=13925355484
>This is a test!
>OH!I SEE YOU!(Ctrl+Z)
AT指令在超级终端下可以发送成功!
procedure TLocalFrm.Button1Click(Sender: TObject);
begin
MsComm1.CommPort:=StrToInt(Edit1.Text);
MsComm1.Settings:='9600,N,8,1';
MsComm1.PortOpen:=True;
end;
procedure TLocalFrm.Button3Click(Sender: TObject);
begin
MsComm1.Output:='AT+CMGF=1'+Chr(13)+Chr(10);
MsComm1.Output:='AT+CSCA="+8613800760500"'+Chr(13)+Chr(10);
MsComm1.Output:='AT+CMGS=13925355484'+Chr(13)+Chr(10);
MsComm1.Output:='This is A Test!'+Chr(26);
end;
但在DELPHI用MSCOMM发送就出现不能发送,但没有提示错误?