4D Doc Center : Commandes UDP, Présentation

4D v13.2

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)