Fatal编程技术网
  • delphi/
  • Delphi Indy 10 Http服务器示例

Delphi Indy 10 Http服务器示例

delphi http

Delphi Indy 10 Http服务器示例,delphi,http,delphi-7,indy,Delphi,Http,Delphi 7,Indy,当请求（post）简单地显示时，我需要一个Indy10HTTP服务器的简单代码示例 这有印地9号的样品吗？ 感谢在IndyProject网站上仍然可以找到，其中包括一个HTTPServer演示项目。这部电影也同样如此 在IdHTTPServer中，Get和Post命令本质上是相同的，并在CommandGet事件中处理 启动一个新的VCL表单项目 将一个TidHTTPServer组件放到表单上 双击表单以创建OnCreate（）事件并激活服务器 IdHTTPServer1.Active:=True

当请求（post）简单地显示时，我需要一个Indy10HTTP服务器的简单代码示例 这有印地9号的样品吗？ 感谢

在IndyProject网站上仍然可以找到，其中包括一个HTTPServer演示项目。这部电影也同样如此

在IdHTTPServer中，Get和Post命令本质上是相同的，并在CommandGet事件中处理

  • 启动一个新的VCL表单项目
  • 将一个TidHTTPServer组件放到表单上
  • 双击表单以创建OnCreate（）事件并激活服务器

    IdHTTPServer1.Active:=True

  • 回到表单上，选择HTTP服务器组件，并创建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>';

    AresOnSeInfo.ContentText:=“我的第一个响应”+
'命令：'+ARequestInfo.Command+
“
    主机：”+ARequestInfo.Host+
“
    URI:”+ARequestInfo.URI+
“
    用户代理：”+ARequestInfo.UserAgent+
'';
    根据您的Delphi版本，您可能还必须将IdContext添加到Uses子句中

    运行你的演示应用程序，然后启动一个浏览器到，你应该会得到一个响应。（除非您的演示应用程序在端口80上监听其他内容，在这种情况下，您的演示应用程序将生成一个异常）

    那么它是什么呢？Indy 10或Indy 9？您可以查看ExtPascal Sources。幸运的是，此回复是关于Windows exe的，而不是关于Windows服务的。请重新阅读此帖子。它在哪里谈到了Windows服务？请注意链接现在过期了谢谢！你真是太好了