HTTP.SYS サーバーのレスポンスは、レスポンスオブジェクトの CustomHeaders プロパティを使用してカスタマイズできます。
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;