发表新帖
发表新帖

Indy 10 Http Server sample

前端 未结
关注
2 577
陌清茗
陌清茗 2020-12-14 04:16

I need a simple code sample for Indy 10 Http Server When request (post) simply displays it Is there an Indy 9 sample for this? Thanks

相关标签:
2条回答
  • 时光说笑
    2020-12-14 04:38
    1. Start a new VCL Forms project
    2. Drop a TidHTTPServer component onto the Form

    3. Double-click the form to create an OnCreate() event and activate the server

      IdHTTPServer1.Active := True;

    4. Back on the form, select the HTTP Server component, and create an OnCommandGet event

    In this OnCommandGet event (which is called within a child thread whenever a GET/POST occurs), handle the request, by populating the response..

    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>';

    Depending on your Delphi version, you may also have to add IdContext to your Uses clause

    Run your demo app and then launch a browser to http://localhost and you should get a response. (Unless you have something else listening on Port 80 in which case your demo app will generate an exception)

    0 讨论(0)
  • 伪装坚强ぢ
    2020-12-14 04:45

    The Indy 9 samples are still available on the IndyProject site and include an HTTPServer demo project. The Indy 10 Demo Playground does as well.

    In IdHTTPServer, Get and Post commands are essentially treated the same and handled in the CommandGet event.

    0 讨论(0)
 看不清?
提交回复
热议问题