Indy 10 Http Server sample

delphi http delphi-7 indy
SridharanS picture SridharanS · Aug 20, 2011 · Viewed 30.3k times · Source

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

Answer

Darian Miller picture Darian Miller · Aug 26, 2011
  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)

Related questions

What's the simplest way to call Http GET url using Delphi?

There's a web services I want to call in my application, I can use it with importing the WSDL or by just use "HTTP GET" with the URL and parameters, so I prefer the later because it's simple thing. I …

Read More
idhttp indy post, do request (parameters) with utf-8

I'm trying to post a request, in utf-8 however the server is getting it in Ascii. Tried the TstringList format of post. Tried the stream format Tried forcing the TStringStream to have UTF8 encoding. Tried updating indy to the xe5 …

Read More
How to send a HTTP POST Request in Delphi using WinInet api

I am trying to make HTTP Requests from Delphi using the WinInet functions. So far I have: function request:string; var hNet,hURL,hRequest: HINTERNET; begin hNet := InternetOpen(PChar('User Agent'),INTERNET_OPEN_TYPE_PRECONFIG or INTERNET_OPEN_TYPE_PRECONFIG, …

Read More