wie kann ich denn den HTTP Status Code ermitteln

VBNEWBIE1987 · 28. Dezember 2013, 14:09

Hallo wollte mal fragen ob das so richtig ist
funktioniert zwar aber ich habe bedenken ob das so richtig ist

noch eine frage wie kann ich denn den HTTP Status Code ermitteln

HTTP Status Code
500 Internal server error
400 Bad request
200

VB.NET-Quellcode

#Region "Get_Json_String"
Private Get_Json_String()
Try
Dim str_request As String = Nothing
Dim sURL As String = url_request
Dim req As HttpWebRequest = HttpWebRequest.Create(sURL)
Dim resp As WebResponse = req.GetResponse()
If resp.ContentLength > 0 = True Then
Dim sResp As StreamReader = New StreamReader(resp.GetResponseStream)
str_request = sResp.ReadToEnd
sResp.Close()
resp.Close()
If str_request.Length > 0 = True Then
JsonString = str_request
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
'MsgBox(ex.ToString)
End Try
End Sub
#End Region

VBNEWBIE1987 · 28. Dezember 2013, 17:33

ich denke das es so besser ist oder

VB.NET-Quellcode

Dim str_request As String = Nothing
Dim sURL As String = url_request
'Dim req As HttpWebRequest = HttpWebRequest.Create(sURL)
'Dim resp As WebResponse = req.GetResponse()
Dim req As HttpWebRequest = CType(WebRequest.Create(sURL), HttpWebRequest)
' Sends the request and waits for a response.
Dim resp As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
If resp.StatusCode = HttpStatusCode.OK Then
Dim sResp As StreamReader = New StreamReader(resp.GetResponseStream)
str_request = sResp.ReadToEnd
sResp.Close()
resp.Close()
If str_request.Length > 0 = True Then
JsonString = str_request
'TextBox2.Text = JsonString
Get_Varriablen_Json_String()
End If
Else
If resp.StatusCode = HttpStatusCode.BadRequest Then
MsgBox(resp.StatusCode = HttpStatusCode.BadRequest)
End If
If resp.StatusCode = HttpStatusCode.InternalServerError Then
MsgBox(resp.StatusCode = HttpStatusCode.InternalServerError)
End If
End If

msdn.microsoft.com/en-us/libra…statuscode(v=vs.110).aspx

VB.NET-Quellcode

MsgBox((resp.StatusCode = HttpStatusCode.OK).ToString(), MsgBoxStyle.Information)
MsgBox(resp.StatusCode)

VBNEWBIE1987 · 28. Dezember 2013, 20:21

hab ein neues Problem,

die Else, wird nicht angesprochen geht direct zur Exception

VB.NET-Quellcode

Catch ex As Exception
'MessageBox.Show(ex.Message)
MsgBox(ex.ToString)
End Try
If resp.StatusCode = HttpStatusCode.OK Then
'---------
Else ' Keine Funktion
If resp.StatusCode = HttpStatusCode.BadRequest Then
MsgBox((resp.StatusCode), MsgBoxStyle.Information, "Bad Request") ' = 400 Bad(request)
End If
If resp.StatusCode = HttpStatusCode.Unauthorized Then
MsgBox((resp.StatusCode), MsgBoxStyle.Information, "Unauthorized") ' = 401 Unauthorized
End If
If resp.StatusCode = HttpStatusCode.InternalServerError Then
MsgBox((resp.StatusCode), MsgBoxStyle.Information, "Internal Server Error") ' = 500 Internal server error
End If

VB.NET-Quellcode

#Region "Get_Json_String"
Private Sub Get_Json_String()
Try
Dim str_request As String = Nothing
Dim sURL As String = url_request
Dim req As HttpWebRequest = CType(WebRequest.Create(sURL), HttpWebRequest)
Dim resp As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse) ' Sends the request and waits for a response.
If resp.StatusCode = HttpStatusCode.OK Then
MsgBox((resp.StatusCode), MsgBoxStyle.Information, "Request OK") ' = 200 OK
Dim sResp As StreamReader = New StreamReader(resp.GetResponseStream)
str_request = sResp.ReadToEnd
sResp.Close()
resp.Close()
If str_request.Length > 0 = True Then
JsonString = str_request
'run
End If
Else ' Keine Funktion
If resp.StatusCode = HttpStatusCode.BadRequest Then
MsgBox((resp.StatusCode), MsgBoxStyle.Information, "Bad Request") ' = 400 Bad(request)
End If
If resp.StatusCode = HttpStatusCode.Unauthorized Then
MsgBox((resp.StatusCode), MsgBoxStyle.Information, "Unauthorized") ' = 401 Unauthorized
End If
If resp.StatusCode = HttpStatusCode.InternalServerError Then
MsgBox((resp.StatusCode), MsgBoxStyle.Information, "Internal Server Error") ' = 500 Internal server error
End If
End If
Catch ex As Exception
'MessageBox.Show(ex.Message)
MsgBox(ex.ToString)
End Try
End Sub
#End Region

