Zusammenfassung

• Seiteneigenschaften (1 geändert, 0 hinzugefügt, 0 gelöscht)

Details

Seiteneigenschaften

Inhalt

...	...	@@ -514,4 +514,63 @@
514	514
515	515	Die in der Variable llist enthaltenen Ergebnisse werden nun durchlaufen und der listbox1 hinzugefügt.
516	516
	517	+**Codebeispiel**
	518	+
	519	+{{code language="None"}}
	520	+Procedure SearchLdapClick;
	521	+var
	522	+ ltemp : TStringList;
	523	+ i : Interger;
	524	+begin
	525	+ ltemp := TStringList.Create();
	526	+ strFilter := edfilter.Text;
	527	+ llist.Clear();
	528	+ ListBox1.Clear();
	529	+ LDAPSearch(strHost, strPort, 2, strUser, strPwd, strBaseDN, strFilter, 2, llist, strError);
	530	+ for i := 0 to llist.count-1 do
	531	+ begin
	532	+ ltemp.commatext := escapevalues(llist.Strings[i]);
	533	+ listbox1.items.Add(ltemp.values['CN']);
	534	+ end
	535	+ ltemp.free();
	536	+end;
	537	+{{/code}}
	538	+
	539	+Wechseln Sie nun zurück in die Design-Ansicht und markieren den Suchen-Button. In der Event-Übersicht wählen Sie für das Event OnClick die soeben erstelle Prozedur aus der Liste aus. Wenn Sie nun im Formular den Button Suchen klicken, werden Ihnen die Ergebnisse im Suchergebnisfeld angezeigt.
	540	+
	541	+=== Auslesen/ Anzeigen einzelner Werte ===
	542	+
	543	+Damit Sie sich einzelne ausgelesene Werte für die Ergebnisse anzeigen lassen können, erstellen Sie nun in der Design-Ansicht die entsprechender Felder. Im Beispiel werden die Felder Vorname, Nachname und Telefonnummer angelegt.
	544	+
	545	+{{figure}}
	546	+(% style="text-align:center" %)
	547	+[[image:hmfile_hash_12c11bb1.png]]
	548	+
	549	+{{figureCaption}}
	550	+Beispiel der Formulars-Anzeige
	551	+{{/figureCaption}}
	552	+{{/figure}}
	553	+
	554	+Damit Ihnen nun zu einem Ergebnis auch die richtigen Werte angezeigt werden, müssen Sie in der Code-Ansicht die folgende Prozedur erstellen:
	555	+
	556	+**Codebeispiel**
	557	+
	558	+{{code language="None"}}procedure UserSelect;
	559	+var
	560	+ ltemp : TStringList;
	561	+begin
	562	+ ltemp := TStringList.Create();
	563	+ if ((ListBox1.ItemIndex > -1) AND (ListBox1.Count > 0)) then
	564	+ begin
	565	+ ltemp.commatext := escapevalues(llist.Strings[ListBox1.ItemIndex]);
	566	+ edGivenname.Text := ltemp.Values['givenName'];
	567	+ edSN.Text := ltemp.Values['SN'];
	568	+ edTelephonenumber.Text := ltemp.Values['telephoneNumber'];
	569	+ end
	570	+ ltemp.Free();
	571	+end;
	572	+ {{/code}}
517	517
	574	+
	575	+
	576	+