TFbmUserCache.GetOnlineUsers
Diese Funktion ist eine Methode der Klasse TFbmUserCache und welche in der Unit Caches definiert wurde. Der Funktionstyp ist Prozedur.
Die Funktion verlangt folgende Parameter:
| Parameter |
Typ |
Beschreibung |
|---|---|---|
| List | TFbmIntegerList | In dieser Liste werden die Benutzer-IDs der Benutzer gespeichert, welche zur Zeit online sind. |
Liefert einer Liste aller Benutzer, welche zur Zeit online sind.
Benutzer anhand des FormattedName heraussuchen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
RecipientsName: string;
UserRefs: TFbmIntegerList;
i, UserRef: Integer;
begin
RecipientsName := ''; // Hier den gesuchten Namen reinschieben
UserRef := 0;
UserRefs := TFbmIntegerList.Create;
try
Item.UserCache.GetOnlineUsers(UserRefs);
for i := 0 to UserRefs.Count - 1 do
begin
if AnsiSameText(RecipientsName, Item.UserCache.GetFormattedNameByID(UserRefs[i])) then
begin
UserRef := UserRefs[i];
Break;
end;
end;
finally
UserRefs.Free;
end;
if UserRef > 0 then
begin
// Benutzer gefunden
end;
end.
RecipientsName: string;
UserRefs: TFbmIntegerList;
i, UserRef: Integer;
begin
RecipientsName := ''; // Hier den gesuchten Namen reinschieben
UserRef := 0;
UserRefs := TFbmIntegerList.Create;
try
Item.UserCache.GetOnlineUsers(UserRefs);
for i := 0 to UserRefs.Count - 1 do
begin
if AnsiSameText(RecipientsName, Item.UserCache.GetFormattedNameByID(UserRefs[i])) then
begin
UserRef := UserRefs[i];
Break;
end;
end;
finally
UserRefs.Free;
end;
if UserRef > 0 then
begin
// Benutzer gefunden
end;
end.
Siehe auch: