Partage et mise a jour des donnees entre Windev et WindevMobile

**massy2013** · 22/02/2015, 17h12

Bonjour à vous,
Voila j'ai deux projet windev et windev mobile... je dois faire communiquer ces deux projets ensemble dans les deux sens...
par exemple : comment pourrai je partagé et mettre a jour des données entre mes deux projets windev et windevMobile svp ???? Merci

**khnesi** · 26/02/2015, 22h06

Utilise les fonctions SocketCréeBluetooth (coté serveur ==> ton projet windev) et SocketConnecteBluetooth (coté client ==> ton projet windev mobile) pour faire la communication entres les deux applications,
puis tu envoies ton fichier à l'aide de la fonction socketecrit("nom_connexion","msg") et pour faire la réception :

Code :

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

1
2
3
resultat est une chaine = socketlit("nom_connexion")
 
//en fait tu vas trouver "msg" dans le contenu de la variable resultat.

S'il s'agit d'un fichier ou une image :

Envoie d'une image:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 sphoto est une chaîne = AlbumSélecteur()
buff est un Buffer = fChargeBuffer(sphoto)
extension est une chaîne = fExtraitChemin(sphoto,fExtension)
sNomFichier est une chaîne = fExtraitChemin(sphoto,fFichier)
fExtraitChemin(sphoto,fRépertoire)
 
 
SI SocketExiste("Connexion") ALORS
 
	SocketEcrit("Connexion","envoie"+RC+buff+RC+sNomFichier+RC+extension)
SINON
	Info("Aucun périphérique connecté")
 
FIN
 
Réception :
 
Si socketexiste("connexion") alors
mymessage est une chaine = socketlit("connexion")
action est une chaine = Extraitchaine(mymessage,1,RC)
si action = "envoie" alors
bufFichier est un Buffer = ExtraitChaîne(mymessage,2,RC)
	sNomfichier est une chaîne = ExtraitChaîne(mymessage,3,RC)
	sExtension est une chaîne = ExtraitChaîne(mymessage,4,RC)
	ToastAffiche("Réception de fichier en cours.....",toastCourt)
	SAI_SansNom1 = Taille(bufFichier)
	nIDFichier est un entier
