是否有示例说明 Delphi 如何调用 Active Directory Kerberos 服务器来请求票证授予票证/普通票证？
背景：验证交换机密信息的网络服务需要票证。
编辑：一个简短的源代码示例将非常有帮助。我发现JEDI Windows Security Code Library 非常令人印象深刻。我不确定它是否包含对 Kerberos 的支持。
【问题讨论】：
标签： web-services delphi active-directory kerberos
根据this，您应该能够通过InitializeSecurityContext windows API 调用获得一个。
【讨论】：
首先阅读Kerberizing Applications Using Security Support Provider Interface 以了解大致情况。 InitializeSecurityContext描述如下：
通过以下方式启动安全上下文 生成必须的安全令牌 传递给服务器。这 使用此功能的应用程序是 称为 SSPI 客户端。
在msdn上，可以在Authentication Functions找到SSPI函数列表。
有关实际示例代码，请参阅 Win32 示例的SSPI page。您可能会发现 client.cpp 很有用。另一个类似的例子是GssClient.c。两个代码都在循环中运行它，因为如果返回 SEC_I_CONTINUE_NEEDED，对话会继续进行。
【讨论】：