德尔福 - 当处理单元'Web.Win.ADsTypes'时如何得到最后的错误信息

Question

在我的程序中，我使用ADSI对象来进行LDAP查询。 我正在使用位于Web.Win.ADsTypes的ADsGetObject函数。

如果函数失败或者我得到一个不好的结果，我想引发一个异常。 我使用的是Windows单元，我可以使用GetLastError函数这样

raise Exception.Create('Error ' + SysErrorMessage(GetLastError())); 

写了一些类似的代码，它给了我上次发生错误。

我试图知道是否有类似的功能，我可以使用它来查看使用'Web.Win.ADsTypes'时发生的最后一个错误。

Answer 1

如果我正确理解ADsGetObject的文档，则必须将由ADsGetObject返回的值传递给SysErrorMessage()。 我觉得你的代码应该是这个样子：

rc := ADsGetObject(...); 
if S_OK <> rc then raise Exception.Create('Error ' + SysErrorMessage(rc));