TsgcWebSocketServer_HTTPAPI | 发送文本响应

使用 OnHTTPRequest 事件处理 HTTP 请求。

 

类 THttpServerRequest 包含 HTTP 请求数据。

 

• 文档：对等方尝试访问的文档。
• Method：HTTP 方法（'GET'、'POST' 等）
• Headers：HTTP 请求的头部。
• AcceptEncoding：接受编码变量，示例："gzip, deflate, br"。
• ContentType：示例："text/html"
• Content：请求的内容（若存在）。
• QueryParams： 查询参数。
• Cookies：若存在，则为 Cookie。
• ContentLength：内容的大小。
• AuthExists， AuthUsername，AuthPassword：身份验证请求数据。
• Stream： 如果 HTTP 请求有正文，这是正文的流。

 

THttpServerResponse 类包含 HTTP 响应数据。

 

• ContentText：以文本形式表示的响应内容。
• ContentType：示例："text/html"。若要将 ContentText 以 UTF8 编码，请设置 charset='utf-8'。示例：text/html; charset=utf-8
• CustomHeaders：如果需要发送自定义头部，请使用此变量
• AuthRealm：若服务器需要身份验证，请设置此变量。
• ResponseNo：HTTP 响应编号。示例：200 表示响应成功。
• ContentStream：如果响应包含流，请在此处设置（无需释放该流，它将被自动释放）。
• FileName：如果响应是文件名，请在此处设置文件的完整路径。
• Date、Expires、LastModified：响应的日期时间变量。
• CacheControl：允许自定义缓存行为。

 

示例：如果服务器收到文档"/test.html"的 GET 请求，则发送 OK 响应；否则，如果是对其他文档的 GET 请求，则发送 404，如果是不同的方法，则发送错误 500。

 

procedure OnHTTPRequest(aConnection: TsgcWSConnection_HTTPAPI; 
	const aRequestInfo: THttpServerRequest; 
	var aResponseInfo: THttpServerResponse);
begin
  if aRequestInfo.Method = 'GET' then
  begin
    if aRequestInfo.Document = '/test.html' then
	begin
	  aResponseInfo.ResponseNo := 200;
	  aResponseInfo.ContentText := 'OK';
	  aResponseInfo.ContentType := 'text/html; charset=UTF-8';
	end
	else
	  aResponseInfo.ResponseNo := 404;
  end
  else 
    aResponseInfo.ResponseNo := 500;
end;