Discussion :

[apdsi]

Bonjour,

Dans le cas de l’utilisation d’une table HyperFile Classinc installée dans un dossier partagé pour être utilisée par plusieurs postes, comment peut-on détecter sur le poste 1 que la table a été modifiée sur le poste 2 pour mise à jour automatique de l’affichage sur le poste 1.

Exemple : cas d’un planning partagé par deux utilisateurs, si les deux sont sur le planning en même temps quand la planning est modifié sur l’un des postes, mise à jour automatique sur le second poste sans que l’utilisateur n’ait à rafraichir l’affichage.

Merci de vos réponses...

[Bowen]

A mon avis, un thread appelé en boucle, genre toutes les 5 seconde, et HVersion() pour savoir si le contenu du fichier a changé.

[DelphiManiac]

J'aurais aussi tendance à proposer un thread, mais ce thread serait à l'écoute d'une connexion UDP, ca éviterait les pull toutes les x secondes sur la base de données.

Exemple de code :

Parti réception :

Code :

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

1
2
3
4
5
6
7
8
9
PROCEDURE Ecoute_socket()
SocketCréeUDP("reception", 12345, "192.168.0.11")
 
TANTQUE SocketExiste("reception")=Vrai
	sMsg est une chaîne = SocketLit("reception", Vrai)
	SI sMsg <> "" ALORS
		ListeAjoute(liste_messages, HeureVersChaîne(Maintenant()) + " " + sMsg)
	FIN
FIN

à lancer dans un thread

Code :

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

1
2
 
ThreadExécute("communucation", threadNormal, "Ecoute_socket")

ne pas oublier de terminer le thread en fin de programme.

Code :

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

ThreadArrête("communucation")

Pour envoyer un message :

Code :

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

1
2
3
4
Socket.Option = SocketOptimiseConnexionIP
SocketCréeUDP("envoi", 12346, "192.168.0.11")
SocketEcrit("envoi", msg, "192.168.0.255", 12345)
SocketFerme("envoi")

"192.168.0.11" étant l'adresse ip de la machine ou tourne l'exécutable (voir NetAdresseIP) et faire attention si l'on plusieurs cartes réseaux.

"192.168.0.255" étant l'adresse de broadcast dépendante du masque de sous réseau ("192.168.0.255" c'est pour un masque "255.255.255.0")

Ce genre de message de broadcast fonctionne bien sur un réseau local, mais habituellement ne passe pas à travers les routeurs.

12345 et 12346 étant 2 ports choisis aléatoirement, le tout étant de prendre 2 ports non habituellement utilisés par des applications classiques (pas le 80 (HTTP), le 21 (FTP), etc...)

[Arnaud B.]

Merci beaucoup je m'étais toujours posé la question de savoir s'il était possible de mettre en place un broadcasting pour le rafraichissement !

Connais tu des inconvénients à utiliser ce système ? (à part le pb de routage que tu évoques).

Cdlt, Arnaud.

J'aurais aussi tendance à proposer un thread, mais ce thread serait à l'écoute d'une connexion UDP, ca éviterait les pull toutes les x secondes sur la base de données.

Exemple de code :

Parti réception :

Code :

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

1
2
3
4
5
6
7
8
9
PROCEDURE Ecoute_socket()
SocketCréeUDP("reception", 12345, "192.168.0.11")
 
TANTQUE SocketExiste("reception")=Vrai
	sMsg est une chaîne = SocketLit("reception", Vrai)
	SI sMsg <> "" ALORS
		ListeAjoute(liste_messages, HeureVersChaîne(Maintenant()) + " " + sMsg)
	FIN
FIN

à lancer dans un thread

Code :

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

1
2
 
ThreadExécute("communucation", threadNormal, "Ecoute_socket")

ne pas oublier de terminer le thread en fin de programme.

Code :

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

ThreadArrête("communucation")

Pour envoyer un message :

Code :

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

1
2
3
4
Socket.Option = SocketOptimiseConnexionIP
SocketCréeUDP("envoi", 12346, "192.168.0.11")
SocketEcrit("envoi", msg, "192.168.0.255", 12345)
SocketFerme("envoi")

"192.168.0.11" étant l'adresse ip de la machine ou tourne l'exécutable (voir NetAdresseIP) et faire attention si l'on plusieurs cartes réseaux.

"192.168.0.255" étant l'adresse de broadcast dépendante du masque de sous réseau ("192.168.0.255" c'est pour un masque "255.255.255.0")

Ce genre de message de broadcast fonctionne bien sur un réseau local, mais habituellement ne passe pas à travers les routeurs.

12345 et 12346 étant 2 ports choisis aléatoirement, le tout étant de prendre 2 ports non habituellement utilisés par des applications classiques (pas le 80 (HTTP), le 21 (FTP), etc...)

[DelphiManiac]

A ma connaissance, pas de problème, ce n'est que de l'UDP, protocole très utilisé tout comme le TCP. Pas testé pour le moment sous Windev (je débute), mais déjà mis en place en Delphi.

Au pire, tu peux tester cela avec une tout petit bout de code déployé sur plusieurs postes et laisser tourner avec un timer qui génère des messages aléatoirement.