There is an example called "ValentinaServerUtility". It has code to get the user info:
dim dbName as string
dim ci as VClientInfo
dim dbi as VDataBaseInfo
dim i, j as integer
if ListBoxDatabaseInfo.SelCount = 1 then
dbName = ListBoxDatabaseInfo.cell(ListBoxDatabaseInfo.ListIndex, 0)
for i = 1 to mValentinaServer.DatabaseCount
dbi = mValentinaServer.DatabaseInfo(i)
if dbi<>nil then
if dbi.Name = dbName then
ListBoxClients.deleteAllRows
for j = 1 to dbi.ClientCount
ci = dbi.ClientInfo(j)
if ci<>nil then
ListBoxClients.addRow ci.Address
ListBoxClients.cell(ListBoxClients.Listcount-1, 1) = str(ci.ConnectionID)
ListBoxClients.cell(ListBoxClients.Listcount-1, 2) = ci.Login
ListBoxClients.cell(ListBoxClients.Listcount-1, 3) = str(ci.Port)
end if
next
exit
end if
end if
next
end if
Not pretty, but not complicated. But the result is odd:
Note the information for user with the connection ID 32. The user name is "sa". However, according to Valentina Studio this should be "trixi". Bug or feature? Did I misunderstand something?
