Discussion :

[nooby004]

Bonjour,

Je souhaite faire communiquer une appli windev mobile avec une appli windev.
Je saisi une chaine de caractère depuis mon terminal et je l'envoi via wifi en me connectant à mon appli windev.
Or je ne reçois qu'un seul caractère.

Voici le code pour le serveur :

Code :

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

1
2
SocketCrée("serveur",4000,"192.168.8.139")
LIB_test=SocketLit("serveur",Vrai)

Et pour le client :

Code :

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

1
2
SocketConnecte("serveur", 4000,"192.168.8.139")
SocketEcrit("serveur",SAI_ID_code_barre)

Je suis débutant donc me frapper pas

[lazariel]

Quelque chose me chiffone dans l'utilisation de tes sockets...
Tu crées le socket puis tu lis directement ? Dans la théorie, tu dois suivre le schéma suivant pour le serveur :

1) Création du socket (socket())
2) Acceptation de la connexion (accept())
3) Lecture des données transmises (read())

Doc sur SocketAccepte()
http://doc.pcsoft.fr/fr-FR/?3070004&...cepte_fonction

L'exemple y est très parlant.

[Nicolas_Jeanneau]

Yannick a raison, il te faut faire une boucle d'attente sinon tu vas lire une fois juste après la création de la socket mais plus rien ensuite !

[nooby004]

Bonjour,

Je vous remerci. Juste après avoir posté mon messge, j'ai fais comme vous l'avais dit.

Code :

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

1
2
3
4
5
6
7
8
9
PROCEDURE attente()
BOUCLE
	SI SocketAttendConnexion("serveur") = Vrai ALORS
		canal est une chaîne
		canal = SocketAccepte("serveur")
		ThreadExécute("thread2",threadNormal,affichemes,canal)
		//Multitâche(-30)
	FIN
FIN

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCEDURE affichemes(canal)
ch est une chaîne
 
TANTQUE SocketExiste("serveur") = Vrai
	//SocketChangeModeTransmission(canal,SocketSansMarqueurFin,caract(13))
	ch = SocketLit(canal,Vrai)
	LIB_Test = ch
FIN
//ThreadArrête("",500)
//Multitâche(-30)

Et voici pour mon bouton :

Code :

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

1
2
3
4
5
6
7
SI PAS SocketCrée("serveur",9999,NetAdresseIP()) ALORS
	Erreur("Erreur de création " + ErreurInfo(errMessage))
	LIB_mess="Problème lors du démarrage du serveur"
SINON
	LIB_mess="Serveur démarré"
	ThreadExécute("thread1",threadNormal,attente)
FIN

Mais rien n'y fait, je ne reçoit toujours qu'un seul caractère. J'ai réussi à lançer des applis, mais pour les messages ça veut pas.

Je vous montre quand meme mon code pour l'envoi depuis l'appli windev mobile :

Code :

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

1
2
3
4
5
6
7
8
9
SI PAS SocketConnecte("serveur", 9999,"192.168.8.134") ALORS
	Erreur("erreur de connexion " +  ErreurInfo(errMessage))
SINON
	LIB_LIGNE="Vous êtes en ligne"
FIN
 
SI SocketEcrit("serveur", SAI_ID_code_barre) = Faux ALORS 
	Info ("Un problème est survenu")
FIN

[Lo²]

Salut à toi,

Voilà ce que j'utilise pour ma connexion entre une appli mobile et une appli PC :

Code :

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

1
2
3
4
5
6
// On envoie la demande
SI PAS EnModeTest() ALORS
	SocketEcrit(sSocket, UnicodeVersAnsi("mon message"))
SINON
	SocketEcrit(sSocket, "mon message")
FIN

Le EnModeTest() permet de savoir si on est sur l'appli mobile et donc, il est nécessaire d'utiliser UnicodeVersAnsi(..).

[nooby004]

Merci,

Ca ne marche toujours pas.
Pourtant quand je fais le code suivant, je reçoi bien le 3e caractère :

Code :

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

1
2
3
SI SocketEcrit("serveur", SAI_ID_code_barre[[3]]) = Faux ALORS 
Info ("Un problème est survenu")
FIN

Mais pour recevoir un message entier avec tous les caractères, rien n'y fait.
On dirait que je ne peux recevoir qu'un seul caractère par un seul caractère.
C'est bien possible d'envoyer une chaîne de caractère pourtant

[nooby004]

Tu avais raison en fait !!

Il fallait le passer en Ansi :

Code :

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

SocketEcrit("serveur",UnicodeVersAnsi(SAI_ID_code_barre))

Tout marche maintenant, je te remerci