Steps through all results received from WebLdapSearch.
WebAPI.bdh
WebLdapNextEntry( in hLDAP : number, out sName : string, in nMaxLen : number, in bFriendly : boolean ): boolean;
true if there was at least one entry left to receive
false otherwise
Parameter | Description |
---|---|
hLDAP | Handle to a Web connection that was created by WebLdapConnect |
sName | This variable will receive the name of the next entry |
nMaxLen | Specifies the maximum length of the entry name |
bFriendly | If this variable is set to true, the results are printed in a human-readable form |
dclfunc function TWebLdapPrintSearchResults(hLdap: number) var sName : string(500); nEntries : number; begin nEntries := 0; while WebLdapNextEntry(hLdap, sName, STRING_COMPLETE, false) do nEntries := nEntries + 1; write("entry: "); write(sName); writeln; while WebLdapNextAttribute(hLdap, sName) do write(" attrib: "); write(sName); writeln; while WebLdapNextValue(hLdap, sName) do write(" value: "); write(sName); writeln; end; end; end; if (nEntries = 0) then write("No entries found"); writeln; end; writeln; end TWebLdapPrintSearchResults;
LDAP.sep