原创 MODEM通讯

      一、//初始化Modem
         Delay(200);
         mscomm1.Output := 'AT&F' + #13; // 恢复出厂值
         Delay(200);
         mscomm1.Output := 'AT&C1' + #13;
         Delay(200);
         mscomm1.Output := 'AT&D2' + #13;  //dtr 挂断modem
         Delay(200);
         mscomm1.Output := 'ATM0' + #13; //0关闭扬声器  3拨号后扬声器打开,直到检测到载波
         Delay(200);
         mscomm1.Output := 'ATS0=0' + #13; //禁止自动应答
         Delay(200);
         mscomm1.Output := 'ATE0' + #13; //不显示结果码
         Delay(200);
         mscomm1.Output := 'AT&K0' + #13; //禁止流控       
         Delay(200);
         mscomm1.Output := 'AT\T5' + #13; //5分钟后Mode自动挂断
         Delay(200);
         mscomm1.Output := 'AT&W0' + #13;
         Delay(200);
         Result := True;

二、开始拨号
        //X4Modem在拨号前等待拨号音频，启用CONNECT XXXX结果代码。
        //如果检测到占用信号，Modem发出BUSY结果代码。
        //D基本的拨号命令；T Modem使用音频(Tone)拨号
        //M0X4

        dialstr := 'ATDT' + Phone + #13;

       if mscomm1.CDHolding then //已经建立载波

三、建立载波即建立连接
    之后可以向串口发送数据，直接通过电话线传输了。