PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → Off-topic → Re: [WD12] Serveur Sockets avec un client non windev
Re: [WD12] Serveur Sockets avec un client non windev
Iniciado por Althaz, fev., 16 2010 10:43 AM - Sem resposta
Publicado em fevereiro, 16 2010 - 10:43 AM
Bonjour Nomax,

Merci pour cette réponse.

En effet j'avais commis cette erreur avec le code que j'avais mis en ligne, mais je l'avais corrigé quelques minutes après sans plus de succès.

En fait j'ai fini par trouver à l'aide de l'exemple que tu cites.

Le code de cette dernière fonction avec la lecture du socket aurais du être :

sMessage est une chaîne
sIp est une chaîne = SocketClientInfo(canal,SocketAdresse)

// Lecture des messages
BOUCLE

SI SignalAttend("TERM",5) ALORS SORTIR


sMessage = SocketLit(canal,Faux,10)

SELON sMessage
CAS "BYE" :
// Sortie de l'utilisateur
SORTIR

CAS "" :
// Ce n'est pas une lecture bloquante, on retourne dans la boucle
Multitâche(-1)

AUTRES CAS :
// Message à poster
SAI_Valeur_Recue = sMessage
FIN
FIN

// Fermeture de la socket
SocketFerme(canal)


Si on se contente d'une seule lecture on ne récupère que du vide.

Maintenant j'ai un autre challenge : réussir à faire fonctionner cette lecture avec un programme développé en Delphi et pas en windev. Si vous avez une idée de ce qu'il faut faire je suis preneur car je ne récupère que du vide quand c'est le programme sous Delphi qui envoie !

J'ai essayé ceci pour le moment :
SocketChangeModeTransmission("Serveur", SocketMarqueurFin)
Je continue de chercher comment rendre compatible.

Merci