В другом вопросе здесь, в Stack Overflow, я наткнулся на очень полезный фрагмент кода для отправки кода в компилятор Google Closure, который может очень хорошо минимизировать файлы JavaScript.
Однако проблема, с которой я сталкиваюсь, заключается вчто он не возвращает скомпилированный код в случаях, когда я этого не ожидаю.
Код:
Это работает, то есть возвращает минимизированный код:
Dim script = "function test(name) {alert(name);}test('New user');"
Этоодно, с другой стороны, ничего не возвращает.Статистика отправляется, но нет скомпилированных данных ...:
Dim script = "function test(name) {alert(name);}"
Остальная часть кода, которая на самом деле работает:
Dim Data = String.Format(ClosureWebServicePOSTData, HttpUtility.UrlEncode(script))
_Result = New StringBuilder
_HttpWebRequest = DirectCast(WebRequest.Create(ClosureWebServiceURL), HttpWebRequest)
_HttpWebRequest.Method = "POST"
_HttpWebRequest.ContentType = "application/x-www-form-urlencoded"
'//Set the content length to the length of the data. This might need to change if you're using characters that take more than 256 bytes
_HttpWebRequest.ContentLength = Data.Length
'//Write the request stream
Using SW As New StreamWriter(_HttpWebRequest.GetRequestStream())
SW.Write(Data)
End Using
Dim response As WebResponse = _HttpWebRequest.GetResponse()
Using responseStream As Stream = response.GetResponseStream
Dim encoding As Encoding = System.Text.Encoding.GetEncoding("utf-8")
Using readStream As New StreamReader(responseStream, encoding)
Dim read(256) As Char
Dim count As Integer = readStream.Read(read, 0, 256)
While count > 0
Dim str As New String(read, 0, count)
_Result.Append(str)
count = readStream.Read(read, 0, 256)
End While
End Using
End Using
Что вообще может быть причиной?Мне интересно знать.