Changeset 28691

Timestamp:

01/20/09 13:09:18 (4 years ago)

Author:

kiri_feather

Message:

アイコン取得を別スレッド化（お行儀悪い）

Location:

lang/vb2005/Tween/Tween

Files:

• Tween.vb (modified) (1 diff)
• Twitter.vb (modified) (11 diffs)

lang/vb2005/Tween/Tween/Tween.vb

@@ -2159 +2159 @@
         Me.ResumeLayout(False)
         Me.PerformLayout()
-        Diagnostics.Debug.WriteLine("inz")
         Return True
     End Function

lang/vb2005/Tween/Tween/Twitter.vb

@@ -28 +28 @@
 
 Partial Public Class Twitter
+    Delegate Sub GetIconImageDelegate(ByVal post As PostClass, ByVal imgs As Dictionary(Of String, Image), ByVal imgsS As ImageList)
+    Private iconLock As New Object
+
     Public links As New List(Of Long)
 
@@ -279 +282 @@
         Dim intCnt As Integer = 0
         Dim listCnt As Integer = links.Count
+        Dim dlgt(20) As GetIconImageDelegate
+        Dim ar(20) As IAsyncResult
+        Dim arIdx As Integer = -1
 
         For Each strPost As String In posts
@@ -525 +531 @@
                     End If
 
-                    post.ImageIndex = GetIconImage(post.ImageUrl, imgs, imgsS)
+                    arIdx += 1
+                    dlgt(arIdx) = New GetIconImageDelegate(AddressOf GetIconImage)
+                    ar(arIdx) = dlgt(arIdx).BeginInvoke(post, imgs, imgsS, Nothing, Nothing)
 
                     If _endingFlag Then Return ""
@@ -543 +551 @@
 
                 'テスト実装：DMカウント取得
-                If intCnt = posts.Length And gType = GetTypes.GET_TIMELINE And page = 1 Then
+                If intCnt = posts.Length AndAlso gType = GetTypes.GET_TIMELINE AndAlso page = 1 Then
                     pos1 = strPost.IndexOf(_parseDMcountFrom, pos2, StringComparison.Ordinal)
                     If pos1 > -1 Then
@@ -559 +567 @@
                 getDM = _getDm
             End If
+        Next
+
+        For i As Integer = 0 To arIdx
+            dlgt(i).EndInvoke(ar(i))
         Next
 
@@ -662 +674 @@
         Dim intCnt As Integer = 0   'カウンタ
         Dim listCnt As Integer = links.Count
+        Dim dlgt(20) As GetIconImageDelegate
+        Dim ar(20) As IAsyncResult
+        Dim arIdx As Integer = -1
 
         For Each strPost As String In posts
@@ -784 +799 @@
 
                     'Imageの取得
-                    post.ImageIndex = GetIconImage(post.ImageUrl, imgs, imgsS)
+                    arIdx += 1
+                    dlgt(arIdx) = New GetIconImageDelegate(AddressOf GetIconImage)
+                    ar(arIdx) = dlgt(arIdx).BeginInvoke(post, imgs, imgsS, Nothing, Nothing)
 
                     If _endingFlag Then Return ""
@@ -804 +821 @@
                 End If
             End If
+        Next
+
+        For i As Integer = 0 To arIdx
+            dlgt(i).EndInvoke(ar(i))
         Next
 
@@ -895 +916 @@
     End Function
 
-    Private Function GetIconImage(ByVal pathUrl As String, ByVal imgs As Dictionary(Of String, Image), ByVal imgsS As ImageList) As Integer
-        If _endingFlag OrElse Not _getIcon Then Return -1
-        If imgsS.Images.ContainsKey(pathUrl) Then Return imgsS.Images.IndexOfKey(pathUrl)
-
+    Private Sub GetIconImage(ByVal post As PostClass, ByVal imgs As Dictionary(Of String, Image), ByVal imgsS As ImageList)
+        If _endingFlag OrElse Not _getIcon Then
+            post.ImageIndex = -1
+            Exit Sub
+        End If
+        If imgsS.Images.ContainsKey(post.ImageUrl) Then
+            post.ImageIndex = imgsS.Images.IndexOfKey(post.ImageUrl)
+            Exit Sub
+        End If
+
+        Dim sock As New MySocket("UTF-8", _uid, _pwd, _proxyType, _proxyAddress, _proxyPort, _proxyUser, _proxyPassword)
         Dim resStatus As String = ""
-        Dim img As Image = DirectCast(_mySock.GetWebResponse(pathUrl, resStatus, MySocket.REQ_TYPE.ReqGETBinary), System.Drawing.Image)
-        If img Is Nothing Then Return -1
-
-        imgs.Add(pathUrl, img)  '詳細表示用ディクショナリに追加
+        Dim img As Image = DirectCast(sock.GetWebResponse(post.ImageUrl, resStatus, MySocket.REQ_TYPE.ReqGETBinary), System.Drawing.Image)
+        If img Is Nothing Then
+            post.ImageIndex = -1
+            Exit Sub
+        End If
 
         Dim bmp2 As New Bitmap(_iconSz, _iconSz)
@@ -910 +939 @@
             g.DrawImage(img, 0, 0, _iconSz, _iconSz)
         End Using
-        imgsS.Images.Add(pathUrl, bmp2)
-        Return imgsS.Images.IndexOfKey(pathUrl)
-    End Function
+
+        SyncLock iconLock
+            If imgsS.Images.ContainsKey(post.ImageUrl) Then
+                post.ImageIndex = imgsS.Images.IndexOfKey(post.ImageUrl)
+                Exit Sub
+            End If
+            imgs.Add(post.ImageUrl, img)  '詳細表示用ディクショナリに追加
+            imgsS.Images.Add(post.ImageUrl, bmp2)
+            post.ImageIndex = imgsS.Images.IndexOfKey(post.ImageUrl)
+        End SyncLock
+    End Sub
 
     Private Function GetAuthKey(ByVal resMsg As String) As Integer
@@ -1196 +1233 @@
         Dim resMsg As String = ""
 
-        resMsg = DirectCast(_mySock.GetWebResponse(wedataUrl, resStatus, timeout:=10 * 1000), String) 'タイムアウト時間を10秒に設定
+        resMsg = DirectCast(_mySock.GetWebResponse(wedataUrl, resStatus, timeOut:=10 * 1000), String) 'タイムアウト時間を10秒に設定
         If resMsg.Length = 0 Then Exit Sub