两个窗体,Form1和Form2
Form1上摆了个SPComm控件,Comm1,通过Form2上的操作设置Comm1的参数,
其中 Comm1.CommName,Comm1.BaudRate 两项参数可以设置,
但是Comm1.ByteSize,Comm1.Parity,Comm1.StopBits设置一直存在问题.具体代码如下:
case Combobox1.ItemIndex of
0:Form1.Comm1.CommName:='COM1';
1:Form1.Comm1.CommName:='COM2';
end; case Combobox2.ItemIndex of
0:Form1.comm1.BaudRate:=300;
1:Form1.Comm1.BaudRate:=600;
2:Form1.Comm1.BaudRate:=1200;
3:Form1.Comm1.BaudRate:=4800;
4:Form1.Comm1.BaudRate:=9600;
end;
//////////////////以下3项设置有问题/////////////////
case Combobox3.ItemIndex of
0:Form1.Comm1.ByteSize:=_8;
1:Form1.Comm1.ByteSize:=_7;
2:Form1.Comm1.ByteSize:=_6;
3:Form1.Comm1.ByteSize:=_5;
end; case Stopbits.ItemIndex of
0:Form1.Comm1.StopBits:=_1;
1:Form1.Comm1.StopBits:=_2;
end; case Combobox5.ItemIndex of
0:Form1.Comm1.Parity:=None;
1:Form1.Comm1.Parity:=Odd;
2:Form1.Comm1.Parity:=Even;
end;问题1: 0:Form1.Comm1.ByteSize:=_8; 一行提示'_8'未定义,但是将这句放在unit1里又是通过的。
问题2:想顶一个TbyteSize中间变量,发现Var AA:TbyteSize;错误提示TByteSize也是未定义请教下,这是什么原因!!我提问后将一直在线,麻烦各位帮忙下,分不多!
Form1上摆了个SPComm控件,Comm1,通过Form2上的操作设置Comm1的参数,
其中 Comm1.CommName,Comm1.BaudRate 两项参数可以设置,
但是Comm1.ByteSize,Comm1.Parity,Comm1.StopBits设置一直存在问题.具体代码如下:
case Combobox1.ItemIndex of
0:Form1.Comm1.CommName:='COM1';
1:Form1.Comm1.CommName:='COM2';
end; case Combobox2.ItemIndex of
0:Form1.comm1.BaudRate:=300;
1:Form1.Comm1.BaudRate:=600;
2:Form1.Comm1.BaudRate:=1200;
3:Form1.Comm1.BaudRate:=4800;
4:Form1.Comm1.BaudRate:=9600;
end;
//////////////////以下3项设置有问题/////////////////
case Combobox3.ItemIndex of
0:Form1.Comm1.ByteSize:=_8;
1:Form1.Comm1.ByteSize:=_7;
2:Form1.Comm1.ByteSize:=_6;
3:Form1.Comm1.ByteSize:=_5;
end; case Stopbits.ItemIndex of
0:Form1.Comm1.StopBits:=_1;
1:Form1.Comm1.StopBits:=_2;
end; case Combobox5.ItemIndex of
0:Form1.Comm1.Parity:=None;
1:Form1.Comm1.Parity:=Odd;
2:Form1.Comm1.Parity:=Even;
end;问题1: 0:Form1.Comm1.ByteSize:=_8; 一行提示'_8'未定义,但是将这句放在unit1里又是通过的。
问题2:想顶一个TbyteSize中间变量,发现Var AA:TbyteSize;错误提示TByteSize也是未定义请教下,这是什么原因!!我提问后将一直在线,麻烦各位帮忙下,分不多!
解决方案 »
- 听说D2008出来了!
- MDI问题
- 如何发送消息使时间控件下拉?
- “如果文件不存在则创建”用FileExists和tstringlist如何实现
- 怎样给一个db以某个字段排序?
- 请大家帮帮忙(为什么删除以后下面语句的序号不能提前?)
- 请问为什么按F12地时候打不开我得main主窗体呀?
- DBGrid加入Checkbox,并且能修改CheckBox的选中状态?
- SQL语句:select * from table1 where date>1999-1-1;时间查询限制条件怎么写(在线等待,马上给分 )
- 我有个时间控制问题:有一个Edit控件输入年月如:2002-01,输入后我想将系统时间的日期加上如今天31号,得到2002-01-31
- TObject和String的转换问题
- 这一行总是出错,
2.你的unit2中没有包含SPCOMM.PAS所以没有vtbytesize,将spcomm在unit2中uses就可以了