Delphi - 如何在使用单元＆＃39; Web.Win.ADsTypes＆＃39;时获取最后一条错误消息。

Question

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

如果函数失败或得到错误结果，我想引发异常。 我使用Windows单元编写了一些类似的代码，我可以像这样使用GetLastError函数

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

它给了我发生的最后一个错误。

我试图了解是否有一个类似的功能，我可以使用它来查看使用＆＃39; Web.Win.ADsTypes＆＃39;时发生的最后一个错误。

Answer 1

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

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