Thema: VB.Net Bild hochladen
-
12.01.2012, 17:34 #1
VB.Net Bild hochladen
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:
Code: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
Die Anfrage wurde abgebrochen: Die Anfrage wurde abgebrochen..
Kann jemand weiterhelfen?
-
12.01.2012, 18:08 #2
- Registriert seit
- 15.11.2011
- Beiträge
- 6.209
- Blog Entries
- 5
Thanked 9.130 Times in 3.005 PostsAW: VB.Net Bild hochladen
Server sagt
Code:HTTP/1.1 404 Not Found
-
12.01.2012, 18:14 #3
AW: VB.Net Bild hochladen
Ja, weil ich die URL ersetzt habe durch "http://link.li/ul.php" damit vorerst nicht jeder den Link kennt.
-
12.01.2012, 18:18 #4
- Registriert seit
- 19.12.2011
- Beiträge
- 356
Thanked 164 Times in 101 PostsAW: VB.Net Bild hochladen
-
12.01.2012, 18:25 #5
- Registriert seit
- 15.11.2011
- Beiträge
- 6.209
- Blog Entries
- 5
Thanked 9.130 Times in 3.005 PostsAW: VB.Net Bild hochladen
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.
-
12.01.2012, 18:35 #6
AW: VB.Net Bild hochladen
Gut danke, Script ist nicht von mir, mal sehen.
Ähnliche Themen
-
Wo Phising seite hochladen?
Von Rikepenner im Forum SecurityAntworten: 5Letzter Beitrag: 10.11.2013, 20:58 -
CSS Template hochladen
Von Silent im Forum HostingAntworten: 3Letzter Beitrag: 16.09.2013, 16:40 -
Musik als URL hochladen mit Direktlink?
Von Festplatte im Forum WebentwicklungAntworten: 3Letzter Beitrag: 16.06.2013, 13:36 -
Seite zum Foto hochladen
Von helfen im Forum iOSAntworten: 5Letzter Beitrag: 27.02.2012, 14:02 -
[Frage] YB Serien hochladen?
Von Electro im Forum Internet und TechnikAntworten: 4Letzter Beitrag: 01.01.2012, 19:59
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.