svnno****@sourc*****
svnno****@sourc*****
2010年 11月 29日 (月) 13:04:56 JST
Revision: 1128
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1128
Author: syo68k
Date: 2010-11-29 13:04:56 +0900 (Mon, 29 Nov 2010)
Log Message:
-----------
UserStreamが受信できていなかったのを修正
Modified Paths:
--------------
branches/UserStream/Tween/Twitter.vb
-------------- next part --------------
Modified: branches/UserStream/Tween/Twitter.vb
===================================================================
--- branches/UserStream/Tween/Twitter.vb 2010-11-29 03:55:26 UTC (rev 1127)
+++ branches/UserStream/Tween/Twitter.vb 2010-11-29 04:04:56 UTC (rev 1128)
@@ -2840,12 +2840,12 @@
Dim tmp As Integer
Do While _streamActive
- tmp = sr.Peek()
+ tmp = sr.Read()
If tmp <> -1 Then
If tmp = &HA Then
Return ret.ToString
Else
- ret.Append(Convert.ToChar(sr.Read()))
+ ret.Append(Convert.ToChar(tmp))
End If
End If
Thread.Sleep(10)