?? ucommtest.~pas

?? DELPHI串口通訊程序
?? ~PAS
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào):
上一頁(yè)12
  try
    Ini.WriteInteger( '串口通信', '波特率', BaudRate);
    Ini.WriteString( '串口通信', '發(fā)送串口', SendComm);
    Ini.WriteString( '串口通信', '接收串口', RecvComm );
    Ini.WriteBool( '串口通信', '奇偶校驗(yàn)', Parity);
    Ini.WriteString( '串口通信', '字節(jié)長(zhǎng)度', ByteSize);
    Ini.WriteString( '串口通信', '停止位', StopBits);
  finally
    Ini.Free;
  end;
end;

procedure TCommTestFrm.BTNResetCommSetClick(Sender: TObject);
begin
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'CommSet.ini');
  try
    BaudRate := Ini.ReadInteger( '串口通信', '波特率', 9600);
    SendComm := Ini.ReadString( '串口通信', '發(fā)送串口', 'Com2');
    RecvComm := Ini.ReadString( '串口通信', '接收串口', 'Com3' );
    Parity   := Ini.ReadBool( '串口通信', '奇偶校驗(yàn)', False);
    ByteSize := Ini.ReadString( '串口通信', '字節(jié)長(zhǎng)度', '_8');
    StopBits := Ini.ReadString( '串口通信', '停止位', '_1');
    EditAck1.Text := Ini.ReadString( '串口測(cè)試', '握手信號(hào)1', 'F0');
    EditAck2.Text := Ini.ReadString( '串口測(cè)試', '握手信號(hào)2', '01');
    EditAck3.Text := Ini.ReadString( '串口測(cè)試', '握手信號(hào)3', 'FF');
    EditAck4.Text := Ini.ReadString( '串口測(cè)試', '握手信號(hào)4', 'FF');
    EditAck5.Text := Ini.ReadString( '串口測(cè)試', '握手信號(hào)5', '01');
    EditAck6.Text := Ini.ReadString( '串口測(cè)試', '握手信號(hào)6', 'F0');
  finally
    Ini.Free;
  end;
//設(shè)置串口通信界面
  if BaudRate = 1200 then CmbBaudRate.ItemIndex :=0
  else if BaudRate = 2400 then CmbBaudRate.ItemIndex :=1
  else if BaudRate = 4800 then CmbBaudRate.ItemIndex :=2
  else if BaudRate = 9600 then CmbBaudRate.ItemIndex :=3
  else if BaudRate = 19200 then CmbBaudRate.ItemIndex :=4
  else if BaudRate = 38400 then CmbBaudRate.ItemIndex :=5
  else if BaudRate = 57600 then CmbBaudRate.ItemIndex :=6
  else CmbBaudRate.ItemIndex :=7;
  if SendComm = 'Com1' then CmbSendComm.ItemIndex :=0
  else if SendComm = 'Com2' then CmbSendComm.ItemIndex :=1
  else if SendComm = 'Com3' then CmbSendComm.ItemIndex :=2
  else CmbSendComm.ItemIndex :=3;
  if RecvComm = 'Com1' then CmbRecvComm.ItemIndex :=0
  else if RecvComm = 'Com2' then CmbRecvComm.ItemIndex :=1
  else if RecvComm = 'Com3' then CmbRecvComm.ItemIndex :=2
  else CmbRecvComm.ItemIndex :=3;
  if Parity  then
      RadioParity.ItemIndex := 0
  else  RadioParity.ItemIndex := 1;
  if ByteSize = '_8' then
      RadioByteSize.ItemIndex :=0
  else  RadioByteSize.ItemIndex := 1;
  if StopBits = '_1' then
      RadioStopBits.ItemIndex := 0
  else  if StopBits = '_1_5' then
      RadioStopBits.ItemIndex := 1
  else  RadioStopBits.ItemIndex := 2;
  //設(shè)置COMM1
  Comm1.CommName := SendComm;
  Comm1.BaudRate := BaudRate;
  if ByteSize = '_8' then  Comm1.ByteSize := _8
  else  Comm1.ByteSize := _7;
  if StopBits = '_1' then Comm1.StopBits := _1
  else if StopBits = '_1_5' then Comm1.StopBits := _1_5
  else Comm1.StopBits := _2;
  Comm1.ParityCheck := Parity;
  //設(shè)置COMM2
  Comm2.CommName := RecvComm;
  Comm2.BaudRate := BaudRate;
  if ByteSize = '_8' then  Comm2.ByteSize := _8
  else  Comm1.ByteSize := _7;
  if StopBits = '_1' then Comm2.StopBits := _1
  else if StopBits = '_1_5' then Comm2.StopBits := _1_5
  else Comm2.StopBits := _2;
  Comm2.ParityCheck := Parity;
end;

procedure TCommTestFrm.FormCreate(Sender: TObject);
begin
  BTNResetCommSetClick(Sender);
  Comm1.StartComm;
  Comm2.StartComm;
end;

procedure TCommTestFrm.BTNSaveAckClick(Sender: TObject);
var
  Ini: TIniFile;
  AckSet1, AckSet2,AckSet3,AckSet4,AckSet5,AckSet6: string;
