如何转换 C++ _tcscpy、_tcscat 到 Delphi？

Question

我正在将 此代码 从 C++ 转换为Delphi，但我没有得到以下部分代码。谁能解释一下以下代码的含义； szBuff 缓冲区发生了什么？

我很确定它是这种格式（替换），但我什至不知道预期的结果是什么，而且我找不到任何有关所用函数的合理文档（也许我只是一个蹩脚的:)

任何人都可以帮助我将此代码翻译为Delphi（或指导我正确的文档）吗？

我不喜欢你如何自己转换类型的问题，所以我至少在问题标题中提到了函数名称，以便将来其他人可以搜索到。

function TSecInfo.BuildSecurityAttributes(var SecAttrs: TSecurityAttributes): boolean;
var
  pszSidUser: PChar;
  szBuff: array [0..1024] of Char;
begin

// pszSidUser at this time contains user SID like this
// S-1-5-21-1454471165-1004336348-1606980848-5555

// TCHAR szBuff[1024]; // I'm not sure with array [0..1024] of Char;

  _tcscpy(szBuff, _T("D:"));
  _tcscat(szBuff, _T("(A;;GA;;;"));
  _tcscat(szBuff, pszSidUser);
  _tcscat(szBuff, _T(")"));
  _tcscat(szBuff, _T("(A;;GWGR;;;AN)"));
  _tcscat(szBuff, _T("(A;;GWGR;;;WD)"));

...

  _tcscat(szBuff, _T("S:(ML;;NW;;;S-1-16-0)"));

end;

对于那些对链接中的完整代码感兴趣的人，我可以说这应该是一个技巧，如何访问网络管道，以便在 Windows Vista 上以匿名用户身份进行编写。整篇文章请遵循 这个链接。

感谢您的宝贵时间
问候

Answer 1

_tcscpy 和 _tcscat 是 C 标准库函数 strcpy 和 strcat 的 TCHAR 宏版本用于复制和连接 C 字符串。它们评估为 ANSI 或 Unicode 版本，具体取决于您所针对的项目是否或类型。在我看来，这实际上是 C 代码而不是 C++ 代码。

在 Delphi 中，您只需使用如下字符串变量：

function TSecInfo.BuildSecurityAttributes(var SecAttrs: TSecurityAttributes): boolean;
var
  pszSidUser: PChar;
  Buff: string;
begin
  // pszSidUser at this time contains user SID like this
  // S-1-5-21-1454471165-1004336348-1606980848-5555

  Buff := 'D:(A;;GA;;;'+pszSidUser+')(A;;GWGR;;;AN)(A;;GWGR;;;WD)S:(ML;;NW;;;S-1-16-0)';
  SomeOtherWindowsAPICall(PChar(Buff));    
end;

大概在 C 代码中，有一个对另一个接收 LPCTSTR 的 Windows API 函数的调用。 C 代码将传递 szBuff，但您可以简单地传递 PChar(Buff)，如我上面所示。

C 代码使用固定长度缓冲区，因为它没有可用的动态分配字符串类，如 Delphi 的 string 或 C++ 中的 std::string。像这样的固定长度缓冲区通常会导致缓冲区溢出。在 Delphi 中，如果可以避免的话，不要使用固定长度的缓冲区。

这是一个典型的例子，说明了为什么具有内置字符串处理功能的语言比 C 语言更容易使用。

Answer 2

看起来代码正在使用 TCHARS，基本上它们是一个宏，使得从 unicode 到非 unicode 更容易。 _tcscpy正在将参数复制到szBuff，_tcscat正在将参数附加到szBuff。如果您熟悉 strcpy 和 strcat，它们会做同样的事情。

_tcscpy(szBuff, _T("D:")); //szBuff == "D:"
_tcscat(szBuff, _T("(A;;GA;;;")); //szBuff == "D:A;;GA;;;"
...