第5关:服务端响应请求的正文

任务描述

本关任务:在WEB服务端程序中编写一段能将请求内容发送给相应客户端的代码。

相关知识

为了完成本关任务,你需要掌握:

  1. 如何获取发送内容的长度

  1. 如何发送数组元素内容。

获取数组的长度

前面获得请求文件内容存放在outputdata数组里面,利用 len()方法即可知道发送内容的长度。

发送数组内容

通过循环方式,将数组内容利用套接字的发送方法send()逐一发送即可。

示例如下:

for(int i = 0 ; i<output.length; i++){  
    mysocket.send(output[i].encode())  
}  
#或   
for (i in range(0,len(output)))  
    mysocket.send(output[i].encode())  

编程要求

根据提示,在右侧编辑器代码中 Begin-End 之间补充代码,实现将请求文件发送到相应客户端的功能。

测试说明

平台会对你编写的代码进行测试,并打印客户端接收到的文件内容:

预期输出:

开始WEB服务...  
b'<head>hello world</head>'  

答案:

#import socket module
from socket import *

serverSocket = socket(AF_INET, SOCK_STREAM) 
#Prepare a sever socket 
serverSocket.bind(("127.0.0.1",6789))
serverSocket.listen(1)

#while True:
print('开始WEB服务...')
try:
        connectionSocket, addr = serverSocket.accept()
        message = connectionSocket.recv(1024) # 获取客户发送的报文
        
        #读取文件内容
        filename = message.split()[1]       
        f = open(filename[1:])
        outputdata = f.read();
        
        #向套接字发送头部信息
        header = ' HTTP/1.1 200 OK\nConnection: close\nContent-Type: text/html\nContent-Length: %d\n\n' % (len(outputdata))
        connectionSocket.send(header.encode())
        
        #发送文件内容
        #########Begin#########
        for i in outputdata:
            connectionSocket.send(i.encode())
        #########End#########
        
        #关闭连接
        connectionSocket.close()
except IOError:             #异常处理
        #发送文件未找到的消息
        
        #关闭连接
        connectionSocket.close()
#关闭套接字
serverSocket.close()
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要提供一个接收事件请求的路径 URL,需要先搭建一个 Web 服务器,然后在 Web 服务器上创建一个接收事件请求的 Web API。 以下是一个简单的示例,使用 Delphi 10.3 搭建 Web 服务器,并提供一个接收事件请求的 Web API: 1. 创建一个新项目,选择 "WebBroker Application"。 2. 在 Form1 上添加一个 TWebModule 组件,命名为 "WebModule1"。 3. 在 TWebModule 上添加一个 TWebActionItem 组件,命名为 "ReceiveEventAction"。 4. 在 "ReceiveEventAction" 的 OnAction 事件中编写接收事件请求的代码,例如: ```delphi procedure TWebModule1.ReceiveEventActionAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var JsonValue: TJSONValue; begin if Request.Method = 'POST' then begin JsonValue := TJSONObject.ParseJSONValue(Request.Content); if Assigned(JsonValue) then begin try // 处理事件请求,例如将事件数据保存到数据库或发送通知邮件等 // ... Response.Content := 'OK'; finally JsonValue.Free; end; end; end; end; ``` 在这个示例中,我们判断请求的方法是否为 POST,如果是 POST 请求,就读取请求的内容,并使用 TJSONObject.ParseJSONValue 函数解析 JSON 数据。如果解析成功,就可以将事件数据保存到数据库或发送通知邮件等操作。最后,将 "OK" 字符串作为响应内容返回给客户端。 5. 在 TWebActionItem 上设置 PathInfo 属性,例如 "/receiveevent"。 6. 在 TWebModule 上添加一个 TWebDispatcher 组件,设置其中的 DefaultHandler 属性为 "ReceiveEventAction"。 7. 在 Form1 上添加一个 TIdHTTPWebBrokerBridge 组件,并设置其中的 DefaultPort 属性为监听端口号,例如 "8080"。 8. 在 Form1 的 OnCreate 事件中启动 TIdHTTPWebBrokerBridge 组件,例如: ```delphi procedure TForm1.FormCreate(Sender: TObject); begin WebModule1.WebDispatcher.DefaultHandler := WebModule1.ReceiveEventAction; IdHTTPWebBrokerBridge1.RegisterWebModuleClass(TWebModule1); IdHTTPWebBrokerBridge1.Active := True; end; ``` 在这个示例中,我们将 TWebDispatcher 的 DefaultHandler 属性设置为 "ReceiveEventAction",这样在客户端请求 "/receiveevent" 路径时,就会调用 "ReceiveEventAction" 的 OnAction 事件。然后,我们注册 TWebModule1 类型的 Web 模块,并启动 TIdHTTPWebBrokerBridge 组件。 9. 最后,编译并运行项目。启动后,可以使用浏览器或其他 HTTP 客户端向服务端发送 POST 请求请求路径为 "http://localhost:8080/receiveevent",请求内容为 JSON 格式的事件数据。Web 服务器会接收到请求,并调用 "ReceiveEventAction" 的 OnAction 事件来处理事件数据。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值