⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.~pas

📁 GPRS_DTU设置程序源代码
💻 ~PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
edt21.Visible := False ;
lbl19.Visible := False ;
edt17.Visible := False ;
edt22.Visible := False ;
end;
if cbb6.Text = '4' then
begin
lbl16.Visible := True ;
edt14.Visible := True ;
edt19.Visible := True ;
lbl17.Visible := True ;
edt15.Visible := True ;
edt20.Visible := True ;
lbl18.Visible := True ;
edt16.Visible := True ;
edt21.Visible := True ;
lbl19.Visible := False ;
edt17.Visible := False ;
edt22.Visible := False ;
end;
if cbb6.Text = '5' then
begin
lbl16.Visible := True ;
edt14.Visible := True ;
edt19.Visible := True ;
lbl17.Visible := True ;
edt15.Visible := True ;
edt20.Visible := True ;
lbl18.Visible := True ;
edt16.Visible := True ;
edt21.Visible := True ;
lbl19.Visible := True ;
edt17.Visible := True ;
edt22.Visible := True ;
end;

end;

end;

procedure TFrm_Main.tmr2Timer(Sender: TObject);
begin
bsknstspnl1.Caption:=datetimetostr(now);
end;

procedure TFrm_Main.cbb7Change(Sender: TObject);
begin
 case (Sender as TbsSkinComboBox).ItemIndex of
    0:
    begin
      chk3.Checked := true;
      chk3.Enabled := true;
      chk4.Checked := false;
      chk4.Enabled := true;
    end;
    1:
    begin
      mmo1.Clear;
      chk3.Checked := false;
      chk3.Enabled := false;
      chk4.Checked := false;
      chk4.Enabled := true;
    end;
    2:
    begin
      mmo1.Clear;
      chk3.Checked := false;
      chk3.Enabled := false;
      chk4.Checked := true;
      chk4.Enabled := false;
    end;
  end;     
end;

procedure TFrm_Main.btn18Click(Sender: TObject);
var
  Dir: string;
begin
  if SelectDirectory(Frm_Main.Handle, '请选择要保存接收数据的目录', ' ', Dir) then
    edt25.Text := Dir;
end;

procedure TFrm_Main.btn19Click(Sender: TObject);
var
  myFile: string;
  Str: string;
  f: file;
begin
  myFile := edt25.Text;
  if not DirectoryExists(myFile) then
    CreateDir(myFile);
  myFile := myFile + 'Rec' + FormatDateTime('yymmddhhssnn', Now);
  case cbb7.ItemIndex of
    0..1:
    begin
      myFile := myFile + '.txt';  //文本文件
      Str := mmo1.Text;
    end;
    2:
    begin
      myFile := myFile + '.bin';  //二进制文件
      Str := HexStrToStr(mmo1.Text);
    end;
  end;
  AssignFile(f, myFile);
  FileMode := fmOpenWrite;
  {$I-}
  Rewrite(f, 1);
  {$I+}
  try
    BlockWrite(f, PChar(@Str[1])^, Length(Str));
  finally
    CloseFile(f);
  end;
  Application.MessageBox(PChar(myFile + '  已保存'), '信息',
    MB_ICONWARNING or MB_OK);
end;

procedure TFrm_Main.tmr3Timer(Sender: TObject);
begin
SendString('+++++++');
end;

procedure TFrm_Main.btn4Click(Sender: TObject);
begin
if rb1.Checked = True then
begin

if cbb6.Text = '1' then
begin
SendString('AT+IP1='+edt1.text+chr(13));
sleep(1000);
SendString('AT+PT1='+edt6.text+chr(13));
end;

if cbb6.Text = '2' then
begin
SendString('AT+IP1='+edt1.text+chr(13));
sleep(1000);
SendString('AT+PT1='+edt6.text+chr(13));
sleep(1000);
SendString('AT+IP2='+edt2.text+chr(13));
sleep(1000);
SendString('AT+PT2='+edt7.text+chr(13));
end;

if cbb6.Text = '3' then
begin
SendString('AT+IP1='+edt1.text+chr(13));
sleep(1000);
SendString('AT+PT1='+edt6.text+chr(13));
sleep(1000);
SendString('AT+IP2='+edt2.text+chr(13));
sleep(1000);
SendString('AT+PT2='+edt7.text+chr(13));
sleep(1000);
SendString('AT+IP3='+edt3.text+chr(13));
sleep(1000);
SendString('AT+PT3='+edt8.text+chr(13));
end;

