defineini.txt

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

[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;