Delphi Embarcadero XE：String 和 PAnsiChar 出现大量警告

Question

我正在尝试从 Delphi 2007 迁移到 Embarcadero RAD Studio XE。 我收到大量警告。 它们看起来都是这样的： 我有一个声明“String”的过程：

procedure SendMail( ADestinataire,ASubject : String);

我正在尝试调用 Windows API，例如：

  Res := MAPIResolveName(Session, Application.Handle,
    PAnsiChar(ADestinataire), MAPI_LOGON_UI, 0, PRecip);

所以警告是：

W1044：将字符串转换为 PAnsiChar 可疑。

我做错了什么/我应该如何纠正这个问题（350 个警告......）？

非常感谢

Answer 1

MAPIResolveName 使用 LPSTR 参数，即德尔福中的 PAnsiChar。简单 MAPI 不支持 UTF16 字符串（尽管它可以与 UTF8 字符串一起使用），因此，如果您坚持使用简单 MAPI，则应该使用 AnsiStrings，例如

procedure SendMail( ADestinataire,ASubject : AnsiString);

，您可以

procedure SendMail( ADestinataire,ASubject : String);

在调用 MAPIResolveName 之前使用字符串参数并将其显式转换为

---

AnsiStrings >更新
整个简单 MAPI 现已弃用;简单的 MAPI 可以与 UTF8 字符串一起使用，但需要对 代码和注册表。

因此，如果问题是将旧的 ANSI Simple MAPI 快速移植到 Unicode Delphi，最好是坚持 AnsiStrings。

更可靠的方法是完全放弃简单 MAPI 并使用 扩展 MAPI 代替。

Answer 2

只要写：

Res := MAPIResolveName(Session, Application.Handle,
  PChar(ADestinataire), MAPI_LOGON_UI, 0, PRecip);

如果您有一个字符串，即一个Unicode字符串，即指向Unicode字符序列的指针，则不应将其转换为PAnsiChar。 PAnsiChar 是指向非 Unicode 字符序列的指针。事实上，转换为 PSomethingChar 类型只是告诉编译器将转换中的内容解释为指定类型的指针。它不做任何转换。所以，基本上，现在你对编译器撒谎：你有一个 Unicode 字符串，并指示编译器将其解释为 ANSI（非 Unicode）字符串。那很糟糕。

相反，您应该将其转换为 PWideChar，即指向 Unicode 字符序列的指针。在 Delphi 2009+ 中，PChar 相当于 PWideChar。

当然，如果您向函数发送指向 Unicode 字符序列的指针，则该函数最好期望 Unicode 字符，但我不确定 MAPIResolveName 函数是否属于这种情况。我怀疑它实际上需要 ANSI（即非 Unicode）字符。如果是这种情况，您需要将 Unicode 字符串转换为 ANSI（非 Unicode）字符串。这很简单，只需编写 AnsiString(ADestinataire) 即可。然后转换为 ANSI（非 Unicode）PAnsiChar：

Res := MAPIResolveName(Session, Application.Handle,
  PANsiChar(AnsiString(ADestinataire)), MAPI_LOGON_UI, 0, PRecip);

Answer 3

从 Delphi 2009 开始，字符串数据类型现在作为 Unicode 字符串实现。以前的版本将字符串数据类型实现为 Ansi 字符串（即每个字符一个字节）。

当我们将应用程序从 2007 年移植到 XE 时，这产生了重大影响，这些文章非常有帮助：

Delphi in a Unicode世界（三部分中的第一部分）

Delphi 和 Unicode

面向普通人的 Delphi Unicode 迁移

Answer 4

退一步来说：

When using    use the cast
============  ================
String        PChar
AnsiString    PAnsiChar
WideString    PWideChar

String 曾经是 AnsiString 的别名，这意味着如果您使用 PAnsiChar<，它恰好可以工作。 /code> （即使您应该使用 PChar）。

现在 string 是 UnicodeString 的别名，这意味着现在使用 PAnsiChar （总是错误的）真的错了。

知道了这一点就可以解决这个问题了：

ADestinataire: String
PAnsiChar(ADestinataire)