Discussion :

[asenaici]

Bonjour,

J'utilise Delphi 10 Seattle et le composant TIdHTTPServer pour créer une application qui tourne sur un serveur sous IIS -> jusque là pas de souci
Mon problème est le suivant :
- si plusieurs personnes lancent le module web via le lien http -> les variables que j'utilise dans le programme se mélangent.
C'est-à-dire :
- A l'init du module web, j'initialise mes variables à 0
- 2 personnes se connectent en même temps et voit à l'écran une case pour saisir une variable
- la 1er personne modifie la variable (de 0, on passe à 5 par exemple) puis clique sur un bouton pour afficher le message : on obtient "variable à 5"
- la 2e personne ne modifie pas la variable et la laisse à 0 puis clique sur un bouton pour afficher le message : on obtient aussi "variable à 5"

Pourtant, j'initialise bien à 0 la variables

Alors, soit je m'y perds dans la fonction de faire, soit il manque quelque chose dans le paramétrage de IIS.

J'aimerais avoir de l'aide car je planche dessus depuis pas mal de temps.

Merci d'avance pour votre aide :-)

Cordialement

[ShaiLeTroll]

Sans compter que chaque requête pouvant être dans un thread séparé, il pourrait y avoir des accès concurrentiels lors du gestionnaire du OnCommandGet.

Dans le programme, il faut gérer des variables propres à chaque session, un TDictionnary<string, TSessionData> serait tout à fait utilisable protégé pour la lecture et l'ajout par une TCriticalSection (ou un MREWS mais c'est un peu plus délicat)

TIdHTTPServer d'ailleurs, à quoi sert IIS ?
c'est justement pour faire un Server Web autonome pas besoin de IIS ou Apache, idéal pour gérer un serveur REST
Cela complique nettement lorsqu'il faut gérer une session, cookie et tout le bazar du HTTPS avec un utilisateur identifié\authentifié.

[asenaici]

Bonjour et merci beaucoup pour cette réponse.

Serait-ce possible de me montrer via un exemple comment vous feriez ? comment vous utiliseriez cette technique ?

Merci d'avance pour votre aide

Cordialement :-)

[ShaiLeTroll]

Etudiez donc TIdHTTPRequestInfo.Session qui contient un TIdHTTPSession
Voir aussi l'évènement OnSessionStart et la propriété AutoStartSession

Vous devez maitriser le concept de Session si vous développez un mode "connecté"
Et le TIdHTTPServer contient une propriété SessionList TIdHTTPCustomSessionList implémenté par TIdHTTPDefaultSessionList qui utilise tout ce qui est décrit ci-dessus un tableau d'objet (TIdHTTPSession) identifié par une chaine et protégé par un verrou.

N'ayant pour ma part fait que des WebService REST one-shot ou utilisant un token, j'ai pu me passer de Session
Sinon, j'utilise à la place la Session externe fourni par l'appelant (PHP ou JQuery+PHP)

[asenaici]

Oui, j'ai déjà mis à True certaines propriétés du composant TIdHttpServer :
- AutoStartSEssion
- KeepAlive
- SessionState

Mais je ne comprends pas pourquoi les évènements OnSessionStart, OnSessionEnd, OnCreateSession ne se déclenchent pas !

[ShaiLeTroll]

SessionTimeOut, faut lui donner un temps, zéro c'est comme si il n'y avait pas de session
60000 pour commencer mais tu verras que ça pourrait être monter bien plus, à rendre configurable par l'utilisateur