在 Delphi 7 中运行的 ZeroConf/Bonjour 代码在 2009 年不起作用

Question

我对 DNSServiceRegister 有以下声明：

  function DNSServiceRegister
      (
      var sdRef: TDNSServiceRef;
      const flags: TDNSServiceFlags;
      const interfaceIndex: uint32_t;
      const name: PUTF8String;                    //* may be NULL */
      const regType: PUTF8String;
      const domain: PUTF8String;                  //* may be NULL */
      const host: PUTF8String;                    //* may be NULL */
      const port: uint16_t;
      const txtLen: uint16_t;
      const txtRecord: Pointer;                 //* may be NULL */
      const callBack: TDNSServiceRegisterReply; //* may be NULL */
      const context: Pointer                    //* may be NULL */
      ): TDNSServiceErrorType; stdcall; external DNSSD_DLL;

在我的 Bonjour 框架中，我对已宣布的服务处于活动状态（即通过 Bonjour 实际开始宣布自身）有以下响应：

  procedure TAnnouncedService.Activate;
  var
    flags: Cardinal;
    name: UTF8String;
    svc: UTF8String;
    pn: PUTF8String;
    ps: PUTF8String;
  begin
    fPreAnnouncedServiceName := ServiceName;

    inherited;

    if AutoRename then
      flags := 0
    else
      flags := kDNSServiceFlagsNoAutoRename;  { - do not auto-rename }

    if (ServiceName <> '') then
    begin
      name  := ServiceName;
      pn    := PUTF8String(name);
    end
    else
      pn := NIL;

    svc := ServiceType;
    ps  := PUTF8String(svc);

    CheckAPIResult(DNSServiceRegister(fHandle,
                                      flags,
                                      0 { interfaceID - register on all interfaces },
                                      pn,
                                      ps,
                                      NIL { domain - register in all available },
                                      NIL { hostname - use default },
                                      ReverseBytes(Port),
                                      0   { txtLen },
                                      NIL { txtRecord },
                                      DNSServiceRegisterReply,
                                      self));
    TBonjourEventHandler.Create(fHandle);
  end;

当然，这比我认为严格需要的更详细它在 Delphi 7 中以更简洁的形式运行得非常好。我将许多操作扩展为显式步骤以方便调试，例如能够识别 Delphi 2009 中“幕后”可能发生的字符串有效负载的任何隐式转换。

即使在这种不整洁的扩展形式中，该代码也可以编译和运行在 Delphi 7 中运行得很好，但如果我用 Delphi 2009 编译并运行，我不会收到任何关于我的服务的公告。

例如，如果我将此代码作为 Delphi 7 应用程序的一部分运行以注册 _daap._tcp 服务（iTunes 共享库），我会看到它在 iTunes 的运行实例中弹出。如果我在 Delphi 2009 中不加修改地重新编译完全相同的应用程序并运行它，我不会看到我的服务出现在 iTunes 中。

使用 dns-sd 命令行实用程序进行监控时，我得到了相同的行为。也就是说，用 Delphi 7 编译的服务代码的行为正如我所期望的，在 Delphi 2009 中编译的 - 什么也没有。

我没有从 Bonjour API 收到任何错误 - 正在调用 DNSServiceRegisterReply 回调，错误代码为 0（零），即成功，如果我提供一个 NIL 名称参数并在标志中指定 AutoRename，那么我的服务就会被分配正确的默认名称。但该服务仍然没有出现在 iTunes 中。

我不知道发生了什么。

正如您可能从代码的扩展中看出的那样，我一直在寻找 Delphi 2009 中的 Unicode 实现引入的潜在错误，但这似乎没有任何结果。

该代码最初是针对 Bonjour API/SDK 版本 1.0.3 开发的。我已经更新到 1.0.6 以防万一，但没有成功。 afaict 1.0.6 只是添加了一个用于获取“属性”的新功能，目前仅支持“DaemonVersion”属性来获取 Bonjour 版本 - 这工作得很好。

