//字节转换为字符串 $D4 $C1--> '粤'
function BytesToString(buffer: Array of byte; offset:integer; len: integer): string;
var
  str: string;
  i  : Integer;
begin
  SetLength(str, len);
  for i:=0 to len-1 do
  begin
    if buffer[offset-1+i]=0 then break;  //遇到ASCII 0不再复制！
    Move(buffer[offset-1+i], str[1+i], 1);//注意，这里是从str[1]开始复制的
  end;
  //Move(buffer[offset-1], str[1], len);//注意，这里是从str[1]开始复制的
  //ShowMessage (str);

  SetLength(str, i);
  result := str;
end;