Discussion :

[micheln]

Bonjour

Dans le cadre d'un mini-projet, je dois créer un serveur tcp avec delphi. J'ai choisi Indy pour sa facilité, mais je bloque sur un problème: je dois empêcher deux clients ayant le même Identificateur de se connecter en même temps.
Le client envoieau serveur son identificateur aussitôt connecté.
Je précise bien qu'un même id ne peut pas se connecter 2 fois simultanément au serveur: la distinction se fait sur l'identificateur pas sur l'IP.

Ce que j'ai essayé de faire, c'est créer un nouveau type record (TClient: id, dateconnexion.., puis un pointeur vers ce type : PClient) que je transtype en TObject et que je stocke ensuite dans le champ data de TidPeerThread.

le code ressemble à ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure serveurConnect(AThread: TIdPeerThread);
var
  NewClient: PClient;
begin
  AddLogLine('Nouveau Client à ' + DateTimeToStr(Now) );
 
  GetMem(NewClient, SizeOf(TClient));
  NewClient.PeerIP      := AThread.Connection.Socket.Binding.PeerIP;
  NewClient.dtConnected   := Now;
  NewClient.LastAction  := NewClient.dtConnected;
  NewClient.Thread      := AThread;
 
  AThread.Data := TObject(NewClient);
end;

Ensuite après chaque nouvelle connexion, je dois vérifier si le nouveau client est déjà connecté. J'en suis pas encore là: je bloque rien qu'en essayant d'afficher dans un TMemo les données des Threads Actifs du serveur.
Ci-dessous mon Code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
var
 fTL: TList;//TThreadList;
 fClient: PClient;
 fTLCount, i: integer;  //nombre de threads actifs
 fIpClient: TIdPeerThread;
begin
try
 begin
  try
    fTL := TList.Create;
    fTL := thManager.ActiveThreads.LockList; 
   //thManager: ThreadManager du TidTCPServer
 
    fTLCount := fTL.Count;
    mmTh.Lines.Add('Nombre de Clients Connectés : ' + IntToStr(fTLCount));
    i := 0;
    while i < fTLCount do
     begin
      fClient := PClient(TIdPeerThread(fTL.Items[i]).Data);
      Memo.Lines.Add(DateTimeToStr(fClient.dtConnected));
      inc(i);
     end;
  finally
    thManager.ActiveThreads.UnlockList;
  end;
 end
except on e:exception do
 begin
  thManager.ActiveThreads.UnlockList;
  Memo.Lines.Add('Erreur : ' + e.Message);
 end

Où-est-ce que je me trompe? Que dois-je changer?

[Aka Guymelef]

Bonsoir,

mmh caster un record en TObject pour moi cela sent les problèmes à plein nez

Et si au lieu d'utiliser un record tu passes directement par une classe ?

[micheln]

Bonsoir,

mmh caster un record en TObject pour moi cela sent les problèmes à plein nez

Et si au lieu d'utiliser un record tu passes directement par une classe ?

En fait, je passais le pointeur du record, pas le record lui-même, mais c'est vrai que ça sens la bêtise :p

Par contre, même en essayant avec une classe, le problème reste le même !!
l'application plante, quand je débogue, le problème semble provenir de l'affectation de l'instance de ma classe au champ data de AThread:

Athread.data := TObject(instance_de_ma_classe)

je me demande si je devrais pas hériter mon propre TidPeerThread, et y ajouter ce que je désire afin d'éviter ça