Request = HttpContext.Current.Request 未将对象引用设置对象的实例

[SungCen]

Public Shared Function GetRealIP() As String

        Dim Request As HttpRequest = HttpContext.Current.Request

        If (String.IsNullOrEmpty(Request.ServerVariables("HTTP_VIA")) = False) Then
            GetRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR").ToString()
        Else
            GetRealIP = Request.ServerVariables("REMOTE_ADDR").ToString()
        End If

        GetRealIP = ""
        Return GetRealIP

End Function

请各位帮忙看下，我已经引用过了Imports System.Web

可就是一运行会报“未将对象引用设置对象的实例”这个错误，是什么原因啊？？

求救～～我快疯掉了。～～～

[coodd]

把Shared去掉

[wuyq11]

Dim Request As New HttpContext.Current.Request

[孟子E章]

你是用在B/S结构的程序中的吗

[vwxyzh]

1、用了多线程了吧，HttpContext.Current在新开的线程（或者线程池的线程）里面是无法访问到的
2、或者根本不是Asp.net程序。。。

[lqw521326]

没有实例化。加个new 在定义时

[迈克揉索芙特]

[Quote=引用 3 楼 net_lover 的回复:]
你是用在B/S结构的程序中的吗
[/Quote]

楼主用在winform了吧？

[xue1234567890]

[Quote=引用楼主 SungCen 的帖子:]
VB.NET code
Public Shared Function GetRealIP() As String

Dim Request As new HttpRequest = HttpContext.Current.Request

If (String.IsNullOrEmpty(Request.ServerVariables("HTTP_VIA")) = False) Then
GetRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR").ToString()
Else
GetRealIP = Request.ServerVariables("REMOTE_ADDR").ToString()
End…
[/Quote]

[knightwayne]

Dim Request As New HttpContext.Current.Request
最好不要用关键字.