Cross-origin resource sharing (CORS) is a mechanism that enables resources to be shared across domains. Typically this isn’t allowed to prevent security issues. To enable on your DataSnap REST server you can use the following code per MVP Nirav Kaku from India.
All you need to do is add a custom header in the Response before dispatching the result on the DataSnap server…
procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin //allows cross domain calls Response.SetCustomHeader('Access-Control-Allow-Origin','*'); if FServerFunctionInvokerAction <> nil then FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker; end;
It is useful for DataSnap server developers who want
Note: CORS is security feature of the browser so there could be some
dependency there. Tested with Firefox, Chrome and IE and it seems to
be working fine.
6 replies on “CORS on DataSnap REST Server”
The second parameter in the example, “*”, will allow any third party to access your js code/resources. You can instead restrict access to known domains e.g. “mydomain.com”
About “OPTIONS request” how create this method in DATASNAP Restful?
Giovanni did you find the answer that you are asking for ? I am interested too.
This is an incomplete solution, it allows CORS calls but it doesn’t handle CORS OPTION calls to be able to send your session id throught a Pragma Header.
You just need to add a couple of lines to completely handle COS calls :
procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
if Trim(Request.GetFieldByName(‘Access-Control-Request-Headers’)) ” then begin
Handled := True;
if FServerFunctionInvokerAction nil then
FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker;
The comments manager has modified my text, you can find the correct code in this post.