Guide de Démarrage rapide

Prêt à développer votre premier serveur LightREST ?
C’est parti !

• Téléchargement du composant LightREST ICI et dézip du fichier
• Création un nouveau projet WinDev (versions 25 et supérieures)
• Dans l’Explorateur du projet, clic-droit sur « Composants Externes » et sélection de « Importer un composant externe à partir d’un fichier »

• Sélection du fichier LightREST3.wdi, présent dans le sous-répertoire « Binaires/LightREST3 » (ou une autre version en fonction de la ou les plateforme(s) cible(s))
• Validation des divers écrans de confirmation
• Déplier l’élément « Composant LightREST » dans l’Explorateur du projet, le contenu devrait apparaître :

• Dans le code d’ouverture du projet, copier/coller ce code qui :
  
  • Crée une route REST avec l’URL /ping et la méthode GET
  • Démarre le serveur REST sur le port 9876
  • Implémente une fonction REST piPing() qui va générer la réponse (nb : on utilise ici une procédure interne par souci pratique; dans un vrai projet, on privilégiera une collection de procédures contenant les handlers REST) :
    • Le contenu de la réponse est « Pong » + IP client + heure système
    • Le type du contenu est TEXTE (type MIME text/plain)
    • Le statut de retour est OK (Statut HTTP 200)

oServer est objet lrServer
oRoute  est objet lrRoute
bOK     est booléen
sErr    est chaîne

oServer:IPAndPort = "127.0.0.1:9876"

oRoute.Method       = lrRoute::MethodGET
oRoute.Route        = "/ping"
oRoute.RESTFunction = piPing

(bOK, sErr) = oServer:AddRoute(oRoute)
SI PAS bOK ALORS
    Erreur("Erreur lors de la création de la route : ", sErr)
    RETOUR
FIN

(bOK, sErr) = oServer:Start()
SI PAS bOK ALORS
    Erreur("Erreur lors du démarrage : ", sErr)
    RETOUR
FIN

Info("Call http://[%oServer:IPAndPort%][%oRoute:Route%]", CRLF+"Click on OK to close LightREST server")

oServer:Terminate()

////////////////////////////////////////////

PROCEDURE INTERNE piPing(poRequest est objet lrRequest, poResponse est objet lrResponse)

    poResponse .Body        = "Sending pong to host " + poRequest.Host + " at " + DateVersChaîne(DateHeureSys())
    poResponse .ContentType = lrResponse::ContentTXT
    poResponse :Status      = lrResponse::StatusOK
FIN

• Démarrer le projet WinDev (au premier lancement il est possible que Windows demande de confirmer l’ouverture du port par l’application)
• Sur un navigateur internet, accéder à l’URL :

http://127.0.0.1:9876/ping

• Le serveur LightREST devrait répondre « Pong » + IP client + heure système :

Sending pong to host 127.0.0.1:9876 at 07/12/2025 03:50:26:4

Voilà !
Votre premier serveur LightREST fonctionne !

Pour aller plus loin, consulter la documentation et étudier le projet WinDev^® LightRESTDemo