Forum: Win32/Win64 API (native code)
Delphi
by cherry,
16. Nov 2009
@x000x, @Delphianer
Das funktionert leider alles nichts, das Ergebnis ist immer dasselbe!
Bringts denn niemand zum laufen?
@x000x: Witzig ist ja, dass ich am Ende z.B. schreiben kann result := 'test'; und es passiert immer noch dasselbe Problem...
Was ist hier bloss faul?
Na, bringst Du es zum laufen? ;-)
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
dann bin ich ja wohl nicht der einzige mit diesem Problem. Hehe.
Danke euch beiden. Ich habe jetzt Wochenende und Zuhause hab ich leider weder D2009 noch meine Projektdaten, also kann ich wohl oder übel die Test erst nächsten Montag durchführen.
Ich melde mich dann mit neuigkeiten, hats bei euch geklappt?
lg und schönes Wochenende...
#enemyleft
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
ich verwende die units von agnisoft...
http://www.agnisoft.com/white_papers/active_directory.asp
safecall !
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
Ne, macht ja auch keinen Sinn... soweit ich weiss ist das schon initialisiert wenn on Create aufgerufen wird..
Also ich habs auch getestet, geht nicht.
Ist aber schon krass komisch oder?
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
Hmmm... Hab mir eine DummyFunktion gebastelt:
function test: String;
var
NSContainer : IADsContainer;
begin
result := 'test';
NSContainer := nil;
ADsGetObject( 'LDAP:', IID_IADsContainer, NSContainer);
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
Erstmal sorry für die Irreführung...
Hab die Funktion nun ein wenig angepasst:
function GetLDAPDomain: String;
var
NSContainer : IADsContainer;
Enum : IEnumVariant;
hr : integer;
varArr : OleVariant;
lNumElements : ULONG;
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
Das habe ich doch schon?!.. wie ich aber sehe, konzentriert ihr euch zu fest auf die Thematik Callback... Das Problem tritt aber auch anders auf,
deshalb habe ich die Methode jetzt umgeschrieben:
Also nochmals von vorne... Ich habe diese Funktion:
function GetLDAPDomain: String;
var
NSContainer : IADsContainer;
Enum : IEnumVariant;
hr : integer;
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
So irgendwas verflixtes in der Art muss es sein, aber genau das ist es wahrscheinlich nicht. Hab mal die CBF so ausgeführt: CallBack('test'); -> selbes Problem
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
Hmm... ist komisch. Ja es geht wenn die myList nicht TForm gehört, wie greiffe ich dann aber von einem andern Formular darauf zu?
Und das mit der CallBackFunction habe ich nur gemacht, weil es anders auch nicht geht. Die Procedure scheint nur dann keine Zugriffsverletzung zu geben, wenn ich keine listen oder variablen abfülle, die eben einer Klasse z.B. TForm1 angehören, egal ob mit...
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
Probiert doch die Funktion einfach mal aus, dann seht ihr schon was ich meine... Ich kanns selber fast nicht erklären...
Wenn ich z.B
statt
procedure TForm1.getLdapDomain(domain: string);
begin
showMessage(domain);
end;
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
procedure TForm1.getLdapDomain(domain: string);
begin
showMessage(domain);
end;
...
GetLDAPDomains(getLdapDomain);
Forum: Win32/Win64 API (native code)
Delphi
by cherry,
12. Nov 2009
Hallo, ich habe folgende Funktion:
type
TGetLdapDomain = procedure(ldap: string) of object;
procedure GetLDAPDomains(CallBack: TGetLdapDomain);
var
NSContainer : IADsContainer;
Enum : IEnumVariant;