我有一台计算机,有网卡和内置modem,各位能否给个简单的demo,使用mscomm来控制内置猫?
解决方案 »
- GBK 转 UTF-8
- 求ListView 与 StringGrid或DbGrid 控件滚动条Flat效果的修改方法...
- 请问在delphi中用什么控件可以实现打印功能?
- 有关线程同步的问题
- 请问如何将容器groupbox内的所有包含对象清除 用什么方法或函数
- 用ado 联接 oracle DBGrid 显示数据,程序执行时出现"没有侦听"是何缘故。
- delphi中不能从缓冲区往文件写内容,高手指教!
- 最近比较烦--修罗散分贴
- 类似OutLook左边实现菜单功能的控件
- 求解 ongetcellparams事件与onDrawcolumncell同时使用的问题!
- 关于保存图片到数据库的问题
- hello
begin
comm1.DeviceName := 'Com3';
try
comm1.Open;
Delay(1000);
comm1.SendString('atdt87517772'#13#10);
finally
comm1.Close;
end;
end;
你可以通过AT命令来控制.具体的AT命令你可以查一下.
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命令就可以控制了。
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,不报错,但没有振铃声。
多谢。
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;