smsclientu.pas

连接利用SPCOMM和SOCKET写的短信服务器

  strWetUrgencyCaution:string;//是否清除紧急报警

  strCenterOrder1:string;//简讯中心服务号码

  strMaxSpeed:string;//超速报警设置：最大速限
  strContinuousSpeedTime:string;//超速报警设置：连续超速报警设置
  strSpeedTime:string;//超速报警设置：连续报警次数设置

  strListenStyle:string;//监听准备：监听方式
  strListenTele:string;//监听准备：监听端电话号码

  strACC_ON_Time:string;//ACC状态改变报警命令:ACC_ON回报时间
  strACC_OFF_Time:string;//ACC状态改变报警命令:ACC_OFF回报时间

  strOldPassword:string;  //更改车载单元密码：旧密码
  strNewPassword:string;  //更改车载单元密码: 新密码

  strLimitStyle:string;   //设定接听电话号码:限接方式
  strLimitCode1:string;   //设定接听电话号码：限接门号前缀1
  strLimitCode2:string;   //设定接听电话号码:限接门号前缀2
  strLimitCode3:string;   //设定接听电话号码：限接门号前缀3
  strLimitCode4:string;   //设定接听电话号码：限接门号前缀4
  strLimitCode5:string;   //设定接听电话号码:限接门号前缀5

  strSearchStyle:string;  //车载单元设定查询：查询命令类型

  strMAreaCode:string;    //多区域出入区报警设定：多区域代码
  strAreaAmount:string;   //多区域出入区报警设定：区域总数
  strStartNumber:string;   //多区域出入区报警设定：起始编号
  strAreaNumber:string;    //多区域出入区报警设定：区域个数
  strArea1:string;         //多区域出入区报警设定：区域一
  strArea2:string;         //多区域出入区报警设定：区域二
  strArea3:string;         //多区域出入区报警设定：区域三
  strArea4:string;         //多区域出入区报警设定：区域四
  strArea5:string;         //多区域出入区报警设定：区域五
  strArea6:string;         //多区域出入区报警设定：区域六
  strFinishSet:string;     //多区域出入区报警设定：完成设定
  strAlarmMode:string;     //多区域出入区报警设定：警报模式
 // strIntervalTime:string;  //多区域出入区报警设定：间隔时间
  strCarryTime:string;     //多区域出入区报警设定：次数

  strStopSpeed:string;      //超时停留参数设定：停留速度
  strIntervalTime3:string;  //超时停留参数设定：间隔时间
  strCarryTime3:string;     //超时停留参数设定：次数
