Any idea why OpenStream keeps returning null?
(Concept taken from: http://www.blitzbasic.com/Community/posts.php?topic=67848#761689)
SuperStrict Framework brl.standardio Import brl.stream Import brl.filesystem Import brl.LinkedList Import brl.Map Include "json.bmx" Local word:String = "Hello there!" Local Text:String = GetHTTPString("www.ajax.googleapis.com", "ajax/services/language/Translate?v=1.0&q=" + word + "&langpair=en%7Cel") 'Local json:TJSON = TJSON.Create(Text) 'Print json.GetValue("translatedText").ToString() Function GetHTTPString:String(url:String, page:String) Local stream:TStream = OpenStream("tcp::" + url), data:String If stream <> Null stream.WriteString("GET /" + page + "~r~n~r~n") data = LoadString(stream) SaveText(data, "text.txt") Else DebugLog "Failed to open " + url End If Return data End Function
(Concept taken from: http://www.blitzbasic.com/Community/posts.php?topic=67848#761689)