Indy 10 Http Server sample

delphi http delphi-7 indy

32,600

Solution 1

Start a new VCL Forms project
Drop a TidHTTPServer component onto the Form
Double-click the form to create an OnCreate() event and activate the server

IdHTTPServer1.Active := True;
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)

Solution 2

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.

32,600

Author by

Admin

Updated on February 25, 2020

Comments

Admin about 4 years

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
TomR almost 6 years

Unfortunately, this response is about Windows exe, and not about Windows service as was asked.
Darian Miller almost 6 years

Please re-read the post. Where does it talk about Windows Service?
RoughTomato about 4 years

Just a note that links are now expired
RoughTomato about 4 years

Thanks! That's really nice of you