一段小代码 delphi 7下能用，delphi XE2下就不能用了，大家给看看。

[linlingwei]

function com_init(com:Integer; baud:Dword):Boolean;stdcall;external 'api_com.dll';
function com_rest:Boolean;stdcall;external 'api_com.dll';
function com_send(buf:pchar; len:Integer):Boolean;stdcall;external 'api_com.dll';
下面这段代码，delph7正常没问题，怎么到delphi xe2下就不能用了，客显出现的数字和输入的数字不一致。

procedure send_led(n_string:string);
var PDStr:string;
begin
PDStr:=Chr(27)+Chr(81)+Chr(65)+n_string +Chr(13);
try
com_send(pchar(''),1) ;
com_send(pchar(PDStr),Length(PDStr)) ;
except
end;

end;
我把pchar换成PAnsiChar也不行。

[iamduo]

procedure send_led(n_string:string); var PDStr:string; begin PDStr:=Chr(27)+Chr(81)+Chr(65)+n_string +Chr(13); try com_send(PAnsiChar(''),1) ; com_send(PAnsiChar(PDStr),Length(PDStr)) ; // 这里 except end; end; 如果还不行。 把这里，先 Unicode 转 AnsiString ，然后再传。

[linlingwei]

to iamduo： 能佛给个例子，本人菜鸟，多谢。

[simonhehe]

com_Send参数的传人内容正常, 接收内容不正常?

[linlingwei]

to simonhehe： 是的

[simonhehe]

这样试试

function com_init(com:Integer; baud:Dword):Boolean;stdcall;external 'api_com.dll';
function com_rest:Boolean;stdcall;external 'api_com.dll';
function com_send(buf:PAnsiChar; len:Integer):Boolean;stdcall;external 'api_com.dll';


procedure send_led(n_string : AnsiString);
var PDStr: AnsiString;
begin
  PDStr:= AnsiChar(Chr(27)) + AnsiChar(Chr(81)) + AnsiChar(Chr(65)) + n_string + AnsiChar(Chr(13));
  try
    com_send(PAnsiChar(''),1) ;
    com_send(PAnsiChar(PDStr),Length(PDStr));
  except
  end;
end;

[linlingwei]

to simonhehe： 还是不行，不能正确显示数字。

[linlingwei]

着急呀，各位大师给个方案呀。

[tp26021340]

引用 7 楼 linlingwei 的回复:

着急呀，各位大师给个方案呀。

我也没有此类问题，大侠解决了没有关！！！