各位能否给个简单的demo,使用mscomm来控制内置猫？高分送。

Question

我有一台计算机，有网卡和内置modem,各位能否给个简单的demo,使用mscomm来控制内置猫？

Answer 1

内置猫的端口号是com3还是com4？

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
   comm1.DeviceName := 'Com3';
   try
     comm1.Open;
     Delay(1000);
     comm1.SendString('atdt87517772'#13#10);
   finally
     comm1.Close;
   end;
end;
你可以通过AT命令来控制.具体的AT命令你可以查一下.

Answer 3

上面给错了....//初始化.
procedure TForm1.FormCreate(Sender: TObject);
begin
  MSComm1.CommPort:=3;  //COM3.
  MSComm1.Settings:='4800,n,8,1';
  MSComm1.RThreshold:=5;  //  设触发 MSComm1Comm时间的字节数
  if MSComm1.PortOpen=False then MSComm1.PortOpen:=true;
  MSComm1.InputMode:=comInputModebinary;
  
end;//发送
MSComm1.Output:='at命令';//这里直接发送AT命令就可以控制了。

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
    MSComm1.CommPort:=3;  //COM3.
    MSComm1.Settings:='4800,n,8,1';
    MSComm1.RThreshold:=5;  //  设触发 MSComm1Comm时间的字节数
    MScomm1.PortOpen:=true;
    sleep(1000);
    MSComm1.InputMode:=comInputModebinary;
    MSComm1.Output:='atdt55066799#13#10';
end;我修改了程序如上，使用com3,系统报“无效的端口号”，使用com2,不报错，但没有振铃声。
多谢。

Answer 5

你看一下系统里面是否有COM3端口？

Answer 6

头痛的是，我如何察看猫的端口。各位有什么好的办法。另外，程序应该修改如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
    MSComm1.CommPort:=3;  //COM3.
    MSComm1.Settings:='4800,n,8,1';
    MSComm1.RThreshold:=5;  //  设触发 MSComm1Comm时间的字节数
    MScomm1.PortOpen:=true;
    sleep(1000);
    //MSComm1.InputMode:=comInputModebinary;
    MSComm1.Output:='atdt55066799#13#10';
end;