这几天做一个项目,调用C的DLL,C里面传递字符串是char *,而Delphi中则是PChar,(从D2009开始支持Unicode后则对应的是PAnsiChar).
使用过程中发现个问题需要注意,直接上代码吧:
procedure TForm6.Button1Click(Sender: TObject);
var
s:AnsiString;
p:PAnsiChar;
begin
s:=LabeledEdit1.Text; //LabeledEdit1.Text内容是123456
p:=PAnsiChar(s);
ShowMessage(PAnsiChar('123456')); //看到123456
ShowMessage(PAnsiChar(LabeledEdit1.Text)); //看到1
ShowMessage(PAnsiChar(s)); //看到123456
ShowMessage(p); //看到123456
end;
为什么 ShowMessage(PAnsiChar(LabeledEdit1.Text)); //看到1呢?
这是因为从D2009开始默认的string都是unicode,所以需要从string做一下到ansistring的强制转换:
ShowMessage(PAnsiChar(AnsiString(LabeledEdit1.Text))); //显示123456
原因就是unicode的string在转换成ansichar的时候因为字符长度问题引起的,所以
ShowMessage(PChar(LabeledEdit1.Text));//显示123456,PChar对应Unicode字符串就没有问题
所以这是在D2009/D2010/DXE及后续版本中使用PChar和PAnsiChar要注意的问题。