コールバック関数呼び出しの際に呼び出しもとメソッド名を正しく渡せていなかったのを修正

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

diff --git a/Tween/Connection/HttpConnectionBasic.vb b/Tween/Connection/HttpConnectionBasic.vb
index 6f07016..1f6e8fc 100644 (file)
--- a/Tween/Connection/HttpConnectionBasic.vb
+++ b/Tween/Connection/HttpConnectionBasic.vb
@@ -1,6 +1,7 @@
 Imports System.Text
 Imports System.Net
 Imports System.IO
+Imports System.Diagnostics
 
 '''<summary>
 '''BASIC認証を使用するHTTP通信
@@ -59,7 +60,8 @@ Public Class HttpConnectionBasic
             code = GetResponse(webReq, content, headerInfo, False)
         End If
         If callback IsNot Nothing Then
-            callback(Me, code, content)
+            Dim frame As New StackFrame(1)
+            callback(frame.GetMethod.Name, code, content)
         End If
         Return code
     End Function
@@ -90,7 +92,8 @@ Public Class HttpConnectionBasic
             code = GetResponse(webReq, content, headerInfo, False)
         End If
         If callback IsNot Nothing Then
-            callback(Me, code, content)
+            Dim frame As New StackFrame(1)
+            callback(frame.GetMethod.Name, code, content)
         End If
         Return code
     End Function

diff --git a/Tween/Connection/HttpConnectionOAuth.vb b/Tween/Connection/HttpConnectionOAuth.vb
index b38550a..e0ba832 100644 (file)
--- a/Tween/Connection/HttpConnectionOAuth.vb
+++ b/Tween/Connection/HttpConnectionOAuth.vb
@@ -4,6 +4,7 @@ Imports System.Collections.Specialized
 Imports System.IO
 Imports System.Text
 Imports System.Security
+Imports System.Diagnostics
 
 '''<summary>
 '''OAuth認証を使用するHTTP通信。HMAC-SHA1固定
@@ -88,7 +89,8 @@ Public Class HttpConnectionOAuth
             code = GetResponse(webReq, content, headerInfo, False)
         End If
         If callback IsNot Nothing Then
-            callback(Me, code, content)
+            Dim frame As New StackFrame(1)
+            callback(frame.GetMethod.Name, code, content)
         End If
         Return code
     End Function
@@ -121,7 +123,8 @@ Public Class HttpConnectionOAuth
             code = GetResponse(webReq, content, headerInfo, False)
         End If
         If callback IsNot Nothing Then
-            callback(Me, code, content)
+            Dim frame As New StackFrame(1)
+            callback(frame.GetMethod.Name, code, content)
         End If
         Return code
     End Function