最近,做modbus通讯使用mscomm控件,发现一个问题,当数字大于127时,下位机不识别这个数字,原因是用232通讯时中文操作系统的内码库不能识别这个字符,听说在VB用使用字节数组可以解决这个问题,在delphi里试了一下array of byte,语法检查无错误,但直接赋把数组值给output时提示为数据类型不符,把一个数组元素赋值给output,语法无错误,但运行后提示无效属性,请教各位高手,这个问题在delphi中如何解决,代码简单如下:
procedure TForm1.Button1Click(Sender: TObject);
var
myarray:array[0..7]of byte;
begin
myarray[6]:=byte($c4);
mscomm1.output:=myarray[6];
end;
提示无效属性
procedure TForm1.Button1Click(Sender: TObject);
var
myarray:array[0..7]of byte;
begin
myarray[6]:=byte($c4);
mscomm1.output:=myarray;
end;
语法错误盼早日回复,谢谢,谢谢啦!!!!!!!!!
procedure TForm1.Button1Click(Sender: TObject);
var
myarray:array[0..7]of byte;
begin
myarray[6]:=byte($c4);
mscomm1.output:=myarray[6];
end;
提示无效属性
procedure TForm1.Button1Click(Sender: TObject);
var
myarray:array[0..7]of byte;
begin
myarray[6]:=byte($c4);
mscomm1.output:=myarray;
end;
语法错误盼早日回复,谢谢,谢谢啦!!!!!!!!!
解决方案 »
- ICS httpcli get xml文件失败
- 如何实现橡皮线拖动功能?
- Ttable的filter的写法问题
- Runtime error 217 at 00402840
- 請問一下tqrdbrichtext的用法
- 如何取得点击窗口的句柄?
- IT寒流,我们怎么对待?
- 高分求救!怎样在多文档的主窗体上添加背景图片??
- 将鼠标移到label控件上时,字体显示红色,移开时显示黑色。不要用onmousemove来控件。
- 数据修改后置标志位问题(新问题)
- 有没有办法判断一个类或对象,是否override它的父类的某一个方法?
- 在线请教大家关于数据插入问题,两个不同数据库,将其中一个数据库表插入到另外数据库表中?
for i:= Low(myarray) to High(myarray) do
begin
mscom1.output := myarray[i];
end;
var
myarray:variant;
index:integer;
begin
myarray:=VarArrayCreate([0,6], varByte);
for index:=0 to VarArrayDimCount(myarray)-1 do
myarray[index]:=$0c;
mscomm1.output:=myarray;
end;