Création d'une communication par Socket

//Pour ouvrir une communication par socket

 

Socket.Option = SocketOptimiseConnexionIP

 

SI PAS SocketExiste("TEST") ALORS

     SI PAS SocketCrée("TEST",50000) ALORS

          FinProgramme(ErreurInfo(errComplet))

     FIN

     SI PAS SocketChangeModeTransmission("TEST",SocketSansMarqueurFin) ALORS

          FinProgramme(ErreurInfo(errComplet))

     FIN

FIN

 

 

//Suite du programme...

 

 

//Pour fermer une communication par socker

 

SI SocketExiste("TEST") ALORS

     SocketFerme("TEST")

FIN