Discussion :

[juju1988]

Bonjour,

J'ai un petit soucis... j'utilise des scans qui se connectent sur le même serveur de socket... comment puis-je récupérer leur indice de connexion par rapport à :

Code :

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

serverSocket.Socket.Connections[0]

Histoire de pouvoir renvoyer à chacun la bonne réponse ... (je sais pas si je suis très claire ...

Merci d'avance

[Paul TOTH]

Bonjour,

J'ai un petit soucis... j'utilise des scans qui se connectent sur le même serveur de socket... comment puis-je récupérer leur indice de connexion par rapport à :

Code :

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

serverSocket.Socket.Connections[0]

Histoire de pouvoir renvoyer à chacun la bonne réponse ... (je sais pas si je suis très claire ...

Merci d'avance

tu devrais garder un seul thread pour ton projet sinon il est compliqué de te suivre

à quel moment veux tu parler à un socket sans avoir accès à l'objet correspondant ?! si c'est une réponse, dans l'évènement déclenchant tu dois avoir une référence au socket concerné.

[juju1988]

Oui mais vu que le sujet est différent... je savais pas si je pouvais mélanger les deux... si tu préfères décaler le sujet et que tu en as la possibilité hésites pas... désolée

En fait j'ai plusieurs scans qui se connectent à mon serveur socket j'aimerai savoir comment récupérer leur identifiant en gros pour pouvoir renvoyer le bon résultat au bon scan demandeur ...

Sur le ClientRead j'ai mon receiveText...
A la connexion j'identifie mon Scan en récupérant son adresse IP...
Mais j'aimerai en fait récupérer son identifiant de connexion pour renvoyer avec

Code :

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

Socket.Connexions[0]

Sachant que 0 correspond au 1er client connecté, si c'est 1 au deuxième connecté... j'aimerai connaitre cet indice là pour pouvoir faire :

Si client 1 demande toto

Code :

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

Socket.Connexions[0].SendText('toto');

Si client 2 (celui qui se connecte en deuxième) demande titi

Code :

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

Socket.Connexion[1].SendText('titi');

[ShaiLeTroll]

Un classique !
As-tu lu l'aide ?
API:ScktComp.TServerWinSocket.Connections
ScktComp.TCustomWinSocket.RemoteAddress

Tu dois juste faire une boucle for sur Connections (ActiveConnections) et tester RemoteAddress

Lorsque tu reçois une connection d'un client ou lors d'un message, tu as le socket, tu peux mémoriser son Handle ou son RemoteAddress (l'IP que tu as récupéré), tu peux ensuite procéder comme dans ce sujet Utilisation des Tsocket

Ce que j'avais fait pour un programme de pilotage de trieuse de vêtement en 2001
Dans OnRead,
- je créé un pointer sur un record, celui-ci contenant le Handle du Socket emetteur, les données reçues (découpées et contrôlées) et des statuts
- j'ajoutais ce pointeur dans une TThreadList pour dispatch
- je générais aussi un acquittement ajouté dans le record et son pointeur ajouter dans la TThreadList d'envoi et envoyait l'acquittement à l'emetteur

Dans un thread de dispatch
- je parcourais la ThreadList (comme une FIFO) et dispatchait les messages aux threads de traitements (via d'autres ThreadList)

Dans les 3 thread de traitement (message de demande, message d'état, message d'acquittement)
- j'effectuais un tas de calcul (une sorte de Path Finding) et du SQL
- j'ajoutais au record la réponse au message et mettait le pointeur dans la ThreadList d'envoi

Dans un thread d'envoi
- je prenais la réponse et l'envoyait au socket correspondant au Handle !
- je mettais le message dans la liste d'attente d'acquittement avec gestion d'un time-out



J'ai écrit ce programme en 2001, j'étais en Licence Pro, j'étais apprenti, donc stagiaire ... tu devrais essayer de chercher par toi même, de consulter l'aide pour trouver les éléments utiles à ton besoin, le développement c'est de la technique et de la matière grise aussi !
Allez il faut enlever les petits roues et foncer !

[juju1988]

En fait j'ai utilisé le ActiveConnections quand le serveur accepte la connexion je récupère l'id connexion avec :

Code :

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

1
2
3
4
5
6
7
8
  idConnexion := IntToStr(serverSocket.Socket.ActiveConnections - 1);
  oqInsertIdConnexion.Close;
  oqInsertIdConnexion.SQL.Clear;
  oqInsertIdConnexion.SQL.Add('UPDATE adresseip SET idconnexion = :monIdConnexion WHERE adrip = :addIP');
  oqInsertIdConnexion.DeclareAndSet('monIdConnexion', otString, idConnexion);
  oqInsertIdConnexion.DeclareAndSet('addIP', otString, Socket.RemoteAddress);
  oqInsertIdConnexion.Execute;
  oqInsertIdConnexion.Session.Commit;

Et ensuite je met à jour ma table en fonction de l'adresse ip du scan connecté et au moment où je veux renvoyer le message...
Je récupère l'id connexion en fonction de l'adresse ip du demandeur :

Code :

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

1
2
3
idConnect := RetourneIdConnexion(addIP, oqRechercheAddIP);
 
      envoiMsgSocket(idConnect,addIP +TAB+ sRefXArt +TAB+  sLicXArt + TAB+ sQpsXArt + TAB + sQcsXArt +TAB+ sQseXArt +TAB+ sApiXArt, ServerSocket);

Grâce à ma fonction RetourneIdConnexion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function RetourneIdConnexion(adresseIP : String; oqRechercheAddIP : TOracleQuery) : integer;
 
begin
oqRechercheAddIP.Close;
oqRechercheAddIP.SQL.Clear;
oqRechercheAddIP.SQL.Add('SELECT idconnexion FROM adresseip WHERE adrip = :monIP');
oqRechercheAddIP.DeclareAndSet('monIP', otString, adresseIP);
oqRechercheAddIP.Execute;
 
RetourneIdConnexion := oqRechercheAddIP.Field(0);
end;