Discussion :

[JohnLocke]

Bonjour, j'aimerais via mon serveur envoyer un message à un client seulement, pour cela j'aimerais savoir s'il est possible plutôt qu'utiliser l'index pour définir le client, utiliser l'handle, ou savoir s'il est possible de récupérer l'index à partir de l'handle

Form1.TServer1.Socket.Connections[Form1.ListView1.Selected.Caption.ToInteger].SendText('test123')
Form1.ListView1.Selected.Caption (contient l'handle, le code ne fonctionne pas)

merci

[JohnLocke]

J'ai tenté en utilisant la fonction handleindex trouvé sur l'un de mes précédent sujet, mais celui si me retourne toujours "0"

[JohnLocke]

J'ai enlevé la ligne "if not assigned form2" qui posait problème, j'ai rajouté des msgbox un peu partout dans l'code pour vérifier les valeurs des handles de mes clients, et je constate que dans ma listview, mes handles sont des chiffres de 7 caractères, alors que dans ma msgbox ils n'en font que 3, est il possible que le handle change ?

Je m'y prend de cette facon pour ajouter l'handle d'un client et son IP à la listview

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.TServer1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
 
begin
 List := ListView1.Items.Add;
 List.Caption := inttostr(socket.Handle);   //On met l'ID du client dans la list
 List.SubItems.Add(socket.RemoteAddress);   //et son @IP
end;