如何解决 0XCB等MAC地址不能转换为字符串并显示出来的问题?

Question

想通过MIB取得本机MAC并显示出来.response:string;
response已经取得的值为#0#0#1#1#0#0#0#0  response=#0#0#1#1#0#0#0#0
或者是#0#3'G楳'#$CB  response=#0#3'G楳'#$CB但memo1.lines.add(response);却不能显示出来.
请高手指点.

Answer 1

var
response:string;
  outs:string;
  x:integer;
begin
 response:=#0#3'G楳'#$CB; outs:='';
 for x:=1 to Length(response) do
   outs:= outs+format('%.2x',[Ord(response[x])]); ShowMessage(outs);
end;

Answer 2

请问  
那为什么数值#0#3'G楳'#$CB能赋给已经定义为string的response呢?
谢谢!

Answer 3

memo1.lines.add(response);是显示不出来的。但是可以转换成16进制看。
用下面这个函数可以转：
function StrToHexStr(const S:string;NoBlack:Boolean=False):string;
//字符串转换成16进制字符串
var
  I:Integer;
begin
  for I:=1 to Length(S) do
  begin
    if I=1 then
      Result:=IntToHex(Ord(S[1]),2)
    else begin
      if NoBlack then
        Result:=Result+IntToHex(Ord(S[I]),2)
      else Result:=Result+' '+IntToHex(Ord(S[I]),2);
    end;
  end;
end;
用法：
memo1.lines.add(StrtoHex(response));      //两个字符之间有个空格
或者
memo1.lines.add(StrtoHex(response,True));//两个字符之间没有空格

Answer 4

字符串类型string实际是一个数组，#0~#255，它都可以容纳，但是能够显示的字符只有#32~#127,#128~#255是扩展ASCII码，有些字体可以显示，有些字体不可以显示。

Answer 5

谢谢您的回答!
mastersky(浪) ( ) 信誉：97    请到此贴取分
http://community.csdn.net/Expert/topic/5339/5339938.xml?temp=.3128931