procedure TMainForm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);
var
rbuf:array of byte;
i:integer;
msg:string;
begin
SetLength(rbuf,BufferLength);
move(Buffer^,pchar(@rbuf)^,BufferLength);
for i:=1 to BufferLength-1 do
msg:=msg+inttohex(rbuf[i],2); //这里为什么出错阿
showmessage(msg);
end;
var
rbuf:array of byte;
i:integer;
msg:string;
begin
SetLength(rbuf,BufferLength);
move(Buffer^,pchar(@rbuf)^,BufferLength);
for i:=1 to BufferLength-1 do
msg:=msg+inttohex(rbuf[i],2); //这里为什么出错阿
showmessage(msg);
end;
解决方案 »
- 怎样实现Delphi7的IDE的标题栏中显示打开工程的完整路径?
- 用dbgrideh在设计时能看到列统计(footer),在运行时列统计根本就没有???
- 关于dbpanel数据控件的问题
- 各位看看这个函数哪不对啊,为什么不能把十六进制的字符串转成汉字呢??
- 真的是怪啊…………
- dbgrid小问题
- integer
- 怎样让左键弹出菜单跟随鼠标?
- 请问哪里可以下载数据库对应的 通信波形分析控件 ,谢谢,急,马上给分 ,
- 如何在Edit中判断光标是否是在字符串的末尾?
- 用DBExpress连接SQL SERVER时,SQLConnection连接成功,但commandtext却没有table和field列表?
- 关于焦点转换的问题。
move(Buffer^,rbuf[0],BufferLength);
// ~~~~~~~
for i:=0 to BufferLength-1 do
// ~~
msg:=msg+inttohex(rbuf[i],2); //这里为什么出错阿
showmessage(msg);
procedure TMainForm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word);
var
rbuf:array of byte;
i:integer;
msg:string;
begin
SetLength(rbuf,BufferLength);
move(Buffer^,pchar(@rbuf)^,BufferLength);
for i:=1 to BufferLength-1 do
msg:=msg+Pchar(inttohex(rbuf[i],2));
showmessage(msg);
end;