从串口助手发送十六进制数过来:
A1 B2 00 0F D1 0E E7 03 78 0F 00 83 00 00 00 00 EC 只收到
A1 B2到ascii为0处就作为字符串结束。
procedure TForm1.CommTSReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
s:Pchar;
begin
s:=buffer;
edit1.text:=s;
end;
A1 B2 00 0F D1 0E E7 03 78 0F 00 83 00 00 00 00 EC 只收到
A1 B2到ascii为0处就作为字符串结束。
procedure TForm1.CommTSReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
s:Pchar;
begin
s:=buffer;
edit1.text:=s;
end;
procedure TForm1.CommTSReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
i:integer;
tmpBuf:array of byte;
begin
SetLength(tmpBuf,Bufferlength);
move(buffer^,pchar(@tmpBuf[0])^,Bufferlength);
//...
end;