HELP! Besoin d'un pro sur l'utilisation de "socket"

Recherche :

Dernière réponse
Sujet : HELP! Besoin d'un pro sur l'utilisation de "socket"
FLo14	Va voir en cat prog :d

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

FLo14

Va voir en cat prog :d

guga2121

FLo14 a écrit :

Un socket est juste une interface d'abstraction pour "attaquer" le réseau :d
Après faut te programmer ton appli en utilisant ces sockets :d

Bon ca y est !!! j'ai enfin réussi à faire une procédure (en Tcl) qui lance des commandes à ma machine distante. :D
Par contre, maintenant je voudrais récupérer les messages de réponse (de la machine distante) à ces commandes... :pfff:
Si vous avez des idées, voici ma procédure :

Code :

#-------------------------------------------------
# Envoi de commande à la machine distante
#-------------------------------------------------
proc sendCmdToMachineDistante {cmd} {
global cfg
if {[catch {
# Ouvre une connexion vers le CMS Remote
set cfg(sock_cms) [socket $cfg(ADDR_IP) $cfg(NUM_PORT)]
# Configuration non-blocking port
fconfigure $cfg(sock_cms) -blocking 0
# Associate a reader with the channel
fileevent $cfg(sock_cms) readable
} status] == 1} {
# Récupération de l'erreur d'ouverture de connection
set Id [open "C:/Tcl/Erreur_commande_CMS_Remote.txt" "a"]
puts $Id "Failed to open connection :"
puts $Id " error : $status"
close $Id
}
# Lancement de la commande
if {[catch {
puts -nonewline $cfg(sock_cms) "$cmd"
# Vidage buffer
flush $cfg(sock_cms)
# Attente --> filevents
after 10000 {set done 1}
vwait done
} status] == 1} {
set Id [open "C:/Tcl/Erreur_commande.txt" "w"]
puts $Id "Failed to send command :"
puts $Id " --> $cmd"
puts $Id " error : $status"
close $Id
# Fermeture de la connection
try {
close $cfg(sock_cms)
} {
# Récupération de l'erreur de fermeture de connection
set Id [open "C:/Tcl/Erreur_commande.txt" "a"]
puts $Id "Failed to close the connection"
close $Id
flush stdout
}
unset cfg(sock_cms)
}
}

FLo14

Un socket est juste une interface d'abstraction pour "attaquer" le réseau :d
Après faut te programmer ton appli en utilisant ces sockets :d

guga2121

kill9 a écrit :

:heink: pour moi un socket c'est IP+port.
Mais là je ne vois pas ce que tu veux dire.Tu veux refaire un BackOriffice ? :heink:

oui c bienIP+port socket @ip num_port mais il faut deux socket pour effectuer une communication non? (socket client et socket server)
et je demande si le socket server et le socket client peut etre défini sur une même machine, dans un même script... Ou alors il faut lancer en tâche de fond le socket server grâce a un script sur la machine distante.
Si c'est le cas je ne peut pas utiliser la solution socket puisque ma machine distante ne "comprend" que des commandes TL1.

kill9

:heink: pour moi un socket c'est IP+port.
Mais là je ne vois pas ce que tu veux dire.Tu veux refaire un BackOriffice ? :heink:

guga2121

Bonjour à tous :hello:

Voila, je dois réaliser un programme permettant de lancer des commandes sur une machine distante et on m'a conseillé d'utiliser "socket".
De ce que je comprend sur les sockets, c'est qu'il faut en déclarer 2 : 1 socket serveur et l'autre client.
Seulement ma machine distante ne comprend que le langage TL1 :ouch: , donc la configuration des sockets doit se faire depuis la machine locale.
Alors je voudrais connaitre l'avis de personne maitrisant socket... si c'est possible, et si oui quelques conseils :ange:

Merci d'avance !!!