Indy 10 Http Server exemple

J'ai besoin d'un simple exemple de code pour l'Indy 10 Http Server Lors de la demande de (post) simplement l'affiche
Est-il un Indy 9 échantillon pour cela?
Grâce

source d'informationauteur SridharanS

  1. 14
    1. Commencer une nouvelle VCL projet de Formulaires
    2. Déposer un TidHTTPServer composant sur la Forme

    3. Double-cliquez sur le formulaire pour créer une OnCreate() événement et activer le serveur

      IdHTTPServer1.Active := True;

    4. De retour sur le formulaire, sélectionnez le Serveur HTTP composant, et de créer un OnCommandGet événement

    Dans ce OnCommandGet événement (qui est appelée à l'intérieur d'un enfant thread à chaque fois qu'un GET/POST), le traitement de la demande, par le remplissage de la réponse..

    AResponseInfo.ContentText := '<html><head><title>My First Response</title></head>' + 
  '<body>Command: ' + ARequestInfo.Command +
  '<br />Host: ' + ARequestInfo.Host +
  '<br />URI: ' + ARequestInfo.URI +
  '<br />UserAgent: ' + ARequestInfo.UserAgent +
  '</body></html>';

    Selon votre Delphi version, vous pouvez également ajouter IdContext à votre Utilise clause

    Exécuter votre démo appli puis lancer un navigateur à http://localhost et vous devriez obtenir une réponse. (Sauf si vous avez quelque chose d'autre à l'écoute sur le Port 80 dans ce cas, votre démo application va générer une exception)

  2. 7

    La Indy 9 échantillons sont toujours disponibles sur le IndyProject site et comprennent un HTTPServer projet de démonstration. Le Indy 10 Demo De Jeux.

    Dans IdHTTPServer, Get et Post commandes sont traitées essentiellement la même et gérés dans le CommandGet événement.