[Solved]cors issue
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
Packs · 2024-09-20 11:06

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
old_jsonResponse(var res: TResponse; Data: string;StatusCode :
Integer);var  Origin: string;begin   try    
res.SetFieldByName('Access-Control-Allow-Origin', '*');   
res.SetFieldByName('Access-Control-Max-Age', '600');   
res.SetFieldByName('Access-Control-Allow-Methods',      'POST, GET,
OPTIONS, PUT, DELETE');    res.SetFieldByName('Access-Control-Allow-
Headers',      'Content-Type, Content-Length, Accept-Encoding, X-CSRF-
Token, Authorization,responsetype');      res.Allow := '*';    res.Age
:= '600';    res.Method := 'POST';     res.Content := Data.Trim;   
res.Code := StatusCode;        res.SendResponse;   except    on e:
Exception do    begin      res.Code := 400;      WriteLn('my response
 !' + e.message);       res.SendResponse;     end;  end;end;  
in the above code I am getting cors issue

----------------------------------------------------------------------
Packs · 2024-09-20 18:34

How to handle cors issue in httpserver application in free pascal

----------------------------------------------------------------------
Packs · 2024-09-20 18:50

location /my-callback-url-path {
     if ($request_method = 'OPTIONS') {
        add_header 'Access-Control-Allow-Origin'
'https://stagegateway.eko.in';
        add_header 'Access-Control-Allow-Methods' 'POST, OPTIONS';
        add_header 'Access-Control-Allow-Headers' 'X-Requested-
With,Content-Type,Authorization';
        add_header 'Access-Control-Max-Age' 1728000;
        add_header 'Content-Type' 'text/plain; charset=utf-8';
        add_header 'Content-Length' 0;
        return 204;
     }
     if ($request_method = 'POST') {
        add_header 'Access-Control-Allow-Origin'
'https://stagegateway.eko.in';
        add_header 'Access-Control-Allow-Methods' 'GET, POST,
OPTIONS';
        add_header 'Access-Control-Allow-Headers' 'X-Requested-
With,Content-Type,Authorization';
        add_header 'Access-Control-Expose-Headers' 'Content-
Length,Content-Range';
     }
}


How to implement this in free pascal with httpserver for rest api