Suave

Question

में CORS के साथ एकाधिक शीर्षलेखों को अनुमति दें I CORS अनुरोध स्वीकार करने के लिए मेरा Suave API प्राप्त करने का प्रयास कर रहा हूं।

http://www.fssnip.net/mL/title/CORS-response-with-Suave

कौन सा मैं यहाँ पुन: होगा:: मैं इस स्निपेट यहां का पालन किया है

let setCORSHeaders = 
    setHeader "Access-Control-Allow-Origin" "*" 
    >=> setHeader "Access-Control-Allow-Headers" "content-type" 

let allow_cors : WebPart = 
    choose [ 
     OPTIONS >=> 
      fun context -> 
       context |> (
        setCORSHeaders 
        >=> OK "CORS approved") 
    ] 

let webSite = 
    choose [ 
     allow_cors 
     GET >=> OK "URLs are for wimps. GETting something? This is what you get." 
    ] 

लेकिन अब मैं अंतिमबिंदुओं कि एक टोकन में पारित करने की आवश्यकता होती है, और उन लोगों के अंतिम बिंदु त्रुटियों दे रहे हैं सीओआरएस में अनुपस्थित हेडर की वजह से। मेरा टोकन हेडर बस "टोकन" है, इसलिए मैंने दो चीजों की कोशिश की है, और दोनों ने इस मुद्दे को हल नहीं किया है।

प्रयास # 1

setHeader "Access-Control-Allow-Origin" "*" 
    >=> setHeader "Access-Control-Allow-Headers" "content-type" 
    >=> setHeader "Access-Control-Allow-Headers" "token" 

यह लौटे एक त्रुटि कह content-type नहीं रह स्वीकार कर लिया गया है - यह सूचित करते हैं कि पिछले setHeader पहले एक है, जो जब आप यहाँ स्रोत कोड देखें अधिलेखित कर दिया लगता है: https://github.com/SuaveIO/suave/blob/master/src/Suave.Tests/HttpWriters.fs , लाइन 113 पर, एक परीक्षण है कि मेरे लिए यह वांछित व्यवहार का तात्पर्य है।

प्रयास # 2

इस प्रश्न पर प्रतिक्रिया के आधार पर: How to set a Json response in suave webpart, मैं एक अल्पविराम द्वारा पृथक सूची के माध्यम से दोनों हेडर सेट करने का प्रयास किया:

setHeader "Access-Control-Allow-Origin" "*" 
    >=> setHeader "Access-Control-Allow-Headers" "Content-Type,token" 

लेकिन यह तो यह दर्शाता है एक त्रुटि दे दी है कि सीओआरएस पूरी तरह विफल रहा था:

No 'Access-Control-Allow-Origin' header is present on the requested resource. Origin 'http://localhost:4200' is therefore not allowed access. The response had HTTP status code 401. 

इसके अलावा, इस प्रश्न पर आधारित, मैंने एफ की कोशिश की ollowing:

setHeader "Access-Control-Allow-Origin" "*" 
    >=> setHeader "Access-Control-Allow-Headers:content-type" "Accept" 
    >=> setHeader "Access-Control-Allow-Headers:token" "Accept" 

कौन इस प्रतिक्रिया दी: Request header field token is not allowed by Access-Control-Allow-Headers in preflight response.

तो, मैं कैसे शिष्ट में एक CORS अनुरोध में हेडर की किसी भी राशि के लिए अनुमति देते हैं?

संपादित

प्रयास # 3

मैं addHeader बजाय setHeader प्रयोग किया है:

let setCORSHeaders = 
    setHeader "Access-Control-Allow-Origin" "*" 
    >=> addHeader "Access-Control-Allow-Headers" "content-type" 
    >=> addHeader "Access-Control-Allow-Headers" "token" 

कौन सा अब कह रहा है ... No 'Access-Control-Allow-Origin' header is present on the requested resource.

तो मुझे लगता है कि बदलने पहले setHeader से addHeader, मुझे अभी भी वही प्रतिक्रिया मिलती है।

फिक्स

addHeader "Access-Control-Allow-Origin" "*" 
    >=> setHeader "Access-Control-Allow-Headers" "token" 
    >=> addHeader "Access-Control-Allow-Headers" "content-type" 
    >=> addHeader "Access-Control-Allow-Methods" "GET,POST,PUT" 

काम किया - इस के बाद, वहाँ क्या भेजा जा रहा था के साथ मुद्दों है, लेकिन CORS के साथ ही ज्यादा कुछ नहीं थे।

Answer 1

setHeader के बजाय addHeader का उपयोग करने का प्रयास करें।

दिया साथ हैडर कुंजी जोड़ता है: आगे इकाई परीक्षण है कि आप पाया में नीचे बस कुछ ही लाइनों, वहाँ से पता चलता है कि यह अर्थ विज्ञान आप देख रहे हैं, और इसके प्रलेखन का कहना है कि addHeader के लिए एक परीक्षण है लौटा हेडर की सूची के लिए मूल्य, भले ही वह हेडर पहले से मौजूद है। इसका मतलब है कि सुवे key द्वारा संभावित रूप से अलग-अलग मानों के साथ दिए गए शीर्षलेख के साथ प्रतिक्रिया प्रदान करेगा।

ऐसा लगता है कि आप जिस व्यवहार को चाहते हैं।

Answer 2

मुझे एक ही समस्या थी। विरासत कारणों से मैं इस पल के लिए 1.1.3 के साथ फंस गया हूं, भले ही सुवे 2.2.1 उपलब्ध है। मैं एफ # के साथ वास्तव में परिचित नहीं हूँ लेकिन अंत में मैं इस तरह somehting के साथ इस काम कर पाने में कामयाब रहे:

let setCORSHeaders = 
    addHeader "Access-Control-Allow-Origin" "*" 
    >=> setHeader "Access-Control-Allow-Headers" "token" 
    >=> addHeader "Access-Control-Allow-Headers" "content-type" 
    >=> addHeader "Access-Control-Allow-Methods" "GET,POST,PUT" 

let app = 
    choose [ 
     GET >=> 
      fun context -> 
       context |> (
        setCORSHeaders 
        >=> choose 
         [ pathRegex "(.*?)\.(dll|mdb|log)$" >=> dllFilesRequest 
         pathRegex "(.*?)\.(html|css|js|png|jpg|ico|bmp)$" >=> staticFilesRequest 

         path "/" >=> indexRequest 
         path "/index" >=> indexRequest 
         path "/static" >=> staticFilesRequest 
         // ... 
         ]) 

     POST >=> 
      fun context -> 
       context |> (
        setCORSHeaders 
        >=> choose 
         [ 
         path "/something" >=> runSomething 
         // ... 
         ]) 
    ] 

मुझे यकीन है कि वहाँ एक pretier तरीका है हूँ।