Je te remercie pour l'info, mais je ne veux pas "créer" un composant, mais juste utiliser l'existant. Ca veut peut-être dire la même chose au final, vu le code...
J'ai trouvé mon bonheur avec ces qq lignes, je les mets pour répondre à la question...
var
ListeSockets: array[1..100] of TClientSocket;
procedure TClientForm.ClickConnexion(Sender: TObject);
var
idx : cardinal;
begin
for idx:=1 to 100 do
begin
if not Assigned(ListeSockets[idx]) then
begin
ListeSockets[idx] := TClientSocket.Create(self);
ListeSockets[idx].Host := 'localhost';
ListeSockets[idx].Port := 1024;
ListeSockets[idx].ClientType := ctNonBlocking;
ListeSockets[idx].OnRead := OnReadSock1; // Fonction de lecture des données reçues du serveur
ListeSockets[idx].Open;
sleep(200);
end;
end;
Pour l'instant, la seconde partie dont tu parles "Form1.Components[i]...", je ne m'en sers pas, mais c'est bon à savoir.
Merci.