Server UserListe abfragen

[Frage95]

schon klar aber woher bekomme ich diese Liste ?

[p80286]

Indem Du sie erstellst?
z.B. so:

Delphi-Quellcode:

Userlist: Tstringlist;

..
Userlist:=Tstringlist.create;

procedure TfrmServer.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Status: Client ' + Socket.RemoteAddress + ' verbunden.');
  Userzahl:=Userzahl +1;  // woher auch immer das kommt!
  Userlist.Add(UserName); // woher auch immer das kommt!
  User.Caption:='User: ' + IntToStr(Userzahl);
end;

procedure TfrmServer.ServerClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
var
  uli : integer;
begin
  Memo1.Lines.Add('Status: Client ' + Socket.RemoteAddress + ' getrennt.');
  Userzahl:=Userzahl -1;
  uli:=userList.Indexof(UserName);     // woher auch immer das kommt!
  if uli>-1 then Userlist.delete(uli); // woher auch immer das kommt!
  User.Caption:='User: ' + IntToStr(Userzahl);
end;

So könnte man es machen, die Frage ist aber wo die Information UserName herkommt, ebenso scheint ja auch Userzal vom Himmelgefallen zu sein und User könnte ein Formular sein.
Für mich etwas zu viel Konjunktiv.

ruß
K-H

[himitsu]

Man kann die Namen auch in den Benutzerdaten des Socket speichern.
Muß dann beim erstellen der Liste nur alles sockets auflisten und da den Namen auslesen.

Oder wenn es nur in der Userlist gespeichert wird,
dann macht es sich nicht schlecht da auch den zugehörigen Socket mit zu speichern, damit man eine Verbindung zwischen Socket und Benutzer hat.

PS: Useranzahl := Userlist.Count;

[ramboni]

Zitat von himitsu:

Man kann die Namen auch in den Benutzerdaten des Socket speichern.
Muß dann beim erstellen der Liste nur alles sockets auflisten und da den Namen auslesen.

Oder wenn es nur in der Userlist gespeichert wird,
dann macht es sich nicht schlecht da auch den zugehörigen Socket mit zu speichern, damit man eine Verbindung zwischen Socket und Benutzer hat.

PS: Useranzahl := Userlist.Count;

Hi,

interessantes Thema. Ich versuche sowas auch gerade.
Wie kann ich denn den Socket mit in einer Stringlist speichern?
Wie sieht so ein gespeicherter Wert dann aus und wie kann ich danach
Suchen damit ich z.B. eine Nachricht nur an diesen User senden kann?

LG RamboNi

[Sir Rufo]

Zitat von ramboni:

Wie kann ich denn den Socket mit in einer Stringlist speichern?

Sinnvoll ist es das erst gar nicht mit einer StringList speichern zu wollen.

Welche Delphi-Version setzt du denn ein (kann man aus deinem Profil ja leider nicht ersehen)?

[ramboni]

Ich teste mich seit kurzem im Programmieren, habe aber leider
keine eigene Lizens also nutz ich den Rechner eines ehem. Kollegens dafür.
So genau weiß ich es aber nicht. XE irgendwas... reicht das vielleicht schon?

Wo/wie speicher ich die denn, wenn nicht in einer Stringlist?

[Sir Rufo]

Im Profil trägt man nicht die Lizenz ein, sondern die Version mit der man hauptsächlich arbeitet.

Eine StringList ist primär zum Speichern/Verwalten von Text (eine Liste mit Strings).
Passt ja nicht so wirklich, wenn man Benutzer und Socket (und ...) verwalten möchte.
Geht irgendwie schon, aber man ist fast nur am hin- und herwandeln (string <-> echte Information).

Records und Klassen kennst du schon?

Wenn nicht, dann solltest du auf jeden Fall zunächst ein paar Grundlagen-Tutorials durcharbeiten.