Rapidshare Upload Stream

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von trommelwirbel.

    Rapidshare Upload Stream

    Hi,
    ich hab ein kleines Problem mit RS. Und zwar ich versuch eine Datei hochzuladen ohne sie komplett in den Arbeitsspeicher zu laden.
    Die Datei wird auch ohne Fehlermeldungen hochgeladen. Das Problem ist nur das der Datei am ende immer zwei Zeichen fehlen.

    d.h. ich lade eine txt Datei hoch mit dem Inhalt "123456789" kommen bei RS "1234567" an. ;)

    VB.NET-Quellcode

    1. Dim _file As FileSystemInfo = New FileInfo(tmpAccUDT.filepath)
    2. Dim DateTime2 As Date = DateTime.Now
    3. Dim l2 As Long = DateTime2.Ticks
    4. Dim s1 As String = "----------" + l2.ToString("x")
    6. Dim httpWebRequest As System.Net.HttpWebRequest = GetWebrequest(s1)
    7. Dim fileStream As System.IO.FileStream = New FileStream(_file.FullName, FileMode.Open, FileAccess.Read, FileShare.Read)
    9. 'Set Headers for Uploading
    10. Dim bArr1 As Byte() = System.Text.Encoding.ASCII.GetBytes("--" + s1 + Environment.NewLine)
    11. Dim s2 As String = GetRequestMessage(s1, _file.Name, tmpAccUDT.account, tmpAccUDT.password, tmpAccUDT.type).ToString
    12. Dim bArr2 As Byte() = System.Text.Encoding.UTF8.GetBytes(s2)
    14. 'Send to RS
    15. httpWebRequest.ContentLength = bArr1.Length + bArr2.Length + FileLen(tmpAccUDT.filepath)
    17. Dim clsStream As System.IO.Stream = httpWebRequest.GetRequestStream
    18. clsstream.Write(bArr1, 0, bArr1.Length)
    19. clsstream.Write(bArr2, 0, bArr2.Length)
    21. Dim length As Integer = 1024
    22. Dim buffer(length) As Byte
    23. Dim bytesread As Integer = fileStream.Read(buffer, 0, length)
    25. While bytesread > 0
    26. clsStream.Write(buffer, 0, bytesread)
    27. bytesread = fileStream.Read(buffer, 0, length)
    28. End While
    30. fileStream.Close()
    31. clsStream.Close()
    32. clsStream.Dispose()
    34. Dim tm As String = ""
    35. Dim stream As Stream = httpWebRequest.GetResponse().GetResponseStream()
    36. Dim streamreader As StreamReader = New StreamReader(stream)
    38. 'Get Response from Rapidshare and Return the Links.
    39. Dim lines As New ArrayList
    40. Dim TextLine As String
    41. Do While streamreader.Peek() <> -1
    42. TextLine = streamreader.ReadLine()
    43. lines.Add(TextLine)
    44. Loop
    45. streamreader.Close()


    Wahrscheinlich übersehe ich etwas, aber ich bin echt ratlos...

Facebook