gpt4 book ai didi

delphi - Indy 10 Http 服务器示例

转载 作者:可可西里 更新时间:2023-11-01 15:07:26 26 4
gpt4 key购买 nike

我需要 Indy 10 Http Server 的简单代码示例当请求(post)时简单地显示它是否有 Indy 9 示例?谢谢

最佳答案

  1. 开始一个新的 VCL Forms 项目
  2. 将 TidHTTPServer 组件放到表单上
  3. 双击表单创建一个 OnCreate() 事件并激活服务器

    IdHTTPServer1.Active := True;

  4. 返回表单,选择 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>';

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

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

关于delphi - Indy 10 Http 服务器示例,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7131093/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com