Read Twitter Stream

read-streaming-response.fsx

let ReadStreamingResponse (w:WebRequest) = 
    try
        let resp = w.GetResponse() :?> HttpWebResponse
        use responseStream = resp.GetResponseStream()
        
        use responseReader = new StreamReader(responseStream, true)
        let atEnd = responseReader.EndOfStream
        while(not atEnd) do
            let line_size = responseReader.ReadLine()
            if not (String.IsNullOrEmpty line_size) then
                let size = int line_size
                let buffer = Array.zeroCreate size
                let numread = responseReader.ReadBlock(buffer,0,size)
                let tweet = new System.String(buffer) |> System.Net.WebUtility.HtmlDecode |> TweetJSONType.Parse
                let place = tweet.Place.ToString() |> PlaceJSONType.Parse
                
                if not (tweet.Text.StartsWith("@")) then
                    printfn "%s(%s) - At %s-%s\n%s" 
                            tweet.User.Name tweet.User.ScreenName 
                            place.Name place.FullName tweet.Text
                try
                if tweet.Text.Contains("http://") || tweet.Text.Contains("https://") then
                    let shortUrl = ExtractUrl(tweet.Text)
                    ExtractImage shortUrl
                else
                    printfn "..................................................................\n"
                with
                //| :? System.Net.WebException as ex1-> printfn "*****Error: %s\n\n" ex1.Message
                | :? System.Net.WebException -> printfn ""
    with
        | :? WebException as ex -> printfn "Error %O" ex;