Indy 10 Http服务器示例

问题描述：

我需要Indy 10 Http服务器的简单代码示例当请求（post）只显示它是否有Indy 9样本？谢谢Indy 10 Http服务器示例

所以它是什么？ Indy 10或Indy 9？ –

你可以看看它在ExtPascal来源 – TheHorse

答

Indy 9 samples仍然可以在IndyProject站点上使用，并包含一个HTTPServer演示项目。 Indy 10 Demo Playground也可以。

在IdHTTPServer中，Get和Post命令基本上被视为相同并在CommandGet事件中处理。

答

开始一个新的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版本，你也可能需要添加IDC ontext您用途条款

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

Indy 10 Http服务器示例

相关推荐