TsgcWebSocketServer_HTTPAPI | 自定义头

您可以使用响应对象的 CustomHeaders 属性自定义 HTTP.SYS 服务器的响应。

 

使用换行符分隔的头部名称和头部值设置 CustomHeaders 的值。

 

示例：如果您想添加以下头部，请参见以下示例代码

 

Access-Control-Allow-Origin: *

Acces-Control-Allow-Methods: GET, POST, OPTIONS, PUT, PATCH, DELETE

 

procedure OnHTTPRequest(aConnection: TsgcWSConnection_HTTPAPI; const aRequestInfo: THttpServerRequest; 
  var aResponseInfo: THttpServerResponse);
begin
  aResponseInfo.ResponseNo := 200;
  aResponseInfo.CustomHeaders := 'Access-Control-Allow-Origin: *' + #13#10 + 'Acces-Control-Allow-Methods: ' +
    'GET, POST, OPTIONS, PUT, PATCH, DELETE';
end;