sRépertoire est une chaîne
	sRépertoire = fRepSélecteur("", "", "Sauvgarde du fichier")
 
	nIDFichier = fOuvre(sRépertoire+"\reception\"+sNomfichier+sExtension, foEcriture)
	SI nIDFichier <> -1 ALORS
 
		// Découpe la chaîne en blocs et les écrit dans le fichier
		sBloc est une chaîne
		POUR i = 1 _A_ Taille(bufFichier) PAS 1024
			sBloc = bufFichier[[i sur 1024]]
			fEcrit(nIDFichier, &sBloc, Taille(sBloc))
		FIN
 
		// Fermeture du fichier
		fFerme(nIDFichier)
 
	SINON
		Erreur()
	FIN

J'espère que çela te résoudre le problème.

**massy2013** · 27/02/2015, 00h25

je vais voir ça !!!

**khnesi** · 28/02/2015, 02h07

Envoyé par massy2013

je vais voir ça !!!

Si ta pas arrivé à faire la communication, je peut t'envoyer un petit exemple.

Bon chance

**massy2013** · 05/03/2015, 03h40

oui je veux bien

**khnesi** · 07/03/2015, 21h31

Envoyé par massy2013

oui je veux bien

Donc, depuis le projet windev tu doit faire lancer un serveur bluetooth, voilà le 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
PROCEDURE Connexion()
 
SI SocketExiste("Connexion") = Faux ALORS 
	resultat est un booléen
 
	resultat=SocketCréeBluetooth("Connexion","SerialPortServiceClass_UUID")
	ToastAffiche("Lancement du serveur en cours.....",toastCourt,cvBas,chCentre,15) 
//on effectue une pause de 3 seconde
	Sablier(Vrai) 
	ChronoDébut() 
	TANTQUE ChronoValeur()<3000 
	FIN 
	Sablier(Faux)
//test de la création
	si resultat alors
//lancé un thread pour lire les messages envoyés depuis votre appareil mobile
	ThreadExécute("THREAD_LECTURE",threadNormal,Lire_Socket) 
        sinon
        info("Erreur lancement serveur")
        fin
 
FIN

Ceci permet de faire un traitement selon la socket

Code :

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

1
2
3
4
5
6
7
8
 
PROCEDURE Lire_Socket()
 
TANTQUE SocketExiste("Connexion") 
	mymessage est une chaîne
	mymessage=SocketLit("Connexion")
 
FINTANTQUE

Maintenant on doit faire une connexion au serveur lancée depuis l'ordinateur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
resultat est un booléen
 
SI SocketExiste("Connexion") = Faux ALORS
	//ATT_MAC c'est l'adresse MAC du péréphirique dont lequel on souhaite faire la connexion, tu récupére les péréphirique à travers la fonction "BTListePéréphiriqu"
	resultat=SocketConnecteBluetooth("Connexion","SerialPortServiceClass_UUID",ATT_MAC)
 	ToastAffiche("Connexion en cours.....",toastCourt,cvBas,chCentre)
Si resultat alors
info("Connexion effectué")
SINON
		Info("Impossible de se connecter au périphérique Bluetooth","Vérifier que l'application serveur est lancée sur l'ordinateur")
	FIN 
FIN

On essaye maintenant d'envoyer une photo par exemple :

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
 
sphoto est une chaîne = AlbumSélecteur()
SI sphoto <> "" ALORS
bufFichier est un Buffer = fChargeTexte(sphoto)
extension est une chaîne = fExtraitChemin(sphoto,fExtension)
sNomFichier est une chaîne = fExtraitChemin(sphoto,fFichier)
ntaille est un entier = Taille(bufFichier)
	bufFichier = Crypte(bufFichier,"mdp",crypteAucun)
	// Encodage afin que tous les caractères soient valides pour le transfert
	bufFichier = URLEncode(bufFichier)
 
SI SocketExiste("Connexion") ALORS
	SocketEcrit("Connexion","envoie"+RC+sNomFichier+RC+extension+RC+Taille(bufFichier)
//pour dire que le serveur est prêt à recevoir les informations, mais tu peut l'enlever et tu met directement SocketEcrit("Connexion","envoiefichier"+RC+bufFichier)
SI SocketLit("Connexion") = "ok" ALORS
	SocketEcrit("Connexion","envoiefichier"+RC+bufFichier)
	FIN
 
SINON
	Info("Aucun périphérique connecté")
 
FIN
FIN

Pour la récupère sur l'ordinateur on ajoute à la procédure Lire_Socket() le code suivant :

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
33
34
 
sType est une chaîne = ExtraitChaîne(mymessage,1,RC)
	SI sType = "envoie" ALORS
 
	SELON Dialogue("Un fichier réçu via bluetooth, vous voulez l'enregistrer?")
		CAS 1
				sNomfichier est une chaîne = ExtraitChaîne(mymessage,2,RC)
				sExtension est une chaîne = ExtraitChaîne(mymessage,3,RC)
				nTaille = ExtraitChaîne(mymessage,4,RC)
 
 
			sRépertoire est une chaîne
			sRépertoire = fRepSélecteur("", "", "Sauvgarde du fichier")
			SI sRépertoire <> "" ALORS
				SocketEcrit("Connexion","ok")
 
					FIN
				sMymessage est une chaîne = SocketLit("Connexion")
				sTypemsg est une chaîne = ExtraitChaîne(sMymessage,1,RC)
				SI sTypemsg = "envoiefichier" ALORS
					sbloc est un Buffer  = ExtraitChaîne(sMymessage,2,RC)
 
					sbloc = URLDécode(sbloc)
					// Du base64 on restaure un buffer avec le contenu initial 
					sbloc = Décrypte(sbloc,"mdp",crypteAucun,encodeBASE64)
					fRepCrée(sRépertoire+"\temp\")
					fSauveTexte(sRépertoire+"\temp\"+sNomfichier+sExtension,sbloc)
					fCopieFichier(sRépertoire+"\temp\"+sNomfichier+sExtension,sRépertoire+"\"+sNomfichier+sExtension,frRécursif)
					fRepSupprime(sRépertoire+"\temp\",frRécursif)
 
					FIN
				CAS 2
			FIN
FIN

Voilà un petit exemple.

Bon chance

**Lo²** · 16/03/2015, 09h32

Bonjour,

Avant de donner un élément de réponse, quelle est l'architecture de ton projet ?
- Base de données utilisée ?
- Données présentes sur le terminal ?
- Si oui, comment les données sont-elles récupérées ?
- Terminaux connectés en WIFI ?

a+

Partage et mise a jour des donnees entre Windev et WindevMobile

Windev Mobile

Discussions similaires

Partager

Partager