From ec428c6fef30a98c072a65b92f374d99fc7cf323 Mon Sep 17 00:00:00 2001
From: syo68k <syo68k@users.sourceforge.jp>
Date: Tue, 26 Apr 2011 21:31:44 +0900
Subject: [PATCH] =?utf8?q?JSON=E8=A7=A3=E6=9E=90=E6=99=82=E3=81=AE?=
 =?utf8?q?=E3=82=A8=E3=83=A9=E3=83=BC=E5=87=A6=E7=90=86=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Tween/Google.vb    | 17 ++++++++++++++---
 Tween/Thumbnail.vb |  8 +++++++-
 2 files changed, 21 insertions(+), 4 deletions(-)

diff --git a/Tween/Google.vb b/Tween/Google.vb
index 09299343..62eeca53 100644
--- a/Tween/Google.vb
+++ b/Tween/Google.vb
@@ -196,7 +196,14 @@ Public Class Google
         Dim content As String = ""
         If http.GetData(apiurl, headers, content) Then
             Dim serializer As New DataContractJsonSerializer(GetType(TranslateResponse))
-            Dim res As TranslateResponse = CreateDataFromJson(Of TranslateResponse)(content)
+            Dim res As TranslateResponse
+
+            Try
+                res = CreateDataFromJson(Of TranslateResponse)(content)
+            Catch ex As Exception
+                ErrMsg = "Err:Invalid JSON"
+                Return False
+            End Try
 
             If res.ResponseData Is Nothing Then
                 ErrMsg = "Err:" + res.ResponseDetails
@@ -221,8 +228,12 @@ Public Class Google
         Dim content As String = ""
         If http.GetData(apiurl, headers, content) Then
             Dim serializer As New DataContractJsonSerializer(GetType(LanguageDetectResponse))
-            Dim res As LanguageDetectResponse = CreateDataFromJson(Of LanguageDetectResponse)(content)
-            Return res.ResponseData.Language
+            Try
+                Dim res As LanguageDetectResponse = CreateDataFromJson(Of LanguageDetectResponse)(content)
+                Return res.ResponseData.Language
+            Catch ex As Exception
+                Return ""
+            End Try
         End If
         Return ""
     End Function
diff --git a/Tween/Thumbnail.vb b/Tween/Thumbnail.vb
index 3b7a1557..db1805ba 100644
--- a/Tween/Thumbnail.vb
+++ b/Tween/Thumbnail.vb
@@ -2259,7 +2259,13 @@ Public Class Thumbnail
         If (New HttpVarious).GetData(apiurl, Nothing, src, 0, args.errmsg, GetUserAgentString()) Then
             Dim sb As New StringBuilder
             Dim serializer As New DataContractJsonSerializer(GetType(PicPlzDataModel.ResultData))
-            Dim res As PicPlzDataModel.ResultData = CreateDataFromJson(Of PicPlzDataModel.ResultData)(src)
+            Dim res As PicPlzDataModel.ResultData
+
+            Try
+                res = CreateDataFromJson(Of PicPlzDataModel.ResultData)(src)
+            Catch ex As Exception
+                Return False
+            End Try
 
             If res.Result = "ok" Then
                 Try
-- 
2.11.0