Créer un serveur TCP/IP

Je voudrais créer un serveur TCP/IP sur lequel les clients viendaraient se connecter.
Je cafouille un peu avec l'aide et n'y arrive pas.
Quelqu'un a-t-il un bon point de départ?

Tu utilises quels composants ? TSocket ou Indy ?

Cordialement, Bacterius !

Je pense que c'est TSocket (indy connais pas) .
J'ai téléchargé des zip que j'ai trouvé mais lorsque j'ouvre le projet j'ai le message:
classe TClientSocket non trouvée.
j'ai essayé:
serversocket:=tserversocket.create(self);
seversocket.open;

cela a l'air de faire quelque chose car Vista me demande une autorisation, mais je n'arrive pas à donner un numéro de port (il est à 0), et ensuite si j'essaie de connecter un client (avec le port 0!)  rien ne se passe.

Le port 0 est réservé, il vaut mieux prendre un port au dessus de 1024 (Windows utilise les autres pour son propre usage), genre 12455, 7883, etc ...

Il faut d'abord définir le port de ton serveur : ServerSocket.Port := 1495;
Et ensuite, activer ton serveur : ServerSocket.Active := True;

Ensuite, avec ton client : ClientSocket.Port := 1495;
Puis : ClientSocket.Connect; (je crois, je n'ai pas Delphi sous la main)

Ensuite tu peux gérer les acceptations de connexions, les connexions, etc ... je te laisse chercher.

Cordialement, Bacterius !

Oui, je sais que les ports au-dessous de 1024 sont en principe réservé au système.
J'avais dans le temps créé des liaisons TCP/IP surtout en client, et il existait un composant socket qu'on pouvait mettre sur sa fiche.
Maintenant je travaille avec Turbo Delphi et ce composant a disparu. Il me dit que sur la form il n'y a pas de classe correspondante.
Je suppose que cela doit être pour pouvoir faire des modules exécutables sans fiche.

Ah je n'ai jamais essayé TurboDelphi mais il semblerait, en effet, que la gestion de composants soit différente.
Je ne peux pas vraiment t'aider sur les classes TSocket, mais en revanche, je peux t'aider sur comment faire fonctionner le socket si tu as des problèmes.
Dernière tentative de ma part : as-tu mis ScktComp dans les Uses ?

Cordialement, Bacterius !

Oui j'ai bien Scktcomp dans le uses.
Je continue à lire pour comprendre ce qui ne va pas.
Au besoin j'ai aussi un accès à Delphi7 avec tous les composants Indy (ca y est je sais ce que sais -en gros-)
Je continue....

J'ai progressé!
Maintenant j'arrive à lancer le serveur sans que cela se plante et il reçoit bien le message du client. je donnerai le détail de la solution que j'ai lorsque cela sera à peu près propre.
Maintenant, je cherche à renvoyer une réponse au client qui s'est connecté. Je suppose qu'une socket lui a été affectée et que c'est cette socket qui doit être utilisée? Est-ce que je dois noter la socket au moment de la connexion (ou accept?)
Après je voudrais bien maîtriser les threads: je crois comprendre en gros - un nouveau thread est lancé pour chaque client qui se connecte, mais doit-on le créer nous-même ou est-ce automatique avec la création de chaque connexion? ou chaque requête?
Pour éclairer un peu ta lanterne j'utilise un TServerSocket
que je crée au moment du form_create
serversocket:=tserversocket.create(self);
serversocket.Port:= 3000;
serversocket.OnClientConnect:= ServerSocketClientConnect;
serverSocket.OnAccept:= ServerSocketAccept;
ServerSocket.OnThreadStart := ServerSocketThreadStart;
ServerSocket.OnClientRead:= ServerSocketClientRead;
ServerSocket.OnClientWrite:= ServerSocketClientWrite;
serverSocket.OnGetSocket:= ServerSocketGetSocket;
Serversocket.OnGetThread:= ServerSocketGetThread;
ServerSocket.OnListen:= ServerSocketListen;
ServerSocket.OnThreadEnd:= ServerSocketThreadEnd;
Serversocket.OnThreadEnd:= ServerSocketThreadStart;
serverSocket.open;

Certes il y a beaucoup de choses inutiles je pense mais cela m'a permis de suivre le mécanisme de connexion. (Je n'utilise pas with car cela me permet d'avoir la syntaxe correcte des procédures reconnues.)
Cela devrait être plus simple par la suite...

En fait, les sockets clients sont stockés dans ServerSocket.Sockets.Connexions[Index: Integer]
Dans Connexions, en spécifiant l'index du socket client, tu peux utiliser SendText, ou mieux encore ! SendBuffer (ce qui te permettra par exemple d'envoyer des fichiers sous la forme d'un TFileStream).
Et bien sûr il est plus interessant d'investir dans un SendBuffer plutôt que dans un SendText (car SendBuffer peut, bien sûr ! envoyer du texte).

Voilà, je te souhaite bon succès dans ton serveur, et si tu as besoin encore d'aide ...

Cordialement, Bacterius !

Merci, je pense que c'est ce dont j'avais besoin. Ce n'est pas facile de le trouver dans la doc.
j'avais fait un serveur en REBOL et je n'avais eu aucun mal à avoir cette info.
Je vais tester et revenir dire si ça marche....