Indy 10 Http Server示例

Question

Indy 10 Http Server示例

我需要一个简单的代码样本用于Indy 10 Http Server当请求(post)只显示它是否有一个Indy 9样本？谢谢

Answer 1

启动一个新的VCL Forms项目
将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>';

Run Code Online (Sandbox Code Playgroud)

根据您的Delphi版本,您可能还必须将IdContext添加到您的Uses子句中

运行您的演示应用程序,然后启动浏览器到http:// localhost,您应该得到响应.(除非你有其他东西在端口80上侦听,在这种情况下你的演示应用程序会产生异常)

请重新阅读帖子。它在哪里谈论 Windows 服务？ (4认同)

Answer 2

Bru*_*Gee 8

在印第安纳波利斯9个样品仍然可在IndyProject网站,包括HttpServer的示范项目.在印第安纳波利斯10演示游乐场确实也是如此.

在IdHTTPServer中,Get和Post命令基本上处理相同并在CommandGet事件中处理.

归档时间：	14 年，2 月前
查看次数：	27643 次
最近记录：	14 年，2 月前