if cbb6.Text = '4' then
begin
SendString('AT+IP1='+edt1.text+chr(13));
sleep(1000);
SendString('AT+PT1='+edt6.text+chr(13));
sleep(1000);
SendString('AT+IP2='+edt2.text+chr(13));
sleep(1000);
SendString('AT+PT2='+edt7.text+chr(13));
sleep(1000);
SendString('AT+IP3='+edt3.text+chr(13));
sleep(1000);
SendString('AT+PT3='+edt8.text+chr(13));
sleep(1000);
SendString('AT+IP4='+edt4.text+chr(13));
sleep(1000);
SendString('AT+PT4='+edt9.text+chr(13));
end;

if cbb6.Text = '5' then
begin
SendString('AT+IP1='+edt1.text+chr(13));
sleep(1000);
SendString('AT+PT1='+edt6.text+chr(13));
sleep(1000);
SendString('AT+IP2='+edt2.text+chr(13));
sleep(1000);
SendString('AT+PT2='+edt7.text+chr(13));
sleep(1000);
SendString('AT+IP3='+edt3.text+chr(13));
sleep(1000);
SendString('AT+PT3='+edt8.text+chr(13));
sleep(1000);
SendString('AT+IP4='+edt4.text+chr(13));
sleep(1000);
SendString('AT+PT4='+edt9.text+chr(13));
sleep(1000);
SendString('AT+IP5='+edt5.text+chr(13));
sleep(1000);
SendString('AT+PT5='+edt10.text+chr(13));
end;

end
else

if cbb6.Text = '1' then
begin
SendString('AT+NS1='+edt11.text+chr(13));
sleep(1000);
SendString('AT+NS2='+edt12.text+chr(13));
sleep(1000);
SendString('AT+DM1='+edt13.text+chr(13));
sleep(1000);
SendString('AT+DMPT1='+edt18.text+chr(13));
end;

if cbb6.Text = '2' then
begin
SendString('AT+NS1='+edt11.text+chr(13));
sleep(1000);
SendString('AT+NS2='+edt12.text+chr(13));
sleep(1000);
SendString('AT+DM1='+edt13.text+chr(13));
sleep(1000);
SendString('AT+DMPT1='+edt18.text+chr(13));
sleep(1000);
SendString('AT+DM2='+edt14.text+chr(13));
sleep(1000);
SendString('AT+DMPT2='+edt19.text+chr(13));
end;

if cbb6.Text = '3' then
begin
SendString('AT+NS1='+edt11.text+chr(13));
sleep(1000);
SendString('AT+NS2='+edt12.text+chr(13));
sleep(1000);
SendString('AT+DM1='+edt13.text+chr(13));
sleep(1000);
SendString('AT+DMPT1='+edt18.text+chr(13));
sleep(1000);
SendString('AT+DM2='+edt14.text+chr(13));
sleep(1000);
SendString('AT+DMPT2='+edt19.text+chr(13));
sleep(1000);
SendString('AT+DM3='+edt15.text+chr(13));
sleep(1000);
SendString('AT+DMPT3='+edt20.text+chr(13));
end;

if cbb6.Text = '4' then
begin
SendString('AT+NS1='+edt11.text+chr(13));
sleep(1000);
SendString('AT+NS2='+edt12.text+chr(13));
sleep(1000);
SendString('AT+DM1='+edt13.text+chr(13));
sleep(1000);
SendString('AT+DMPT1='+edt18.text+chr(13));
sleep(1000);
SendString('AT+DM2='+edt14.text+chr(13));
sleep(1000);
SendString('AT+DMPT2='+edt19.text+chr(13));
sleep(1000);
SendString('AT+DM3='+edt15.text+chr(13));
sleep(1000);
SendString('AT+DMPT3='+edt20.text+chr(13));
sleep(1000);
SendString('AT+DM4='+edt16.text+chr(13));
sleep(1000);
SendString('AT+DMPT4='+edt21.text+chr(13));
end;

if cbb6.Text = '5' then
begin
SendString('AT+NS1='+edt11.text+chr(13));
sleep(1000);
SendString('AT+NS2='+edt12.text+chr(13));
sleep(1000);
SendString('AT+DM1='+edt13.text+chr(13));
sleep(1000);
SendString('AT+DMPT1='+edt18.text+chr(13));
sleep(1000);
SendString('AT+DM2='+edt14.text+chr(13));
sleep(1000);
SendString('AT+DMPT2='+edt19.text+chr(13));
sleep(1000);
SendString('AT+DM3='+edt15.text+chr(13));
sleep(1000);
SendString('AT+DMPT3='+edt20.text+chr(13));
sleep(1000);
SendString('AT+DM4='+edt16.text+chr(13));
sleep(1000);
SendString('AT+DMPT4='+edt21.text+chr(13));
sleep(1000);
SendString('AT+DM5='+edt17.text+chr(13));
sleep(1000);
SendString('AT+DMPT5='+edt22.text+chr(13));
end;

