svnno****@sourc*****
svnno****@sourc*****
2011年 2月 23日 (水) 23:49:07 JST
Revision: 1466
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1466
Author: syo68k
Date: 2011-02-23 23:49:07 +0900 (Wed, 23 Feb 2011)
Log Message:
-----------
翻訳時にエラーが発生した場合ステータスバーへ表示するように
Modified Paths:
--------------
trunk/Tween/Google.vb
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Google.vb
===================================================================
--- trunk/Tween/Google.vb 2011-02-23 13:20:59 UTC (rev 1465)
+++ trunk/Tween/Google.vb 2011-02-23 14:49:07 UTC (rev 1466)
@@ -178,12 +178,13 @@
<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 @@
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
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-02-23 13:20:59 UTC (rev 1465)
+++ trunk/Tween/Tween.vb 2011-02-23 14:49:07 UTC (rev 1466)
@@ -10107,8 +10107,13 @@
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