Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Langsam gehen mir die Ideen aus.
Bei Kosch habe ich einen abweichenden Funktionsprototypen gefunden:
function ADsGetObject(lpszPathName: PWideChar; const riid: TGUID; out ppObject): HRESULT; Safecall;
Und dann noch diesen Artikel:
http://www.mail-archive.com/delphi@delphi.org.nz/msg14930.html
Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Sind Deine Funktionsprotypen stdcall oder safecall?
Lutz
Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Sorry, es kracht doch. Abhilfe könnte aber vielleicht die Zeile
CoInitialize(nil);
schaffen.
Lutz
Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Bei mir läuft's ohne Fehler durch. Allerdings ist bei mir lNumElements 0. Damit reduziert sich der Fehler auf die beiden Zeilen
if IDispatch(varArr).QueryInterface(IID_IADs, ADsItem) = S_OK then
result := result + ADsItem.ADsPath + #13;
Lutz
Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler
Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Dann hast Du uns auf eine falsche Fährte geführt..
Ich sehe eine Reihe von potentiellen Fehlerquellen, die ich gern ausschließen würde:
1. erste Zeile: Result := '';
2. ADsGetObject liefert ein S_OK zurück, bitte auswerten
3. bei den anderen Funktionen bitte auch Rückgabewert auswerten
Lutz
Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Kannst Du mal den Aufruf für
GetLDAPDomains
posten?
Lutz
Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Gleich nochmal ich. Besser noch, mal alles auskommentieren und nur die Callback mit einem String aufrufen.
Lutz
Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Ich kann mir es zwar nicht richtig vorstellen, aber spielt Dir die Referenzzählung von ADsItem vielleicht einen Streich? Kannst Du mal einen stinknormalen String an Deine Callback übergeben?
Lutz
Forum: Win32/Win64 API (native code)
Delphi
by Delphianer,
12. Nov 2009
Mal ne böse Frage..
Existiert das Objekt eigentlich, zu dem die Callback-Methode gehört?
Grüße,
Lutz