- 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)
与恶龙缠斗过久,自身亦成为恶龙；凝视深渊过久,深渊将回以凝视…
