com.exe

很好的串口通讯 很好的串口通讯 很好的串口通讯

序列号：CSA5V1-S7RJNG-EQV4S6-G8E200 ID：U2MZUAJ6QFVR 
序列号: EWUVP3-3NWFMO-PUMFS2-PT5200 ID:RCHVDD9T 
序列号: JUQVN2 CWEFLP J7JAC3 Q23200 ID:RCHVEPWV 
序列号: JUQVN2 CWEFLP J7JAC3 Q23200 ID:RCHVEPWV 
序列号: U0I26A-W84GHI-NR8KSB-SU6200 ID:RCRSM1SU 
序列号: HW5P8T-4FQE27-13N3SQ-IT5200 ID:RCHVE6RN


procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  aa : array[1..5] of char;
  i, j : integer;
  a_rsv, s_hex : string;
begin
  setlength(a_rsv, BufferLength);
  move(buffer^,pchar(a_rsv)^,BufferLength);

  if (pos('xmyns',a_rsv) > 0)and(PDJXPCheckBox1.Checked = false) then
    begin
      sleep(1500);
      aa[1] := 'x';
      aa[2] := 'm';
      aa[3] := 'y';
      aa[4] := 'n';
      aa[5] := 's';
      for i :=1 to 5 do
        begin
          Comm1.WriteCommData(@aa[i],1);
          sleep(40);
        end;
      sleep(800);
      PDJXPButton30.Click;
      sleep(2000);
      PDJXPButton3.Click;
      sleep(800);

      PDJXPCheckBox1.Checked:= true;
      PDJXPButton18.Click;
      PDJXPMemo1.Clear;
    end;

  if pos('连接成功!',a_rsv)>0 then
    begin
      PDJXPEdit12.Enabled := true;
      PDJXPButton22.Enabled := true;
      PDJXPCheckBox2.Enabled := true;
      PDJXPCheckBox3.Enabled := true;
      PDJXPEdit18.Enabled := true;
      Label29.Enabled := true;
      Label30.Enabled := true;
      PDJXPCheckBox4.Enabled := true;
      PDJXPCheckBox1.Checked := false;
      beep;

    end;

  if PDJXPCheckBox2.Checked = false then
    PDJXPMemo1.Lines.Add(a_rsv)
  else
    begin
      for j := 1 to BufferLength do
        s_hex := s_hex+inttohex(ord(a_rsv[j]),2)+ ' ';
      PDJXPMemo1.Lines.Add(s_hex);
    end;

  if PDJXPCheckBox4.Checked = true then
    PDJXPButton22.Click;
end;