Server UserListe abfragen

[ramboni]

Zitat:

Zitat von Sir Rufo (Beitrag 1259120)

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

Gemacht.

Gibt es eine "Ich lern das gerade" Version von Delphi?
4.159,00 ist mir zum "testen" zu viel :(

[Perlsau]

Zitat:

Zitat von ramboni (Beitrag 1259122)

Gibt es eine "Ich lern das gerade" Version von Delphi? 4.159,00 ist mir zum "testen" zu viel :(

Wie wär's mit Lazarus oder CodeTyphon: Ideal, wenn man kein Geld hat. Und ganz ohne irgendwelche Einschränkungen, man kann sogar Multiplattform-Applikationen entwickeln.

[ramboni]

Zitat:

Zitat von Sir Rufo (Beitrag 1259120)

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.

Was paßt denn besser?

[Sir Rufo]

Da du

Delphi-Quellcode:

record

und

Delphi-Quellcode:

class

kennst, liegt die Antwort doch auf der Hand.

Erstelle dir einen

Delphi-Quellcode:

record

oder eine

Delphi-Quellcode:

class

um die benötigten Informationen zu speichern, so wie du sie hast oder benötigst. Die einzelnen Elemente kannst du dann in einer Liste verwalten.

Kleines minimalistisches Beispiel:

Delphi-Quellcode:

type
  TUser = class
  public
    property Name : string;  
  end;

  TActiveUser = class
  public
    property User : TUser;
    property Sessions : TList<TSession>;
  end;

  TActiveUserList = class( TList<TActiveUser> )
  public
    // Angemeldete Benutzer mit Anzahl der Sessions
    procedure GetUsers( AUsers : TStrings );
  end;

procedure TActiveUserList.GetUsers( AUsers : TStrings );
var
  LUser : TActiveUser;
begin
  AUsers.BeginUpdate;
  try
    AUsers.Clear;
    for LUser in Self do
      AUsers.Add( Format( '%s (%d)', [ LUser.User.Name, LUser.Sessions.Count ] ) );
  finally
    AUsers.EndUpdate;
  end;
end;

[ramboni]

Ich habe noch nie mit Sockets gearbeitet.
Ich weiß überhaupt nicht wie ich da jetzt ran gehen soll :(

Wie sieht denn ein Socket aus, nach was muss ich dann suchen wenn z.B.
Socket1-5 connectet und ich den 3 haben will? Ist ein Socket eine Zahl oder String?

In dem verlinktem Tut wird das mit einer Listbox gemacht, aber auch da seh ich den Socket nicht.
Clients.Items.Strings[ClientIndex] := Data.Strings[1];


Ist es möglich ein Code Beispiel zu bekommen?

//Edit: Oh da ist ja Code, war der eben auch schon da? :o)


//Edit2: Was dafon ist der/das Socket?