串口通讯源码实例（源码+文档）

[IO] bSerial ->0,1 (ReadBool)(writebool) PortNr ->String (WriteString)(ReadString) BaudRate DataBits StopBits Parity IOPort ->Integer (WriteInteger)(ReadInteger) [Mir] CodeMir0 ->Integer (WriteInteger)(ReadInteger) CodeMir1 CodeMir2 CodeMir3 CodeMir4 CodeMir5 [Statue] [Act] CodeAct0 CodeAct1 CodeAct2 CodeAct3 CodeAct4 [Num] CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 CodeChoose0 // bSerial:=True; curChoose:=0; //配置载入 //默认 指令初始化 iniFile:=TIniFile.Create(iniPath); for i:=1 to 32 do begin ByteCodeChoose[i]:=i; end; for i:=0 to 3 do ByteCodeAct[i]:=$40+i; ByteCodeAct[4]:=0; for i:=0 to 5 do begin ByteCodeMir[i]:=$80+i; end; ByteCodeStatus[0]:=$c0+1; for i:=1 to 2 do begin ByteCodeStatus[i]:=$c0+2*i; end;