如何使用Delphi获取Kerberos票证?

mjn*_*mjn 8 delphi web-services kerberos active-directory

是否有示例显示Delphi如何调用Active Directory Kerberos服务器来请求票证授予票证/普通票证?

背景:对于交换机密信息的Web服务进行身份验证需要该票证.

编辑:一个简短的源代码示例将非常有用.我找到了JEDI Windows安全代码库,这是非常令人印象深刻的.我不确定它是否包含对Kerberos的支持.

Sti*_*ers 6

根据这个,你应该能够使用InitializeSecurityContext windows API调用.