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