Changeset 29115

Timestamp:

01/27/09 16:23:35 (4 years ago)

Author:

syo68k

Message:

GetFollowers周り調整

Files:

• lang/vb2005/Tween/Tween/Twitter.vb (modified) (4 diffs)

lang/vb2005/Tween/Tween/Twitter.vb

@@ -1221 +1221 @@
         Dim resMsg As String = ""
 
-        resMsg = DirectCast(CreateSocket.GetWebResponse("https://" + _hubServer + _GetFollowers + _pageQry + Query.ToString, resStatus, MySocket.REQ_TYPE.ReqPOSTAPI), String)
-        If resStatus.StartsWith("OK") = False Then
-            IsThreadError = True
-            Return resStatus
-        End If
-
         Try
+            resMsg = DirectCast(CreateSocket.GetWebResponse("https://" + _hubServer + _GetFollowers + _pageQry + Query.ToString, resStatus, MySocket.REQ_TYPE.ReqPOSTAPI), String)
+            If resStatus.StartsWith("OK") = False Then
+                IsThreadError = True
+                Return resStatus
+            End If
             Using rd As Xml.XmlTextReader = New Xml.XmlTextReader(New System.IO.StringReader(resMsg))
                 Dim lc As Integer = 0
@@ -1251 +1250 @@
         Catch ex As Exception
             IsThreadError = True
-            TraceOut("NG OtherError:" + ex.Message)
+            ExceptionOut(ex)
             Return "NG OtherError:" + ex.Message
         End Try
@@ -1271 +1270 @@
     Private Sub GetFollowersCallback(ByVal ar As IAsyncResult)
         Dim dlgt As GetFollowersDelegate = DirectCast(ar.AsyncState, GetFollowersDelegate)
-        semaphore.Release()                     ' セマフォから出る
-        Interlocked.Decrement(threadNum)        ' スレッド数カウンタを-1
+
         Try
             Dim ret As String = dlgt.EndInvoke(ar)
@@ -1279 +1277 @@
                 IsThreadError = True
             End If
-        Catch ex As XmlException
-            IsThreadError = True
         Catch ex As Exception
-            IsThreadError = True
-            'Dim _dlgt As rethrowExceptionDelegate = New rethrowExceptionDelegate(AddressOf rethrowException)
-            ' UIスレッドで例外を再スロー(うまく投げられない?)
-            '_dlgt.BeginInvoke(ex, Nothing, Nothing)
+            ExceptionOut(ex)
+        Finally
+            semaphore.Release()                     ' セマフォから出る
+            Interlocked.Decrement(threadNum)        ' スレッド数カウンタを-1
         End Try
 
-    End Sub
-
-    Delegate Sub rethrowExceptionDelegate(ByVal ex As Exception)
-
-    Private Sub rethrowException(ByVal ex As Exception)
-        Throw New ApplicationException("バックグラウンド操作で例外発生(GetFollowersDelegate)", ex)
     End Sub