end;

procedure TFrm_Main.btn3Click(Sender: TObject);
begin
SendString('AT+REST=1'+chr(13));
bsknchckrdbx2.Checked:=True ;
end;

procedure TFrm_Main.btn7Click(Sender: TObject);
begin
SendString('AT+HTH=?'+chr(13));
end;

procedure TFrm_Main.btn8Click(Sender: TObject);
begin
SendString('AT+APN=?'+chr(13));
end;

procedure TFrm_Main.btn10Click(Sender: TObject);
begin
SendString('AT+AGREE=?'+chr(13));
end;

procedure TFrm_Main.btn11Click(Sender: TObject);
begin
SendString('AT+AIP=?'+chr(13));
end;

procedure TFrm_Main.btn5Click(Sender: TObject);
begin
SendString('AT+APT=?'+chr(13));
end;

procedure TFrm_Main.btn9Click(Sender: TObject);
begin
SendString('AT+AT=?'+chr(13));
end;

procedure TFrm_Main.btn20Click(Sender: TObject);
begin
SendString('AT+RST=1'+chr(13));
end;

procedure TFrm_Main.btn21Click(Sender: TObject);
begin
SendString('AT+SIG=1'+chr(13));
end;

procedure TFrm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
cm1.StopComm;
end;

procedure TFrm_Main.btn24Click(Sender: TObject);
begin

if rb3.Checked = True then
  begin
  SendString('AT+IFDNS=0'+chr(13));
  sleep(1000);
   end
  else
  begin
  SendString('AT+IFDNS=1'+chr(13));
  sleep(1000);
  end;

if chk5.Checked = True then
begin
SendString('AT+DEBUG=1'+chr(13));
sleep(1000);
end
else
begin
SendString('AT+DEBUG=0'+chr(13));
sleep(1000);
end;

SendString('AT+BAUD='+cbb8.Text+chr(13));
sleep(1000);
SendString('AT+DTU='+edt26.Text+chr(13));
sleep(1000);
SendString('AT+SIM='+edt27.Text+chr(13));
sleep(1000);
SendString('AT+HTH='+edt28.Text+chr(13));
sleep(1000);
SendString('AT+AGREE='+cbb9.Text+chr(13));
sleep(1000);
SendString('AT+STR='+edt30.Text+chr(13));
sleep(1000);
SendString('AT+STRS='+edt31.Text+chr(13));
sleep(1000);
SendString('AT+APN='+edt29.Text+chr(13));
end;

procedure TFrm_Main.btn22Click(Sender: TObject);
begin
SendString('AT+SHUTDOWN'+edt29.Text+chr(13));
end;

procedure TFrm_Main.btn23Click(Sender: TObject);
begin
if rb3.Checked = True then
  begin
  SendString('AT+IFDNS=0'+chr(13));
   end
  else
  begin
  SendString('AT+IFDNS=1'+chr(13));
  end;
end;

procedure TFrm_Main.btn25Click(Sender: TObject);
begin
if chk5.Checked = True then
begin
SendString('AT+DEBUG=1'+chr(13));
end
else
begin
SendString('AT+DEBUG=0'+chr(13));
end;
end;

procedure TFrm_Main.btn26Click(Sender: TObject);
begin
SendString('AT+BAUD='+cbb8.Text+chr(13));
end;

procedure TFrm_Main.btn27Click(Sender: TObject);
begin
SendString('AT+DTU='+edt26.Text+chr(13));
end;

procedure TFrm_Main.btn28Click(Sender: TObject);
begin
SendString('AT+SIM='+edt27.Text+chr(13));
end;

procedure TFrm_Main.btn29Click(Sender: TObject);
begin
SendString('AT+HTH='+edt28.Text+chr(13));
end;

procedure TFrm_Main.btn30Click(Sender: TObject);
begin
SendString('AT+AGREE='+cbb9.Text+chr(13));
end;

procedure TFrm_Main.btn31Click(Sender: TObject);
begin
SendString('AT+STR='+edt30.Text+chr(13));
end;

procedure TFrm_Main.btn32Click(Sender: TObject);
begin
SendString('AT+STRS='+edt31.Text+chr(13));
end;

procedure TFrm_Main.btn33Click(Sender: TObject);
begin
SendString('AT+APN='+edt29.Text+chr(13));
end;

end.
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -