・コールバック関数の規約変更(HttpStatusCode,Contentを参照できるように。いずれもByRef。ContentはAPIメソッドによってはNothingになることがあるので、Nothingチェックあるいはsenderによるメソッド名チェックを必ず行うこと)
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@801
e39ad16e-3079-482e-bb30-
4b4d378143b6
code = GetResponse(webReq, content, headerInfo, False)
End If
If callback IsNot Nothing Then
- callback(Me)
+ callback(Me, code, content)
End If
Return code
End Function
code = GetResponse(webReq, content, headerInfo, False)
End If
If callback IsNot Nothing Then
- callback(Me)
+ callback(Me, code, content)
End If
Return code
End Function
code = GetResponse(webReq, content, headerInfo, False)
End If
If callback IsNot Nothing Then
- callback(Me)
+ callback(Me, code, content)
End If
Return code
End Function
code = GetResponse(webReq, content, headerInfo, False)
End If
If callback IsNot Nothing Then
- callback(Me)
+ callback(Me, code, content)
End If
Return code
End Function
End Property
#End Region
- Private Sub GetApiCallback(ByVal sender As Object)
- TwitterApiInfo.ParseHttpHeaders(TwitterApiInfo.HttpHeaders)
+ Private Sub GetApiCallback(ByVal sender As Object, ByRef code As HttpStatusCode, ByRef content As String)
+ If code < HttpStatusCode.InternalServerError Then
+ TwitterApiInfo.ParseHttpHeaders(TwitterApiInfo.HttpHeaders)
+ End If
End Sub
End Class
Function Authenticate(ByVal url As Uri, ByVal username As String, ByVal password As String) As HttpStatusCode
ReadOnly Property AuthUsername() As String
- Delegate Sub CallbackDelegate(ByVal sender As Object)
+ Delegate Sub CallbackDelegate(ByVal sender As Object, ByRef code As HttpStatusCode, ByRef content As String)
End Interface