Commit: 8861084cd55da02d1f08e7a49265e6fec5df3c36 - open_tween (git)

dev

Commit MetaInfo

• Revisión: 8861084cd55da02d1f08e7a49265e6fec5df3c36 (tree)
• Tiempo: 2012-02-18 23:17:47
• Autor: kiri_feather <kiri_feather@user...>
• Commiter: Kimura Youichi

Log Message

unblockイベントに対応
userデータがないjsonがある？例外対応してtrace出力するように

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

Cambiar Resumen

• modified: Tween/My Project/AssemblyInfo.vb
• modified: Tween/Twitter.vb

Diferencia incremental

--- a/Tween/My Project/AssemblyInfo.vb	
+++ b/Tween/My Project/AssemblyInfo.vb	
@@ -55,5 +55,5 @@ Imports System.Runtime.InteropServices
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
 <Assembly: AssemblyVersion("0.1.0.0")> 
-<Assembly: AssemblyFileVersion("0.9.7.0")> 
+<Assembly: AssemblyFileVersion("0.9.7.1")> 
 

--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -1559,7 +1559,12 @@ Public Class Twitter
         For Each status As TwitterDataModel.Status In items
             Dim post As PostClass = Nothing
 
-            post = CreatePostsFromStatusData(status)
+            Try
+                post = CreatePostsFromStatusData(status)
+            Catch ex As NullReferenceException
+                TraceOut(ex.Message + Environment.NewLine + content)
+                Return "Invalid Json ?"
+            End Try
 
             If minimumId > post.Id Then minimumId = post.Id
             '二重取得回避
@@ -2930,6 +2935,8 @@ Public Class Twitter
                 evt.Target = eventData.TargetObject.Name
             Case "block"
                 evt.Target = ""
+            Case "unblock"
+                evt.Target = ""
             Case "user_update"
                 evt.Target = ""
             Case Else