VB.Net Bild hochladen

[Snees]

Hallo, ich arbeite an einem Programm, das ein Bild hochladen soll, dabei wird ein eigenes Upload-Script verwendet, ich will also nicht auf abload.de etc hochladen und per FTP möchte ich es auch nicht machen.

Folgenden Code habe ich im Internet gefunden und etwas angepasst:

Public Sub upload(ByVal path As String, ByVal name As String)
        'Grundgerüst
        Dim HttpWebRequest As Net.HttpWebRequest = HttpWebRequest.Create("http://link.li/ul.php")

        Dim Boundary As String = "---------------------------" & DateTime.Now.Ticks.ToString

        HttpWebRequest.Credentials = CredentialCache.DefaultCredentials
        HttpWebRequest.Method = "POST"
        HttpWebRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.1) Gecko/20090624 Firefox/3.5"
        HttpWebRequest.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        HttpWebRequest.KeepAlive = "300"
        HttpWebRequest.Referer = "Referer: http://link.li/ul.php"
        HttpWebRequest.CookieContainer = New CookieContainer()
        HttpWebRequest.ContentType = "multipart/form-data; boundary=" & Boundary

        'RequestStream Informationen
        Dim BoundaryBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(("--" + Boundary & Environment.NewLine))
        Dim InfoBytes() As Byte = System.Text.Encoding.ASCII.GetBytes("Content-Disposition: form-data; name=""image""; filename=" & name & "" _
                                                                      & Environment.NewLine & "Content-Type: image/png" & Environment.NewLine & Environment.NewLine)
        HttpWebRequest.ContentLength = BoundaryBytes.Length & InfoBytes.Length

        Dim FileInfo As New IO.FileInfo(path)
        HttpWebRequest.ContentLength += FileInfo.Length

        'RequestStream
        Dim RequestStream As Stream = HttpWebRequest.GetRequestStream

        RequestStream.Write(BoundaryBytes, 0, BoundaryBytes.Length)
        RequestStream.Write(InfoBytes, 0, InfoBytes.Length)


        Dim FileStream As FileStream = File.Open(path, FileMode.Open)

        Dim Buffer(1024) As Byte
        Dim BytesRead As Integer

        Do
            BytesRead = FileStream.Read(Buffer, 0, Buffer.Length)
            RequestStream.Write(Buffer, 0, BytesRead)
        Loop Until BytesRead = 0


        FileStream.Close()
        RequestStream.Close()

        'RequestStream Antwort
        Dim HttpWebResponse As HttpWebResponse = HttpWebRequest.GetResponse

        MsgBox(HttpWebResponse)

    End Sub

Ich habe mir mit Live HTTP Headers noch den Code angesehen und es ein wenig angepasst. Ich bekomme immer folgenden Fehler ausgegeben:

Die Anfrage wurde abgebrochen: Die Anfrage wurde abgebrochen..

Ich weiß nicht woran es liegt und im Internet finde ich bis jetzt auch keinen vernünftigen Lösungsansatz.

Kann jemand weiterhelfen?

[DMW007]

Server sagt

HTTP/1.1 404 Not Found

[Snees]

Ja, weil ich die URL ersetzt habe durch "http://link.li/ul.php" damit vorerst nicht jeder den Link kennt.

[DeKaDeNz]

.net - Upload files with HTTPWebrequest (multipart/form-data) - Stack Overflow

[DMW007]

lal, wie um alles in der Welt erwartest du, dass jemand den Fehler findet? Durch einen Blick in die Glaskugel?
Es gibt 1000 Sachen die man bei sowas falsch machen kann. Reicht von einem Umbruch der fehlt oder an der falschen Stelle steht bis zu Fehlern in der .NET Klasse, hängt alles vom Script ab. Wenn der Fehler nicht im Script liegt sofern es sich um ein selbstgecodetes handelt.

Poste das Script oder Uploadformular, oder such den Fehler alternativ selbst.

[Snees]

Gut danke, Script ist nicht von mir, mal sehen.