petaod · 30. Dezember 2013, 23:29

Was steht denn in .StatusDescription?

Arby · 31. Dezember 2013, 10:12

If a WebException is thrown, use the Response and Status properties of the exception to determine the response from the server.

Heißt im Umkehrschluss: Wenn der Server irgendwas anderes als StatusCode 200 (=OK) meldet, wird eine WebException ausgelöst, die man abfangen sollte. Und in genau diesem Fall kann man anhand des StatusCodes ermitteln, was "schiefgelaufen" ist.

VBNEWBIE1987 · 31. Dezember 2013, 19:28

in diesem Fall sollte ich eigentlich ein "Unauthorized" zurückbekommen

wie fange ich den die Exception den ab ???

VB.NET-Quellcode

If resp.StatusCode = HttpStatusCode.Unauthorized Then
MsgBox((resp.StatusCode), MsgBoxStyle.Information, "Unauthorized") ' = 401 Unauthorized

Maximilian1989 · 2. Januar 2014, 14:01

Du musst nicht die Response auswerten, sondern die (Web)-Exception die durch den Response ausgelöst wird:

VB.NET-Quellcode

Dim response As HttpWebResponse
Try
response = DirectCast(request.GetResponse(), HttpWebResponse)
Dim rstream As Stream = response.GetResponseStream
Dim reader As IO.StreamReader = New StreamReader(rstream)
Dim pagestream As New StringBuilder
Do Until reader.EndOfStream
pagestream.AppendLine(reader.ReadLine)
Loop
Me.RichTextBox1.Text = pagestream.ToString
response.Close()
Catch ex As WebException
'Testausgabe
RichTextBox1.AppendText(CStr(CType(ex.Response, HttpWebResponse).StatusCode))
RichTextBox1.AppendText(CStr(CType(ex.Response, HttpWebResponse).StatusDescription))
'Abfangen:
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.Unauthorized Then
MsgBox((CType(ex.Response, HttpWebResponse).StatusCode), MsgBoxStyle.Information, "Unauthorized") ' = 401 Unauthorized
End If
End Try

VBNEWBIE1987 · 7. Januar 2014, 20:58

hallo jetzt wollte ich probieren eine funktion daraus zu basteln

funktioniert aber nicht so recht, hat jemand vielleicht eine idee

was mach ich hier falsch

VB.NET-Quellcode

Public Function Get_Json_String(ByVal address As String, ByVal Conect As Boolean, ByVal Json_String As String, ByVal Req_StatusCode As String, ByVal Req_StatusDescription As String) As String
Try
Dim request As WebRequest = WebRequest.Create(address) 'Create a request for the URL.
request.Credentials = CredentialCache.DefaultCredentials ' If required by the server, set the credentials.
Dim response As WebResponse = request.GetResponse() ' Get the response.
Req_StatusDescription = (CStr(CType(response, HttpWebResponse).StatusDescription)) ' Display the status.
Dim dataStream As Stream = response.GetResponseStream() 'Get the stream containing content returned by the server.
Dim reader As New StreamReader(dataStream) 'Open the stream using a StreamReader for easy access.
Dim responseFromServer As String = reader.ReadToEnd() 'Read the content.
'Get_Json_String = responseFromServer
Json_String = responseFromServer
Catch ex As WebException
Return Conect = False
Req_StatusCode = (CStr(CType(ex.Response, HttpWebResponse).StatusCode))
Req_StatusDescription = (CStr(CType(ex.Response, HttpWebResponse).StatusDescription))
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.BadRequest Then
MsgBox((CType(ex.Response, HttpWebResponse).StatusCode), MsgBoxStyle.Information, "Bad Request") ' = '400: Bad(request)
End If
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.Unauthorized Then
MsgBox((CType(ex.Response, HttpWebResponse).StatusCode), MsgBoxStyle.Information, "Unauthorized") ' = 401 Unauthorized
End If
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.NotFound Then
MsgBox((CType(ex.Response, HttpWebResponse).StatusCode), MsgBoxStyle.Information, "Not found") ' = 404 Not found
End If
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.InternalServerError Then
MsgBox((CType(ex.Response, HttpWebResponse).StatusCode), MsgBoxStyle.Information, "Internal Server Error") ' = '500 Internal server error
End If
End Try
Return Conect = True
Return Json_String
End Function
End Class