注意：我知道现在的代码在 Delphi 7 中在技术上并不是 UTF8 安全的 - 我已经尽可能消除了显式转换，以便使 Delphi 2009 应用的自动转换尽可能简单。我现在的目标是在 Delphi 2009 中实现此功能，然后从该解决方案向后工作，希望找到与早期版本的 Delphi 兼容的方法。

另请注意： 我最初也遇到了浏览问题用于广告服务，即识别网络上实际的 iTunes 共享库。这些问题是由 Delphi 2009 中的 Unicode 处理引起的，并且已得到解决。我的 Delphi 2009 代码同样能够识别实际的 iTunes 共享库并查询它的 TXT 记录。只是这个服务注册不起作用。

我一定错过了一些愚蠢而明显的事情。

有人有什么想法吗？

更新

回到这个问题后，我现在发现了以下内容：

如果我打开了 D2009 之前的版本和 D2009+ IDE（例如 D2006 和 D2010），并加载了相同项目同时进入两个 IDE：

• 在 2006 下构建并运行：它可以工作 - iTunes 获取了我的服务公告
• 切换到 D2010 并运行（无需构建）：它进行了最少的编译、运行和工作。

• 在 D2010 中执行完整构建：它停止工作

• 切换回 D2006 并运行（不构建）：它不起作用

• 在 D2006 中进行完整构建：它再次起作用

这会给任何人任何其他想法吗？

Answer 1

这个问题的答案令人难以置信。一方面，我犯了一个完全愚蠢、非常简单的错误，但另一方面，据我所知，它永远不会在任何版本的 Delphi 中工作！

该问题与任何字符串的 Unicode/非 unicode 性无关，但实际上是由于 PORT 参数中的类型不匹配造成的。

我传入了 ReverseBytes(Port) 的结果 - 该参数需要一个 uint16_t，即 Word 值。然而，我的Port属性被（懒惰地）声明为Integer！！

一旦我解决了这个问题并将Port声明为Word，它现在就可以在Delphi的D2007-和D2009+版本上运行。

很奇怪。

我只能认为，当引入 Unicode 支持时，编译器的一些其他边缘情况行为可能会以某种方式影响这一点，这些行为已被更改。

Answer 2

根据我们此处提供的信息，情况是这样的：

• 当在 Delphi 2007 中使用代码调用 DLL 时，它给出一个结果。
• 当在 Delphi 2009 中使用代码调用相同的 DLL 时，它会给出另一个结果。
• 怀疑与Delphi 2009编译器有关。

从逻辑上讲，差异必定是 Delphi 2009 将不同的值作为参数发送。为了使调试真正独立于 Delphi，您需要创建一个虚拟 DLL，它报告它获得的值。可以应用其他依赖于 Delphi 的方法，例如查看 DLL 中函数调用的反汇编，并对其进行调试，以便我们准确地知道在两个编译器中将哪些值传递到 DLL，以及如何传递到 DLL。

Answer 3

我在代码示例中找不到变量“ServiceName”和“ServiceType”的声明指令。

假设 String 类型（因此是 unicode 字符串），我猜（是的...没有 D2009 可用于测试这一点）惰性类型转换可能是一个问题：

name  := ServiceName;

为什么不使用以下内容？

name  := PAnsiChar(AnsiString(ServiceName)) 

无论如何...只是我的2克拉。

顺便提一句：
我总是使用预定义的“EmptyStr”、“EmptyWideStr”...所以测试看起来像：

if (ServiceName <> EmptyStr) then

这应该是安全的并且避免类型混淆。

另一方面，Delphi 可能会将 '' 解释为 ANSIChar，就像下面的声明一样：

const
  MyParagraphChar = '§';

不确定...我很困惑 - 现在应该回家了；）

Answer 4

如果 DLL 不是使用 Delphi 2009 编写的，您可能需要使用 PUTF8String 以外的其他内容。 Delphi 2009 Utf8String 类型与Delphi 2007 的UTF8String 类型不同。

如果DLL是使用C/C++编写的，我强烈建议使用PAnsiChar()而不是PUtf8String。