begin
  AckSet1 := Copy(EditAck1.Text,1,2);   //前兩位有效
  AckSet2 := EditAck2.Text;
  AckSet3 := EditAck3.Text;
  AckSet4 := EditAck4.Text;
  AckSet5 := EditAck5.Text;
  AckSet6 := EditAck6.Text;
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'CommSet.ini');
  try
    Ini.WriteString( '串口測(cè)試', '握手信號(hào)1', AckSet1);
    Ini.WriteString( '串口測(cè)試', '握手信號(hào)2', AckSet2);
    Ini.WriteString( '串口測(cè)試', '握手信號(hào)3', AckSet3);
    Ini.WriteString( '串口測(cè)試', '握手信號(hào)4', AckSet4);
    Ini.WriteString( '串口測(cè)試', '握手信號(hào)5', AckSet5);
    Ini.WriteString( '串口測(cè)試', '握手信號(hào)6', AckSet6);
  finally
    Ini.Free;
  end;
end;
 
//發(fā)送按鈕的點(diǎn)擊事件
procedure TCommTestFrm.StartSendActionExecute(Sender: TObject);
var
  strSend: String;
  i: Integer;
begin
  try
    Comm1.StopComm;
    Comm1.StartComm;
  except
    Messagedlg('無(wú)法打開COMM1!', mterror, [mbOK],0);
  end;
  Sleep(50);
  StatusBar1.Panels[1].Text := '串口1已啟動(dòng)';
  for i:= 0 to Memo1.Lines.Count -1 do
  begin
    strSend := Memo1.Lines[i];
    try
    StatusBar1.Panels[1].Text := '串口1正在發(fā)送數(shù)據(jù)';
    Comm1.WriteCommData(PChar(strSend) , Length(strSend));
    except
     Showmessage('發(fā)送錯(cuò)誤');
    end;
  end;
end;

procedure TCommTestFrm.StopReciveActionExecute(Sender: TObject);
begin
  Comm2.StopComm; //關(guān)閉Comm2
  StatusBar1.Panels[2].Text := '串口2已關(guān)閉';
end;

procedure TCommTestFrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Comm1.StopComm; //關(guān)閉Comm1
  Comm2.StopComm; //關(guān)閉Comm2
end;

procedure TCommTestFrm.StopSendActionExecute(Sender: TObject);
begin
  Comm1.StopComm;//關(guān)閉Comm1
  StatusBar1.Panels[1].Text := '串口1已關(guān)閉';
end;

procedure TCommTestFrm.Comm2ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
type
  IArr = ^Integer;
  var
    RevP : array [1..4096] of byte;
    i : integer;
    CommRevStr : ShortString;
begin
  SetLength(CommRevStr,BufferLength);
  Move(IArr(buffer)^,Revp,bufferLength);
  For i:=1 to BufferLength do
    begin
     CommrevStr[i] := Char(Revp[i]);
    end;
  Memo2.Lines.Add(CommrevStr);
  StatusBar1.Panels[2].Text := '串口2正在接收數(shù)據(jù)';
end;

procedure TCommTestFrm.TestCommActionExecute(Sender: TObject);
begin
  if not Testing then
  begin
   Testing := True;
   NextNum := 0;
   Comm1.WriteCommData(Pchar(EditAck1.Text),Length(Pchar(EditAck1.Text)));
   StatusBar1.Panels[1].Text := '串口1正在發(fā)送測(cè)試數(shù)據(jù)';
  end;
end;

procedure TCommTestFrm.StartReciveActionExecute(Sender: TObject);
begin
  try
    Comm2.StopComm;
    Comm2.StartComm;
  except
    Messagedlg('無(wú)法打開COMM2!', mterror, [mbOK],0);
  end;
  Sleep(50);
  StatusBar1.Panels[2].Text := '串口2已啟動(dòng)';
end;

procedure TCommTestFrm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
begin
   StatusBar1.Panels[1].Text := '串口1正在接收數(shù)據(jù)';
end;

procedure TCommTestFrm.SendWinMenuClick(Sender: TObject);
begin
  GroupBox1.Visible:= SendWinMenu.Checked;
end;

procedure TCommTestFrm.CommSetMenuClick(Sender: TObject);
begin
  GroupBox2.Visible := CommSetMenu.Checked;
  Panel1.Visible := CommSetMenu.Checked;
end;

procedure TCommTestFrm.ToolBarMenuClick(Sender: TObject);
begin
  CoolBar1.Visible := ToolBarMenu.Checked;
end;

procedure TCommTestFrm.RecvWinMenuClick(Sender: TObject);
begin
  GroupBox3.Visible := RecvWinMenu.Checked;
  if GroupBox1.Align = alClient then
    begin
      GroupBox1.Align  := alLeft;
      GroupBox1.Width := (CommTestFrm.Width - GroupBox2.Width) div 2;
    end
  else
     GroupBox1.Align := alClient;
end;

procedure TCommTestFrm.Comm1SendDataEmpty(Sender: TObject);
var Str: String;
begin
  if not Testing  then exit;
  NextNum := NextNum+1;
  if NextNum <= 5 then
      begin
       if NextNum = 1 then Str := EditAck2.Text
       else if NextNum = 2 then Str := EditAck3.Text
       else if NextNum = 3 then Str := EditAck4.Text
       else if NextNum = 4 then Str := EditAck5.Text
       else if NextNum = 5 then Str := EditAck6.Text;
       Comm1.WriteCommData(Pchar(Str),Length(Pchar(Str)));
      end
  else
  begin
    StatusBar1.Panels[1].Text := '串口1測(cè)試完畢';
    Testing := False;
  end;
end;

procedure TCommTestFrm.Comm2RequestHangup(Sender: TObject);
begin
  StatusBar1.Panels[2].Text := '串口2需要掛起了';
end;

end.
上一頁(yè)12
?? 文件大小 285 K
?? 上傳用戶 q459753722
?? 所屬分類 Delphi控件源碼
??? 相關(guān)標(biāo)簽

#DELPHI #串口通訊 #程序
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ucommtest.~pas

?? 快捷鍵說(shuō)明
