Utilisation des Tsocket

Version imprimable

29/05/2007, 02h36
lou_delphdev

Utilisation des Tsocket

Bonjour tous le mond!!!

exposé du prob:
je suis sur une application (compteur pour un Cyber cafe), c'est une application sur réseau local!, pour cela j'utilise les composants serversocket et clientsocket.
sur l'application serveur g tous les postes client(affichés sous formes d'iconnes) et le compteur y est au serveur; et lappli client ne sert que pour l'affichage du montant , l'heur de début et de fin d'utilisation!
mon prob est comment faire pour détecté les applit clients sur le serveur afin de permetre une transmission entre le compteur 1 (timer) et lapli 1 (poste1) ainsi de suit...
PS: je n'ai pas beaucoup d'experience en ce domaine!!!
et que me conseillez vous? de laisser le compteur sur le serveur! oubien de le mettre sur les appli clients?

Veuillez accepter mes salutations distinguées!
29/05/2007, 02h38
lou_delphdev

au fête mon souci est comment faire pour différencier les aplications des clients au niveau de l'apli serveur, afin de pouvoir faire des transmissions de données pour chaqu'un!
je vous rappel que j'utilise des timer pour chaque poste!
les timers sont dans l'aplication serveur!!!
Je vous remerci d'avance!!!
29/05/2007, 10h41
Clorish

Sur le serveur je creerait une classe "TClient" qui possede une procedure "IncTime" liée a une variable privée "_Time".

Cette fonction ne se contente que d'incrementer cette variable.

La liste des client connecté est definie par un array of TClient dynamique.

Lorsqu'une session est lancée, le client se connecte au serveur qui lui attribue un "socket" (parametre de l'evenement "OnConnect")

Le plus simple serait de sotcké ce socket dans une property du TCient...

PAr contre je me demande si ca ne serait pas mieux que ce soit le client qui effectue une requette toutes les X secondes (parametrable) pour recuperer la valeur du compteur ....

Voila pour quelques pistes de bases. Je ne suis pas expert en la matiere, mais j'ai deja mis en place cela dans un projet de "Chat" basique ... pour tester la technologie.

J'ai déjà fait ce genre de chose pour un pilotage de trieuse, regarde dans l'exemple Chat fourni avec Delphi 5 et 6 ...

Ce code est un peu vieux (2001)

Code:

1
2
3
4
5
 
...
              Index := IndexHandle(FrmMainServeur.SocketDFT, TTelegrammeDFT(TelegrammeDFTLst[I]^).Handle) ;
              FrmMainServeur.SocketDFT.Socket.Connections[Index].SendText(TTelegrammeDFT(TelegrammeDFTLst[I]^).Acquittement);
....

SocketDFT étant un Serveur Socket

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function IndexHandle (var ServerSocket : TServerSocket; Handle : Integer) : Integer ;
var
    I : integer;
begin
    // Verification de la connexion
    Result := -1 ;
    for I := ServerSocket.Socket.ActiveConnections - 1 downto 0 do begin
        if (Handle) = ServerSocket.Socket.Connections[i].SocketHandle then begin
            Result := I ;
            Break ;
        end;
    end;
end ;

dans un projet similaire en 2003, j'ai fait ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
for iSocket := 0 to FrmServeur.ServerSocketCHM.Socket.ActiveConnections - 1 do begin
    try
       if FrmServeur.ServerSocketCHM.Socket.Connections[iSocket].Connected then begin
          FrmServeur.ServerSocketCHM.Socket.Connections[iSocket].SendText(BufferSendStr);
          IncPrgNumber('CHM');
          // Log du Buffer envoyé à Sandvik
          if gFlagLogBrut then begin
             FichierLog('OAM_TO_CHM_RTX','CHM',BufferSendStr);
          end;
       end;
 
    except
          FichierLog('OAM_TO_CHM_RTX_EXCEPT','CHM',Exception(ExceptObject).Message);
    end;
end;

Toutes les Sockets connu sur le port CHM recoivent le message