tms webcore - "enable CORS on your server"

[exasoft]

Scheinbar gelöst!
Wem's vielleicht hilft:

Da mein "Webservice-Server" ein DATASnap ist muss man Folgendes ins webModul/BeforeDispatch einbauen:

Delphi-Quellcode:

procedure Twm.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;

Nur den Part:

Delphi-Quellcode:

//  if FServerFunctionInvokerAction <> nil then
//    FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker;

kann ich noch nicht nachvollziehen - funzt aber.

Ciao de schorsch