Hallo,
noch einer, der in TypLib-Falle tapst
Es ist mir schon im April 2009 aufgefallen das einige deklarationen/definitionen nicht
MSDN-Komform sind.
Du wirs also nicht umhin kommen es per Hand zu überprüfen.
Für
IDirectorySearch sei die die Arbeit abgenommen:
Delphi-Quellcode:
// *********************************************************************//
// Schnittstelle: IDirectorySearch
// Flags: (0)
// GUID: {109BA8EC-92F0-11D0-A790-00C04FD8D5A8}
// *********************************************************************//
IDirectorySearch =
interface(IUnknown)
['
{109BA8EC-92F0-11D0-A790-00C04FD8D5A8}']
function SetSearchPreference(
var pSearchPrefs: ads_searchpref_info; dwNumPrefs: LongWord): HResult;
stdcall;
function ExecuteSearch(pszSearchFilter: PWideChar; pAttributeNames: PWideChar;
dwNumberAttributes: LongWord;
out phSearchResult: THandle): HResult;
stdcall;
function AbandonSearch(
var phSearchResult: THandle): HResult;
stdcall;
function GetFirstRow(
var hSearchResult: THandle): HResult;
stdcall;
function GetNextRow(hSearchResult: THandle): HResult;
stdcall;
function GetPreviousRow(
var hSearchResult: THandle): HResult;
stdcall;
function GetNextColumnName(
var hSearchHandle: THandle;
out ppszColumnName: PWideChar): HResult;
stdcall;
function GetColumn(hSearchResult: THandle; szColumnName: PWideChar;
out pSearchColumn: ads_search_column): HResult;
stdcall;
function FreeColumn(
var pSearchColumn: ads_search_column): HResult;
stdcall;
function CloseSearchHandle(
var hSearchResult: THandle): HResult;
stdcall;
end;
Dann funktioniert auch die Suche (wieder).
Viele Grüße