Hvordan bruges TServerSocket? Pleas. Vil blive meget glad.

Har du kikket på Delphi's egne eksempler? Der burde gerne være et par med socket. Noget chat-halløj eller sådan noget.

nej der er ikke lige det jeg skal bruge

Når brugeren kobler på, gemmer du info om ham, (hostmask, remoteaddress,remoteport, osv) i en record, når du så skal sende til en enkelt løber du alle forbundne klienter igennem og tjekker op på de data du gemt, der hvor de alle passer har du din specifikke klient.

Var det en god nok løsning?

kan du give et lille eksempel? evt bare lidt kode

Ok, dette er dog noget kode fra et af mine projekter.

Du har en record til at gemme info om hver bruger:

type
    TUsers = record
        Name        : string;
        RemoteAddr  : string;
        RemotePort  : Integer;
        PingValue  : string;
        PingNb      : Integer;
        LoggedIn    : Integer;
    end;
    PUsers = ^TUsers;  //pointer til denne record type

En liste til at holde pointere til disse records:

var
  userList : TList;


    UserList := TList.Create();  //I form create et sted...

jeg har også en procedure som bruges til at tilføje nye klienter:

Procedure AddUser(Name, RemoteAddr : String; RemotePort : Integer);
var
  User : PUsers;
begin
  New(User);  //Pointer til ny record

  User^.Name := Name;
  User^.RemoteAddr := RemoteAddr;
  User^.RemotePort := RemotePort;
  User^.PingValue := '';
  User^.PingNb := 0;

  UserList.Add(User); //tilføjer pointer til listen, listen indeholder nu også denne bruger
end;

Når klienten så er connected, og har sendt en streng eller lign for at logge ind (i mit tilfælde) kan du så add'e ham, i OnCLientRead:

    RemoteAddr := Socket.RemoteAddress;
    RemotePort := Socket.RemotePort;

    //... tjek om han skal have lov at logge ind, eller noget
    //.. finde det navn han sender, evt tjekke om det allerede er i brug
    //.. tilføj bruger til listen

    AddUser(BrugersNavnHer, RemoteAddr, RemotePort);

-----

når brugeren så senere skriver, kan du løbe listen igennem og tjekke efter hvor den brugers RemoteAddr og RemotePort matcher, og så pille navnet ud.

når du skal sende til brugeren og kun har hans navn, løber du listen igennem, finder RemoteAddr og RemotePort, herefter løber du alle connections igennem, for at finde der hvor RemoteAddr og RemotePort matcher en connection, når de gør det sender du.


Var det eksempel nok?

.. husk UserList skal være deklareret globalt.

ok kigger lige på det så skal du nok få dine point

OK MANGE TAK