//字节转换为字符串 $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;