TsgcWebSocketServer_HTTPAPI | Cabeceras personalizadas

Puede personalizar la respuesta del servidor HTTP.SYS utilizando la propiedad CustomHeaders del objeto de respuesta.

 

Establezca el valor de CustomHeaders con el nombre del encabezado y el valor del encabezado separados por caracteres de nueva línea.

 

Ejemplo: si desea añadir las siguientes cabeceras, consulte a continuación un código de muestra

 

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;