procedure TForm1.MSComm1Comm(Sender: TObject);
var
Rev:Olevariant;
temp:String ;
V: Variant;
i:integer;
begin
if (MSComm1.CommEvent=2)then
begin
V:= VarArrayCreate([0,12], varByte);
V:=MSComm1.Input;
//if(WaitOK) then
begin
for i:=1 to length(v) do
begin
temp:=temp+IntToStr(V[i]);
end;
memo1.Lines.Add(temp) ;
end;
end;
end;/////////////////
现在在memo1中接受到的为:4849484848 555249
////////////////////////////
但是我用串口测试工具测试后,memo1中接受的数据是S010002597416E,郁闷
var
Rev:Olevariant;
temp:String ;
V: Variant;
i:integer;
begin
if (MSComm1.CommEvent=2)then
begin
V:= VarArrayCreate([0,12], varByte);
V:=MSComm1.Input;
//if(WaitOK) then
begin
for i:=1 to length(v) do
begin
temp:=temp+IntToStr(V[i]);
end;
memo1.Lines.Add(temp) ;
end;
end;
end;/////////////////
现在在memo1中接受到的为:4849484848 555249
////////////////////////////
但是我用串口测试工具测试后,memo1中接受的数据是S010002597416E,郁闷
解决方案 »
- 怎么让控件的长度大于32767?
- Delphi处理事件函数中的Sender: TObject代表什么?
- 关于STRING数据类型请教
- 我用indy 9 的 idsmtp 做了个邮件发送器 但总是偶尔经常连接错误 ?connect 连接错误
- 全球40万人签名反对日本成为联合国常任理事国
- ADO问题
- 十万火急!!delphi7开发的三层软件在winnt上可以使用,移植到win2000server后却不能用?
- 一个class内的form,怎么不能在class的destroy事件中释放?
- 帮我解释一下下面两段代码
- 100请教一个问题,请大家关注
- 请问TEdit的text是如何得到的???
- 求 资料收藏大师 3.78注册码
都是用SPCOMM的,不用AcitveX的
不清楚的_____________________
http://lysoft.7u7.net
begin
temp:=temp+chr(V[i+1] * 10 + V[i]);