Arby · 7. Januar 2014, 21:01

Was ist denn das Problem?

Ach ja... bei einer solch "allgemeinen" Funktionen würde ich nie MessageBoxen anzeigen lassen. Überlass es dem Aufrufer wie er mit Fehlern umgeht - ob er sie als Meldung anzeigt oder in ein Log schreibt. Wegen so einer Programmierung haben wir in der Firma zurzeit große Probleme eine Automatisierungsschnittstelle für eine Anwendung zu bauen, weil sie bei jedem quersitzenden Furz eine MsgBox anzeigt und damit blockiert.

Trade · 7. Januar 2014, 21:06

Du kannst btw auch in einen Integer casten und somit die StatusCodes als Integer erhalten, 404 usw. Finde ich leichter.

VBNEWBIE1987 · 7. Januar 2014, 21:40

ist ja nur als test gedacht

so gehts

VB.NET-Quellcode

Public Function Get_Json_String(ByVal address As String) As String

VB.NET-Quellcode

Get_Json_String("http://url")

return funktioniert auch nicht so wie es soll

VBNEWBIE1987 · 8. Januar 2014, 02:43

VB.NET-Quellcode

#Region " ############################# VAR REQUEST ############################# "
Dim StatusCode_OK As Boolean = False
Dim Json_String
Dim Req_StatusCode As String
Dim Req_StatusDescription As String
Dim ResponseFromServer_OK As Boolean = False
Dim Progressvalue
Dim ExceptionStatusCode As String = Nothing
#End Region

VB.NET-Quellcode

#Region " ############################# Get Json String ############################# "
Public Function Get_Json_String(ByVal address As String) As String
Try
ProgressBar1.Value = 0
Dim request As WebRequest = WebRequest.Create(address) 'Create a request for the URL.
request.Credentials = CredentialCache.DefaultCredentials ' If required by the server, set the credentials.
Dim response As WebResponse = request.GetResponse() ' Get the response.
Req_StatusDescription = (CStr(CType(response, HttpWebResponse).StatusDescription)) ' Display the status.
If CType(response, HttpWebResponse).StatusCode = HttpStatusCode.OK Then
Dim fileSize As Integer = response.ContentLength ' Ask the server for the file size and store it
StatusCode_OK = True
Dim dataStream As Stream = response.GetResponseStream() 'Get the stream containing content returned by the server.
Dim reader As New StreamReader(dataStream) 'Open the stream using a StreamReader for easy access.
Dim responseFromServer = Nothing
responseFromServer = reader.ReadToEnd() 'Read the content.
Dim fileReader As Integer = responseFromServer.Length
Progressvalue = ((fileReader / fileSize) * 100)
reader.Close()
response.Close()
ProgressBar1.Maximum = 100
ProgressBar1.Value = Progressvalue
If responseFromServer.Length > 0 = True Then
ResponseFromServer_OK = True
Json_String = responseFromServer
responseFromServer = Nothing
End If
Else
StatusCode_OK = False
ResponseFromServer_OK = False
End If
Catch ex As WebException
Req_StatusCode = (CStr(CType(ex.Response, HttpWebResponse).StatusCode))
Req_StatusDescription = (CStr(CType(ex.Response, HttpWebResponse).StatusDescription))
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.BadRequest Then
ExceptionStatusCode = ((CType(ex.Response, HttpWebResponse).StatusCode) & "Bad Request") ' = '400: Bad(request)
End If
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.Unauthorized Then
ExceptionStatusCode = ((CType(ex.Response, HttpWebResponse).StatusCode) & "Unauthorized") ' = 401 Unauthorized
End If
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.NotFound Then
ExceptionStatusCode = ((CType(ex.Response, HttpWebResponse).StatusCode) & " not found") ' = 404 not found
End If
If CType(ex.Response, HttpWebResponse).StatusCode = HttpStatusCode.InternalServerError Then
ExceptionStatusCode = ((CType(ex.Response, HttpWebResponse).StatusCode) & "Internal Server Error") ' = '500 Internal server error
End If
StatusCode_OK = False
ResponseFromServer_OK = False
Catch ex As Exception
ex = Nothing
StatusCode_OK = False
ResponseFromServer_OK = False
End Try
Return Json_String
End Function
#End Region

VB.NET-Quellcode

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Get_Json_String("http://Json")
End Sub

Würde mich über Verbesserungsvorschläge freuen

wie kann ich denn den HTTP Status Code ermitteln

wie kann ich denn den HTTP Status Code ermitteln

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben