spcomm接收数据函数

[soulhuman]

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
tmpArray:array[0..4096] of Byte;
ArraySize,i: DWORD;
Count:DWORD;
tmpStr:string;
pStr:PChar;
begin
if Check1.Checked then
begin
pStr:=Buffer;
tmpStr:=string(pStr);
Dec(PStr); {pstr:=pstr-1; }
for i:=0 to Length(tmpStr)-1 do
begin
inc(PStr); {pstr:=pstr+1; }
tmpArray[i]:=Byte(PSTR^);
Memo2.Lines.Add(IntToHEX(Ord(tmpArray[i]),2));
end;
exit;
end;
pStr:= Buffer;
memo2.Lines.Add(pStr);
end;

谁能帮忙给注释一下啊？
哪个变量是接收到的数据16进制？

[xixuemao]

http://www.gjwtech.com/scomm/scdelphispcomm.htm

[sun_cathay]

IntToHEX(Ord(tmpArray[i]),2)

[zhuangbx220]

var
tmpArray:array[0..4095] of Byte;
begin
if Check1.Checked then
begin
move(Buffer^,tmpArray[0],BufferLength);
for i:=0 to BufferLength-1 do
begin
strHex:=strHex+format('%.2x ',[tmpArray[0]]);//转换成16进制
end;
end;
end;

[zhuangbx220]

//不好意思,这句打错了.
strHex:=strHex+format('%.2x ',[tmpArray[i]]);//转换成16进制