应用错误收集

我在.NET中创建一个应用程序，它将作为我已部署的Django应用程序的第二个UI。对于某些操作，用户需要对自己进行身份验证（如Django用户）。我用一种超级简单的方法来做到这一点（为了简单起见，没有加密凭证）： -

步骤1.我创建了一个django视图，它通过两个HTTP GET参数接受用户名和密码，并将它们作为关键字参数传递给django.contrib.auth.authenticate（）。请参阅以下代码：

    def authentication_api(request, raw_1, raw_2):
        user = authenticate(username=raw_1, password=raw_2)
        if user is not None:
            if user.is_active:
                return HttpResponse("correct", mimetype="text/plain")
            else:
                return HttpResponse("disabled", mimetype="text/plain")
        else:
            return HttpResponse("incorrect", mimetype="text/plain")

步骤2.我在.NET中使用以下代码调用它。以下'strAuthURL'表示映射到上面的django视图的简单django URL：

    Dim request As HttpWebRequest = CType(WebRequest.Create(strAuthURL), HttpWebRequest)
    Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
    Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
    Dim result As String = reader.ReadToEnd()
    HttpWResp.Close()

这完美无瑕，虽然它只不过是一个概念验证。

现在我想通过HTTP POST这样做，所以我做了以下几点： -

我为使用POST数据进行身份验证创建了一个django视图

    def post_authentication_api(request):
        if request.method == 'POST':
            user = authenticate(username=request.POST['username'], password=request.POST['password'])
            if user is not None:
                if user.is_active:
                    return HttpResponse("correct", mimetype="text/plain")
                else:
                    return HttpResponse("disabled", mimetype="text/plain")
            else:
                return HttpResponse("incorrect", mimetype="text/plain")

I have tested this using restclient and this view works as expected. However I can't get it to work from the .NET code below:

    Dim request As HttpWebRequest = CType(WebRequest.Create(strAuthURL), HttpWebRequest)
    request.ContentType = "application/x-www-form-urlencoded"
    request.Method = "POST"
    Dim encoding As New UnicodeEncoding
    Dim postData As String = "username=" & m_username & "&password=" & m_password
    Dim postBytes As Byte() = encoding.GetBytes(postData)
    request.ContentLength = postBytes.Length
    Try
        Dim postStream As Stream = request.GetRequestStream()
        postStream.Write(postBytes, 0, postBytes.Length)
        postStream.Close()
        Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
        Dim responseStream As New StreamReader(response.GetResponseStream(), UnicodeEncoding.Unicode)
        result = responseStream.ReadToEnd()
        response.Close()
    Catch ex As Exception
        MessageBox.Show(ex.ToString)
    End Try

服务器给我500个内部服务器错误。我的猜测是在.NET中没有正确设置POST请求。所以我基本上需要一些关于如何从.NET发送POST数据调用django视图的指导。

谢谢， CM

通过HTTP POST使用HttpWebRequest和HttpWebResponse从.NET进行Django身份验证

3 个答案: