Categories
News REST Source Code

CORS on DataSnap REST Server

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
their REST calls to be supported via AJAX using JavaScript from a
different server.

[Reference]

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?

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);
begin
Response.SetCustomHeader(‘Access-Control-Allow-Origin’,’*’);

if Trim(Request.GetFieldByName(‘Access-Control-Request-Headers’)) ” then begin
Response.SetCustomHeader(‘Access-Control-Allow-Headers’, Request.GetFieldByName(‘Access-Control-Request-Headers’));
Handled := True;
end;

if FServerFunctionInvokerAction nil then
FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker;
end;

Comments are closed.