Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS Network Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Network/LDAP Test
This example is the version from Sat, 26th Jan 2018.
Project "LDAP Test.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class MainWindow Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open()
dim l as new LDAPMBS("ldap.forumsys.com", 389)
if l.Lasterror <> 0 then
MsgBox "Error "+str(l.Lasterror)
return
end if
l.Bind "uid=tesla,dc=example,dc=com", "password", l.kAuthSimple
if l.Lasterror <> 0 then
MsgBox "Error "+str(l.Lasterror)
return
end if
dim results() as Dictionary = l.Search("dc=example,dc=com", l.kScopeSubtree, "(objectclass=*)")
if l.Lasterror <> 0 then
MsgBox "Error "+str(l.Lasterror)
return
end if
List.DeleteAllRows
for each r as Dictionary in results
dim name as string = r.Value(nil)
for each key as Variant in r.keys
if key = nil then
else
dim v as Variant = r.Value(key)
dim s as string
if v.IsArray then
dim a() as string = v
s = Join(a, ", ")
else
s = v.StringValue
end if
List.AddRow name, key.StringValue, s
end if
next
next
End EventHandler
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project
The items on this page are in the following plugins: MBS Network Plugin.