4D Internet Commands v14

Commandes UDP, Présentation

Accueil

 
4D Internet Commands v14
Commandes UDP, Présentation

Commandes UDP, Présentation  


 

 

UDP (User Datagram Protocol) est un protocole de communication réseau déconnecté permettant la transmission de données par paquets. Facile à mettre en oeuvre, il est plus rapide et plus simple que le protocole TCP (l’en-tête UDP tient sur 8 octets, à comparer aux 20 octets minimum de l’en-tête TCP), mais il n’offre pas le même niveau de fiabilité. Il est adapté aux applications privilégiant la rapidité de transmission des données. En revanche, il ne permet pas de vérifier que les paquets sont bien arrivés à destination et ne propose pas de contrôle d’erreur ni de système de récupération.

Exemple  

L’exemple suivant utilise le protocole UDP pour récupérer dans des tableaux la liste de tous les postes 4D Server actifs sur le réseau local:

 TABLEAU TEXTE(taHost;0)
 TABLEAU TEXTE(taNomMachine;0)
 TABLEAU TEXTE(taService;0)
 TABLEAU TEXTE(taNomDB;0)
 C_BLOB($Blob)
 
 $Addr:="255.255.255.255"
 $Port:=19813
 $Offset:=32
 FIXER TAILLE BLOB($Blob;96;0)
 TEXTE VERS BLOB("4D Server II";$Blob;Mac texte sans longueur;$Offset)
 
 $Err:=UDP_New(0;$udpRef)
 $Err:=UDP_SendBLOBTo($udpRef;$Addr;$Port;$Blob)
 $Secs:=5
 $Timeout:=Nombre de millisecondes+($Secs*1000)
 Repeter
    ENDORMIR PROCESS(Numero du process courant;6) `... en ticks
    FIXER TAILLE BLOB($Blob;0;0)
    $PeerAddr:=$Addr
    $Err:=UDP_ReceiveBLOBFrom($udpRef;$PeerAddr;$Port;$Blob)
 
    Si(Taille BLOB($Blob)>0)
       $Offset:=0
       $Host:=BLOB vers texte($Blob;Mac chaîne en C;$Offset;32)
       $Offset:=32
       $Service:=BLOB vers texte($Blob;Mac chaîne en C;$Offset;32)
       $Offset:=64
       $NomDB:=BLOB vers texte($Blob;Mac chaîne en C;$Offset;32)
       $Pos:=Chercher dans tableau(taNomMachine;$Host)
       Si($Pos=-1)
          AJOUTER A TABLEAU(taHost;$PeerAddr)
          AJOUTER A TABLEAU(taNomMachine;$Host)
          AJOUTER A TABLEAU(taService;$Service)
          AJOUTER A TABLEAU(taNomDB;$NomDB)
       Fin de si
    Fin de si
 Jusque((Nombre de millisecondes>$Timeout)|($Err#0))
 $Err:=UDP_Delete($udpRef)

 
PROPRIÉTÉS 

Produit : 4D Internet Commands
Thème : IC UDP
Nom intl. : UDP Commands, Overview

 
VOIR AUSSI  

Routines de bas niveau, Présentation

 
UTILISATION DE L'ARTICLE

4D Internet Commands ( 4D Internet Commands v11.4)
4D Internet Commands ( 4D v13.2)
4D Internet Commands ( 4D Internet Commands v12.1)
4D Internet Commands ( 4D Internet Commands v14 R2)
4D Internet Commands ( 4D Internet Commands v14)
4D Internet Commands ( 4D Internet Commands v14 R3)
4D Internet Commands ( 4D Internet Commands v14 R4)