当前位置：文江博客话题详情

Indy 10 Http 服务器示例

发布于 2024-11-30 19:45:41 字数 69 浏览 1 评论 0原文

我需要 Indy 10 Http Server 的简单代码示例当请求（发布）只是显示它时有 Indy 9 的样本吗？谢谢

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

动听の歌 2024-12-07 19:45:41

启动一个新的 VCL 表单项目
将 TidHTTPServer 组件拖放到表单上
双击表单以创建 OnCreate() 事件并激活服务器
IdHTTPServer1.Active := True;
返回表单，选择 HTTP Server 组件，并创建一个 OnCommandGet 事件

在此 OnCommandGet 事件（每当 GET/POST 发生时在子线程中调用）中，通过填充响应来处理请求。

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

根据您的 Delphi 版本，您可能还拥有添加IdContext到你的Uses子句

运行你的演示应用程序，然后启动浏览器到http://localhost，你应该得到一个回应。（除非您有其他东西在端口 80 上侦听，在这种情况下您的演示应用程序将生成异常）

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)

回复收藏 0 原文