Delphi传字符串给C++写的DLL，只收到第一个字符

Question

用C++写的DLL有个函数是这样的：void __cdecl Test(const char *str1) {
  //输出到文件   
  FILE *fp = fopen("c:/1.log", "a+");
  if (fp) {
           fprintf(fp, "str1:%s \r\n", str1);
  fprintf(fp, "str1len:%d \r\n", strlen(str1));
  fclose(fp);
  }
｝delphi中：
procedure Test(const str1: PChar); cdecl;调用：
var
  Str1: array[0..3] of Char;
begin
  StrPCopy(Str1, 'abc');
  Test(Str1);
  //Test('abc');
  //Test(PChar('abc'));
end;输出结果是：
str1:a
str1len:1是哪里出了问题？好像调windows Api时没这问题

Answer 1

var
  Str1: PChar;
begin
  Str1 := 'abc';
  Test(Str1);

Answer 2

你用的是Delphi2009以上版本吧.Unicode的高位时0。认为是结束.
procedure Test(const str1: PAnsiChar); cdecl;