begin
  ClientUnitTCar:=UnitTCar.create('-','00');
  strSendToServer:='';
  strOrderSequence:='0000';
  strDestMobile:=edtMobile.Text;
  strOrderReturn:='0';
  case  PageControl1.ActivePageIndex of
     0:
       BEGIN
         strOrderReturn:='0';
         strOrderStyle:='1';
         strIntervalTime:=edtIntervalTime.Text;
         if chkCarryStyle.Checked then
            strCarryStyle:='1'
         else
       //    begin
            strCarryStyle:='0';
            strTimes:=edtCarryTime.Text;
            strStartTime:=edtStartTime.Text;
            strEndTime:=edtFinishTime.text;
            strSendToServer:=strDestMobile+ClientUnitTCar.TimeCarryPosition(strOrderSequence,strOrderStyle,strIntervalTime,strCarryStyle,strTimes,strStartTime,strEndTime,strOrderReturn)+'00';
        //   end;
       end;
      1:
        begin
          if chkStopReturn.Checked then
             strOrderStyle:='2'
          else
            strOrderStyle:='';
            strSendToServer:=strDestMobile +ClientUnitTCar.DataCarryStopOrder(strOrderSequence,strOrderStyle,strOrderReturn);
        end;
      2:
        begin
          strOrderStyle:='3';
          strCenterCode:=edtCenterCode.Text;
          strSendTOServer:=strDestMobile + ClientUnitTCar.SetSMSCenterCode(strOrderSequence,strOrderStyle,strCenterCode,strOrderReturn);
        end;
      3:
        begin
          strOrderStyle:='4';
          strLeftLong1:=edtLeftLong1.Text;
          strLeftLat1:=edtLeftLat1.Text;
          strRightLong1:=edtRightLong1.Text;
          strRightLat1:=edtRightLat1.Text;
          strMode:=edtMode.Text;
          strIntervalTime1:=edtIntervalTime1.Text;
          strTimes:=edtTimes.Text;
          strSendToServer:=strDestMobile+ClientUnitTCar.AreaCautionOrder(strOrderSequence,strOrderStyle,strLeftLong1,
                          strLeftLat1,strRightLong1,strRightLat1,strMode,strIntervalTime1,strTimes,strOrderReturn);  
        end;
      4:
        begin
           strOrderStyle:='6';
           if chkStealCaution.Checked then
              strWetStealCaution:='1'
           else
              strWetStealCaution:='0';
           if chkAreaCaution.Checked then
              strWetAreaCaution:='1'
           else
              strWetAreaCaution:='0';
           if chkSpeedCaution.Checked then
              strWetSpeedCaution:='1'
           else
              strWetSpeedCaution:='0';
           if chkUrgencyCaution.Checked then
              strWetUrgencyCaution:='1'
           else
              strWetUrgencyCaution:='0';
           strSendToServer:=strDestMobile+ClientUnitTCar.EventEraseOrder(strOrderSequence,strOrderStyle,strWetStealCaution,strWetAreaCaution,strWetSpeedCaution,strWetUrgencyCaution,strOrderReturn);   
        end;
      5:
         begin
            strOrderStyle:='7';
            strCenterOrder1 := edtCenterCode1.Text;
            strSendToServer:=StrDestMobile+ClientUnitTcar.SetSMSCenterCode(strOrderSequence,strOrderStyle,strCenterOrder1,strOrderReturn);
         end;
      6:
         begin
            strOrderStyle:='8';
            strMaxSpeed:=edtMaxSpeed.Text;
            strContinuousSpeedTime:=edtContinuousSpeedTime.Text;
            strSpeedTime:=edtSpeedTime.Text;
            strSendToServer:=strDestMobile+ClientUnitTCar.SetOverSpeed(strOrderSequence,strOrderStyle,strMaxSpeed,strContinuousSpeedTime,
                             strSpeedTime,strOrderReturn);
         end;
       7:
         begin
            strOrderStyle:='9';
            if chkListenStyle.Checked then
               strListenStyle :='1'
            else
               strListenStyle:='0';
            strListenTele:=edtListenTele.Text;
            strSendToServer:=strDestMobile+ClientUnitTCar.ListenReady(strOrderSequence,strOrderStyle,strListenStyle,strListenTele);
         end;
        8:
          begin
             strOrderStyle:='A';
             strSendToServer:=strDestMobile+ClientUnitTCar.ListenStop(strOrderSequence,strOrderStyle,strOrderReturn);
          end;
        9:
           begin
              strOrderStyle:='C';
              strACC_ON_Time:=edtACC_ON_Time.Text;
              strACC_OFF_Time:=edtACC_OFF_Time.Text;
              strSendToServer:=strDestMobile+ClientUnitTCar.AccChangeAlarm(strOrderSequence,strOrderStyle,strACC_ON_Time,
                               strACC_OFF_Time,strOrderReturn);
                                      
           end;
        10:
           begin
              strOrderStyle:='F';
              strOldPassword:=edtOldPassword.Text;
              strNewPassword:=edtNewPassword.Text;
              strSendToServer:=strDestMobile+ClientUnitTCar.ChangeCarUnitCode(strOrderSequence,
                               strOrderStyle,strNewPassword,strOldPassword,strOrderReturn);
           end;
        11:
           begin
              strOrderStyle:='G';
              strLimitStyle:=edtLimitStyle.Text;
              strLimitCode1:=edtLimitCode1.Text;
              strLimitCode2:=edtLimitCode2.Text;
              strLimitCode3:=edtLimitCode3.Text;
              strLimitCode4:=edtLimitCode4.Text;
              strLimitCode5:=edtLimitCode5.Text;
              strSendToServer:=strDestMobile+ClientUnitTCar.SetListenTeleCode(strOrderSequence,strOrderStyle,
                               strLimitStyle,strLimitCode1,strLimitCode2,strLimitCode3,strLimitCode4,strLimitCode5,strOrderReturn);   
           end;
        12:
           begin
             strOrderStyle:='K';
             strSearchStyle:=edtSearchStyle.Text;
             strSendToServer:=strDestMobile+ClientUnitTCar.SetCarUnitSearch(strOrderSequence,strOrderStyle,strSearchStyle);
           end;
        13:
           begin
              strOrderStyle:='L';
              strSendToServer:=strDestMobile+ClientUnitTCar.AtPresentPosition(strOrderSequence,strOrderStyle);
           end;
        14:
           begin
               strOrderStyle:='M';
               strMAreaCode:=edtMAreaCode.Text;
               strAreaAmount:=edtAreaAmount.Text;
               strstartNumber:=edtStartNumber.Text;
               strAreaNumber:=edtAreaNumber.Text;
               strArea1:=edtArea1Left.Text+edtArea1Right.Text;
               strArea2:=edtArea2Left.Text+edtArea2Right.Text;
               strArea3:=edtArea3Left.Text+edtArea3Right.Text;
               strArea4:=edtArea4Left.Text+edtArea4Right.Text;
               strArea5:=edtArea5Left.Text+edtArea5Right.Text;
               strArea6:=edtArea6Left.Text+edtArea6Right.Text;
               strFinishSet:=edtFinishSet.Text;
               strAlarmMode:=edtAlarmMode.Text;
               strIntervalTime:=edtIntervalTime.Text;
               strCarryTime:=edtCarryTime.Text;
               strSendToServer:=strDestMobile+ClientUnitTCar.MAreaAlarm(strOrderSequence,strOrderStyle,
                                strMAreaCode,strAreaAmount,strStartNumber,strAreaNumber,strArea1,strArea2,strArea3,
                                strArea4,strArea5,strArea6,strFinishSet,strAlarmMode,strIntervalTime,strCarryTime,strOrderReturn);
              
           end;
        15:
           begin
              strOrderStyle:='N';
              strSendToServer:=strDestMobile+ClientUnitTCar.AgainActivationAreaAlarm(strOrderSequence,strOrderStyle,strOrderReturn);
           end;
         16:
            begin
               strOrderStyle:='V';
               strSendToServer:=strDestMobile+ClientUnitTCar.PauseMAreaMonitor(strOrderSequence,strOrderStyle,strOrderReturn);
            end;

         17:
            begin
                strOrderStyle:='O';
                strStartNumber:=edtStartNumber.Text;
                strAreaNumber:=edtAreaNumber.Text;
                strSendToServer:=strDestMobile+ClientUnitTCar.SearchMAreaAlarm(strOrderSequence,strOrderStyle,strStartTime,strAreaNumber);
            end;
         18:
            begin
                strOrderStyle:='P';
                strStopSpeed:=edtStopSpeed.Text;
                strIntervalTime3:=edtIntervalTime3.Text;
                strCarryTime3:=edtCarryTime2.Text;
                strSendToServer:=strDestMobile+ClientUnitTCar.SetOverTimeSettle(strOrderSequence,strOrderStyle,strStopSpeed,strIntervalTime3,
                                 strCarryTime3,strOrderReturn);
            end;
         19:
            begin
                strOrderStyle:='Q';
                strIntervalTime:=edtIntervalTime4.Text;
                strCarryTime:=edtCarryTime.Text;
                strSendToServer:=strDestMobile+ClientUnitTCar.SetLongTimeNotLocation(strOrderSequence,strOrderStyle,strIntervalTime,strCarryTime,strOrderReturn);
            end;
         20:
            begin
                strOrderStyle:='S';
                strSendToServer:=strDestMobile+ClientUnitTCar.ResetCarUnit(strOrderSequence,strOrderStyle,strOrderReturn);
            end;
         21:
            begin
                strOrderStyle:='W';
                strSendToServer:=strDestMobile+ClientUnitTCar.EraseAllSet(strOrderSequence,strOrderStyle,strOrderReturn);
            end;
  end;
  intSend:=ClientSocket.Socket.SendText(strSendToServer);
end;

procedure TForm1.UClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i:integer;
  strRec:string;
begin
  //strRec:=socket.
  strRec:=Socket.ReceiveText;
  //memo1.Lines.AddStrings(strRec);
 // memo1.Text:=memo1.Text+strRec;
  i:=memo1.Lines.Add(strRec);
end;

end.