apggps.~pas

利用SPCOMM和Socket写的高速短信串口服务器

      //  connect_btn.Enabled:=false;
      //  sendMessage.Enabled:=true;
      //  al_read.Enabled:=true;
      //  un_read.Enabled:=true;
      //  read_index.Enabled:=true;
      //  al_send.Enabled:=true;
      //  un_send.Enabled:=true;
      //  list_all.Enabled:=true;
     //   del_num.Enabled:=true;
     //   writetosim.Enabled:=true;
       // Fcomm.StatusBar3.Panels[0].Text:='PC通过'+comm1.CommName+'与手机连接成功';
        frmMain.StatusBar1.Panels[0].Text:='PC通过' +comm1.CommName+'与短信转发终端连接成功';
        end
      else
      begin
        comm1.StopComm;
       // connect_btn.Enabled:=true;
       // Fcomm.StatusBar3.Panels[0].Text:='PC通过'+comm1.CommName+'与手机连接失败';
       // openPortbtn.Click;
        frmMain.StatusBar1.Panels[0].Text:='PC通过' +comm1.CommName+'与短信转发终端连接失败';
        messagebox(0,'PC与手机连接失败!','手机连接提示:',MB_ICONWARNING);
     end;
     end;

  1:
    begin
      frmMain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >10 then
    begin
      frmmain.statusbar1.Panels[1].Text:='未读短信读取失败!';
      waite_time:=0;
     // Un_read.Enabled:=true;
      messagebox(0,'短信读取失败','读取短信提示:',MB_ICONWARNING);
      exit;
    end;
      frmMain.Timer1.Enabled:=True;
      exit;
    end;
      message_Num:=ReturnSubstringNum(sms_flag,strTemp);
     // receivememo.Text:='共有 '+ inttostr(message_Num) +'未读短信:'+#$0D+#$0A;
    if message_num<>0 then
      begin
   for i:=1 to message_Num do
    begin
      DEcodePDU(smsm_data[i]);
     // receivememo.Text:=receivememo.Text+'第'+inttostr(i)+'短信：'+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.messageData +#$0D+#$0A+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送人号码：'+smsdatafull.callNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.numbertype +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'手机中存储位置：'+smsdatafull.messageindex +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'短信中心号码：'+smsdatafull.smscNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送日期:'+smsdatafull.smsDate+#$0D+#$0A+#$0D+#$0A;
    end;
      end
      else
     // receivememo.Text:=receivememo.Text+'没有未读短信！'+#$0D+#$0A;
     // Fcomm.StatusBar3.Panels[1].Text:='未读短信读取成功!';
     //  frmmain.StatusBar1.Panels[0].Text:='未读短信读取成功!'；
     // Un_read.Enabled:=true;
    end;

   2:
    begin
      frmMain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >20 then
    begin
      //Fcomm.StatusBar3.Panels[1].Text:='已读短信读取失败!';
      messagebox(0,'短信读取失败','读取短信提示:',MB_ICONWARNING);
      waite_time:=0;
     // al_read.Enabled:=true;
      exit;
    end;
      frmmain.Timer1.Enabled:=True;
      exit;
    end;
      message_Num:=ReturnSubstringNum(sms_flag,strTemp);
    //  receivememo.Text:='共有 '+ inttostr(message_Num) +'已读短信:'+#$0D+#$0A;
      if message_Num<>0 then
      begin
   for i:=1 to message_Num do
    begin
      DEcodePDU(smsm_data[i]);
     // receivememo.Text:=receivememo.Text+'第'+inttostr(i)+'短信：'+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.messageData +#$0D+#$0A+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送人号码：'+smsdatafull.callNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.numbertype +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'手机中存储位置：'+smsdatafull.messageindex +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'短信中心号码：'+smsdatafull.smscNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送日期:'+smsdatafull.smsDate+#$0D+#$0A+#$0D+#$0A;
    end;
    end
    else
    // receivememo.Text:=receivememo.Text+'没有已读短信';
     //  Fcomm.StatusBar3.Panels[1].Text:='已读短信读取成功!';
     //  al_read.Enabled:=true;
    end;

    3:
     begin
      frmmain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >10 then
    begin
     // Fcomm.StatusBar3.Panels[1].Text:='读取第'+read_number.Text +'条短信失败!';
      messagebox(0,'短信读取失败','读取短信提示:',MB_ICONWARNING);
      waite_time:=0;
     // read_index.Enabled:=true;
      exit;
    end;
      frmmain.Timer1.Enabled:=True;
      exit;
    end;
      message_Num:=ReturnSubstringNum(sms_flag,strTemp);
    //  receivememo.Text:='读出的第'+ read_number.Text+ '为：'+#$0D+#$0A;
      if message_Num<>0 then
      begin
      DEcodePDU(smsm_data[1]);
      if smsdatafull.messageData='' then
      begin
     // receivememo.Text:=receivememo.Text+'第'+read_number.Text+'短信不存在！' +#$0D+#$0A;
      end
      else
      begin
     // receivememo.Text:=receivememo.Text+'第'+read_number.Text+'短信：'+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.messageData +#$0D+#$0A+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送人号码：'+smsdatafull.callNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.numbertype +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'手机中存储位置：'+read_number.Text+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'短信中心号码：'+smsdatafull.smscNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送日期:'+smsdatafull.smsDate+#$0D+#$0A+#$0D+#$0A;
    //  Fcomm.StatusBar3.Panels[1].Text:='第'+ read_number.Text +'读取成功!';
      end;
      end
      else
      begin
    //  receivememo.Text:=receivememo.Text+'第'+read_number.Text+'短信不存在！' +#$0D+#$0A;
    //  Fcomm.StatusBar3.Panels[1].Text:='第'+ read_number.Text +'读取操作成功!';
      end;
    //  read_index.Enabled:=true;
    end;

    4:
      begin
      frmmain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >20 then
    begin
     // Fcomm.StatusBar3.Panels[1].Text:='存储已发短信读取失败!';
     // messagebox(0,'短信读取失败','读取短信提示:',MB_ICONWARNING);
      waite_time:=0;
     // al_send.Enabled:=true;
      exit;
    end;
      frmMain.Timer1.Enabled:=True;
      exit;
    end;
      message_Num:=ReturnSubstringNum(sms_flag,strTemp);
     // receivememo.Text:='共有 '+ inttostr(message_Num) +'存储已发短信:'+#$0D+#$0A;
      if message_Num<>0 then
      begin
   for i:=1 to message_Num do
    begin
      DEcodePDU(smsm_data[i]);
     // receivememo.Text:=receivememo.Text+'第'+inttostr(i)+'短信：'+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.messageData +#$0D+#$0A+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送人号码：'+smsdatafull.callNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.numbertype +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'手机中存储位置：'+smsdatafull.messageindex +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'短信中心号码：'+smsdatafull.smscNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送日期:'+smsdatafull.smsDate+#$0D+#$0A+#$0D+#$0A;
    end;
    end
    else
    // receivememo.Text:=receivememo.Text+'没有存储已读短信！';
    //   frmMain.StatusBar3.Panels[1].Text:='存储已发短信读取成功!';
    //   al_send.Enabled:=true;
      end;

    5:
      begin
      frmMain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >10 then
    begin
      //Fcomm.StatusBar3.Panels[1].Text:='存储未发短信读取失败!';
      messagebox(0,'短信读取失败','读取短信提示:',MB_ICONWARNING);
      waite_time:=0;
     // Un_send.Enabled:=true;
      exit;
    end;
      frmmain.Timer1.Enabled:=True;
      exit;
    end;
      message_Num:=ReturnSubstringNum(sms_flag,strTemp);
     // receivememo.Text:='共有 '+ inttostr(message_Num) +'存储未发短信：'+#$0D+#$0A;
      if message_Num<>0 then
      begin
   for i:=1 to message_Num do
    begin
      DEcodePDU(smsm_data[i]);
     // receivememo.Text:=receivememo.Text+'第'+inttostr(i)+'短信：'+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.messageData +#$0D+#$0A+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送人号码：'+smsdatafull.callNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.numbertype +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'手机中存储位置：'+smsdatafull.messageindex +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'短信中心号码：'+smsdatafull.smscNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送日期:'+smsdatafull.smsDate+#$0D+#$0A+#$0D+#$0A;
    end;
    end
    else
    // receivememo.Text:=receivememo.Text+'没有存储未发短信';
     //  Fcomm.StatusBar3.Panels[1].Text:='存储未发短信读取成功!';
     //  Un_send.Enabled:=true;
      end;

    6:
    begin
      frmMain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >10 then
    begin
     // Fcomm.StatusBar3.Panels[2].Text:='第'+Del_number.Text+'短信删除失败!';
      messagebox(0,'短信删除失败','删除短信提示:',MB_ICONWARNING);
      waite_time:=0;
     // Del_num.Enabled:=true;
      exit;
    end;
      frmMain.Timer1.Enabled:=True;
      exit;
    end;
      messagebox(0,'短信删除成功！','删除短信提示:',MB_ICONWARNING);
     // Fcomm.StatusBar3.Panels[2].Text:='第'+del_number.text+'删除成功!';
     // Del_num.Enabled:=true;
    end;

    7:
    begin
      frmMain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >5 then
    begin
      messagebox(0,'短信发送失败','发送短信提示:',MB_ICONWARNING);
      waite_time:=0;
     // sendmessage.Caption:='发送短信';
     // sendmessage.Enabled:=true;
     // autorecmessage.Enabled:=true;
    //  unconnect_btn.Enabled:=true;
      exit;
    end;
      frmMain.Timer1.Enabled:=True;
      exit;
    end;
     messagebox(0,'短信已成功发送!','发送短信提示:',MB_ICONWARNING);
   //  if send_write.Checked then
    //    writetosim.Click;
    // sendmessage.Caption:='发送短信';
    // autorecmessage.Enabled:=true;
    // sendmessage.Enabled:=true;
    // unconnect_btn.Enabled:=true;
    end;
    8:
     begin
      frmMain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >10 then
    begin
    //  Fcomm.StatusBar3.Panels[1].Text:='已读短信读取失败!';
      messagebox(0,'短信读取失败','读取短信提示:',MB_ICONWARNING);
      waite_time:=0;
    //  List_all.Enabled:=true;
      exit;
    end;
      frmMain.Timer1.Enabled:=True;
      exit;
    end;
      message_Num:=ReturnSubstringNum(sms_flag,strTemp);
     // receivememo.Text:='共有 '+ inttostr(message_Num) +'短信:'+#$0D+#$0A;
      if message_Num<>0 then
      begin
   for i:=1 to message_Num do
    begin
      DEcodePDU(smsm_data[i]);
     // receivememo.Text:=receivememo.Text+'第'+inttostr(i)+'短信：'+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.messageData +#$0D+#$0A+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送人号码：'+smsdatafull.callNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+smsdatafull.numbertype +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'手机中存储位置：'+smsdatafull.messageindex +#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'短信中心号码：'+smsdatafull.smscNumber+#$0D+#$0A;
     // receivememo.Text:=receivememo.Text+'发送日期:'+smsdatafull.smsDate+#$0D+#$0A+#$0D+#$0A;
    end;
    end
    else
    // receivememo.Text:=receivememo.Text+'没有任何短信';
     //  frmMain.StatusBar3.Panels[1].Text:='所有读短信读取成功!';
     //  List_all.Enabled:=true;
    end;
    9:
      begin
       begin
      frmMain.Timer1.Enabled:=false;
      strTemp:=Tempstr;
    if pos('OK',StrTemp)=0 then
    begin
      waite_time:=waite_time+1;
    if waite_time >5 then
    begin
      messagebox(0,'存贮失败','信息存储提示:',MB_ICONWARNING);
      waite_time:=0;
     // Writetosim.Caption:='发送短信';
     // writetosim.Enabled:=true;
     // autorecmessage.Enabled:=true;
     // unconnect_btn.Enabled:=true;
      exit;
    end;
      frmMain.Timer1.Enabled:=True;
      exit;
    end;
     messagebox(0,'短信已成功存储!','信息存储提示:',MB_ICONWARNING);
   //  Writetosim.Caption:='写入SIM';
   //  autorecmessage.Enabled:=true;
   //  Writetosim.Enabled:=true;
   //  unconnect_btn.Enabled:=true;
    end;

      end;
    else
    end;
   end;
end.