spcomm 串口通讯 的问题,大虾请进

Question

http://www.csdn.net/develop/library/delphi/network/8970.shtm
这里有一篇文章，有一点用，不行再说吧！

Answer 1

look:
var     receivebuffer:array  of char;
        viewstring:string;
        i:integer;
begin
    setlength(receivebuffer,bufferlength);
    Move(Buffer^,pchar(@ReceiveBuffer)^, bufferlength);
    viewstring:='';
    for i:=0 to bufferlength do
    viewstring:=viewstring+inttohex(strtoint(ReceiveBuffer[i]),2)+' ';
    edit1.text:=viewstring;
end;