delphi- TDSHTTPService 實現跨域

今天突然遇到TDSHTTPService無法跨域，從源代碼分析後，最終實現了，發表一下實現代碼，留個記念：

procedure TDataModule3.DSHTTPService1HTTPTrace(Sender: TObject;
  AContext: TDSHTTPContext; ARequest: TDSHTTPRequest;
  AResponse: TDSHTTPResponse);
begin
  TDSHTTPResponseIndy(AResponse).ResponseInfo.CustomHeaders.AddValue('Access-Control-Allow-Origin','*');
end;