翻訳時にエラーが発生した場合ステータスバーへ表示するように

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1466 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Google.vb b/Tween/Google.vb
index 21c5f44..0929934 100644 (file)
--- 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 31b681f..4bcba46 100644 (file)
--- 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