Überpüfen ob Datei auf Server existiert...

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von enIking1998.

    Überpüfen ob Datei auf Server existiert...

    Hallihallo!

    Bevor ihr anfängt und mir Links zu anderen Post's schickt,bitte ich euch aber nach einer Lösung meines Problemes zu suchen...

    Also:
    Ich hab ein kleines Game,der Dateien auf den Server legt...nun ich prüfe die Datein,ob sie existieren,so:

    VB.NET-Quellcode

    1. Try
    2. Dim Browseranfrage As Net.HttpWebRequest
    3. Dim Browserantwort As Net.WebResponse
    4. Dim Browserstream As System.IO.Stream
    5. Dim Browserkodierungsart As System.Text.Encoding
    6. Dim Browserstreamread As System.IO.StreamReader
    8. Browseranfrage = Net.WebRequest.Create(New System.Uri("MEIN SERVER"))
    9. Browserantwort = Browseranfrage.GetResponse
    10. Browserstream = Browserantwort.GetResponseStream
    11. Browserkodierungsart = System.Text.Encoding.GetEncoding("utf-8")
    12. Browserstreamread = New System.IO.StreamReader(Browserstream, Browserkodierungsart)
    14. Catch
    17. End Try

    Nun ja,es klappt,aber dieser Codeauschnitt (muss)in einem Timer sein,mit dem Intervall 3000...
    Also es hängt sich auf...

    Leider gibt es(meines erachtens)keine Möglichkeit es asnynchon zum laufen zu bringen...
    Also will prüfen ob Datei auf Server existiert,dieses aber kontinuirlich ohne das jenes sich aufhängt...

    Wie kann ich es machen,das es sich nicht aufhängt?!

    Mfg.eniking1998

    @enIking1998
    Probier mal so:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Net
    4. Public Class Net
    6. Dim t As New Threading.Thread(AddressOf checkIt)
    7. Dim logList As New List(Of Boolean)
    8. Private WithEvents tmr As New Timer With {.Enabled = True, .Interval = 3000}
    10. Sub checkIt()
    11. logList.Add(checkFile("http://google.de"))
    12. End Sub
    14. Public Function checkFile(ByVal url As String) As Boolean
    15. Dim hReq As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)
    16. hReq.Proxy = Nothing
    17. hReq.Timeout = 1000
    18. Try
    19. Using hRes As HttpWebResponse = DirectCast(hReq.GetResponse(), HttpWebResponse)
    20. If hRes.StatusCode = HttpStatusCode.OK Then
    21. Return True
    22. Else
    23. Return False
    24. End If
    25. End Using
    26. Catch ex As Exception
    27. Return False
    28. End Try
    29. End Function
    31. Sub tmr_tick() Handles tmr.Tick
    32. If t.ThreadState = Threading.ThreadState.Stopped Then
    33. t.Start()
    34. End If
    35. End Sub
    36. End Class

Facebook
Telefonspende