From 684ec84505eb2551ccfdebe47281656b3cb119aa Mon Sep 17 00:00:00 2001
From: syo68k <syo68k@users.sourceforge.jp>
Date: Wed, 23 Feb 2011 14:49:07 +0000
Subject: [PATCH] =?utf8?q?=E7=BF=BB=E8=A8=B3=E6=99=82=E3=81=AB=E3=82=A8?=
 =?utf8?q?=E3=83=A9=E3=83=BC=E3=81=8C=E7=99=BA=E7=94=9F=E3=81=97=E3=81=9F?=
 =?utf8?q?=E5=A0=B4=E5=90=88=E3=82=B9=E3=83=86=E3=83=BC=E3=82=BF=E3=82=B9?=
 =?utf8?q?=E3=83=90=E3=83=BC=E3=81=B8=E8=A1=A8=E7=A4=BA=E3=81=99=E3=82=8B?=
 =?utf8?q?=E3=82=88=E3=81=86=E3=81=AB?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1466 e39ad16e-3079-482e-bb30-4b4d378143b6
---
 Tween/Google.vb | 4 +++-
 Tween/Tween.vb  | 7 ++++++-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/Tween/Google.vb b/Tween/Google.vb
index 21c5f44b..09299343 100644
--- a/Tween/Google.vb
+++ b/Tween/Google.vb
@@ -178,12 +178,13 @@ Public Class Google
         <DataMember(Name:="responseStatus")> Public ResponseStatus As HttpStatusCode
     End Class
 
-    Public Function Translate(ByVal srclng As String, ByVal dstlng As String, ByVal source As String, ByRef destination As String) As Boolean
+    Public Function Translate(ByVal srclng As String, ByVal dstlng As String, ByVal source As String, ByRef destination As String, ByRef ErrMsg As String) As Boolean
         Dim http As New HttpVarious()
         Dim apiurl As String = TranslateEndPoint
         Dim headers As New Dictionary(Of String, String)
         headers.Add("v", "1.0")
 
+        ErrMsg = ""
         If String.IsNullOrEmpty(srclng) OrElse String.IsNullOrEmpty(dstlng) Then
             Return False
         End If
@@ -198,6 +199,7 @@ Public Class Google
             Dim res As TranslateResponse = CreateDataFromJson(Of TranslateResponse)(content)
 
             If res.ResponseData Is Nothing Then
+                ErrMsg = "Err:" + res.ResponseDetails
                 Return False
             End If
             Dim _body As String = res.ResponseData.TranslatedText
diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 31b681f0..4bcba46d 100644
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -10107,8 +10107,13 @@ RETRY:
         If String.IsNullOrEmpty(str) Then Exit Sub
         Dim srclng As String = g.LanguageDetect(str)
         Dim dstlng As String = SettingDialog.TranslateLanguage
-        If srclng <> dstlng AndAlso g.Translate(srclng, dstlng, str, buf) Then
+        Dim msg As String = ""
+        If srclng <> dstlng AndAlso g.Translate(srclng, dstlng, str, buf, msg) Then
             PostBrowser.DocumentText = createDetailHtml(buf)
+        Else
+            If msg.StartsWith("Err:") Then
+                StatusLabel.Text = msg
+            End If
         End If
     End Sub
 
-- 
2.11.0