delphi httpserver 跨域

uses

IdBaseComponent,
  IdComponent, IdCustomTCPServer, IdCustomHTTPServer, IdHTTPServer, IdContext,
  IdHTTPHeaderInfo,
  IdHeaderList, IdGlobalProtocols

 

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  CustomHeadersStringList: TIdHeaderList;
begin
  AResponseInfo.CharSet := 'UTF-8';
  AResponseInfo.ContentType := 'application/json';

  CustomHeadersStringList := TIdHeaderList.Create(QuoteHTTP);
  CustomHeadersStringList.Add('Access-Control-Allow-Origin:*');

  AResponseInfo.CustomHeaders := CustomHeadersStringList;

  AResponseInfo.ContentText := '跨域';

  CustomHeadersStringList.Free;
end;