Änderungen von Dokument Die IDE
Zuletzt geändert von Jannis Klein am 2024/03/19 17:56
Zusammenfassung
-
Seiteneigenschaften (1 geändert, 0 hinzugefügt, 0 gelöscht)
-
Anhänge (0 geändert, 1 hinzugefügt, 0 gelöscht)
Details
- Seiteneigenschaften
-
- Inhalt
-
... ... @@ -430,4 +430,54 @@ 430 430 431 431 **Codebeispiel** 432 432 433 +{{code language="None"}}uses 434 + Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, 435 + StdCtrls, SysUtils, Buttons, AagonLDAP; 436 +var 437 + llist : TStringList; 438 + strHost, strPort, strUser, strPwd, strBaseDN, strFilter, strError: String; {{/code}} 433 433 440 + 441 +Erstellen Sie eine Funktion, mit welcher Sie eingegebene Strings escapen können. 442 + 443 +**Codebeispiel** 444 + 445 +{{code language="None"}}function escapevalues(Value: String) : String; 446 +begin 447 + Value := '"'+StringReplace(Value,',','","')+'"'; 448 + Result := StringReplace(Value, '","","', ','); 449 +end; {{/code}} 450 + 451 + 452 +{{aagon.infobox}} 453 +Diese Funktion muss sich immer oberhalb der erstellten Prozeduren befinden. 454 +{{/aagon.infobox}} 455 + 456 +Erstellen Sie nun eine Prozedur, in der Sie für die Variablen Werte festlegen: 457 + 458 +|(% style="width:185px" %)**Wert**|(% style="width:678px" %)**Beschreibung** 459 +|(% style="width:185px" %)Host|(% style="width:678px" %)Domänencontroller an den die Anfrage gestellt wird 460 +|(% style="width:185px" %)Port|(% style="width:678px" %)Für die Anfrage verwendeter Port (Port 389: LDAP, Port 3268: Global Katalog) 461 +|(% style="width:185px" %)User|(% style="width:678px" %)Benutzer für die Anfrage 462 +|(% style="width:185px" %)Passwort|(% style="width:678px" %)Passwort des Benutzers 463 +|(% style="width:185px" %)BaseDN|(% style="width:678px" %)Basis der Suche (DistinguishedName) 464 +|(% style="width:185px" %)Filter|(% style="width:678px" %)LDAP-Suchfilter 465 + 466 +**Codebeispiel** 467 + 468 +{{code language="None"}} 469 +procedure formActivate(Sender: TObject); 470 +begin 471 + strHost := '192.168.1.1'; 472 + strPort := '389'; 473 + strUser := 'MeinBenutzer@meine.domäne'; 474 + strPwd := 'meinGeheimesPasswort123'; 475 + strBaseDN := 'dc=meine,dc=domäne'; 476 + strFilter := ''; 477 + llist := TStringList.Create(); 478 +end; 479 +{{/code}} 480 + 481 +Zusätzlich legen Sie eine Liste an, in welcher Ihre Ergebnisse gespeichert werden sollen um diese im Formular anzuzeigen. 482 + 483 +
- hmfile_hash_b498888f.png
-
- Author
-
... ... @@ -1,0 +1,1 @@ 1 +XWiki.SVelibeyoglu - Größe
-
... ... @@ -1,0 +1,1 @@ 1 +31.5 KB - Inhalt