[VB.Net/HTTP]File Uploaden

[CyberThijs]

Eerst en vooral beginnen met een stukje code

code:

    Private Function Test(ByVal strFile As String)
        Dim oReq As HttpWebRequest
        Dim oRes As HttpWebResponse
        Dim oSW As StreamWriter
        Dim oSR As StreamReader
        Dim strText As String

        'Read image
        Dim iFileNum As Integer = FreeFile()
        FileOpen(iFileNum, strFile, OpenMode.Binary)
        strText = Space(FileLen(strFile))
        FileGet(iFileNum, strText)
        FileClose(iFileNum)

        'Fire of an http request !!!
        oReq = System.Net.WebRequest.Create("http://www.imageshack.us/hostit.php")
        oReq.Method = "POST"
        oReq.ContentType = "multipart/form-data, boundary=AaB03x"

        'Assemble the body

        Dim strBody As String = _
           "--AaB03x" & vbCrLf & _
           "Content-Disposition: attachment; name=""fileupload""; filename=""" & strFile & """" & vbCrLf & _
           "Content-Type: image" & vbCrLf & vbCrLf & _
           strText & vbCrLf & _
           "--AaB03x" & vbCrLf & _
           "Content-Disposition: form-data; name=""submit""" & vbCrLf & vbCrLf & _
           "host it!" & vbCrLf & _
           "--AaB03x--"

        Dim oStream As New FileStream("c:\test.txt", FileMode.OpenOrCreate)
        Dim oTxtWriter As New StreamWriter(oStream)
        oTxtWriter.Write(strBody)
        oTxtWriter.Close()
        oStream.Close()

        'Send it
        oSW = New StreamWriter(oReq.GetRequestStream)
        oSW.Write(strBody)
        oSW.Flush()
        oSW.Close()

        ' send info back.
        oRes = oReq.GetResponse
        oSR = New StreamReader(oRes.GetResponseStream)
        Return oSR.ReadToEnd
        oSR.Close()
        oRes.Close()
        oSW.Close()
    End Function

Mijn probleem nu: Bij het samenstellen van de body en de header gaat alles perfect, dan krijg ik de juiste output. nl.

code:

--AaB03x
Content-Disposition: attachment; name="fileupload"; filename="C:\Documents and Settings\Thijs.BUREAU\Mijn documenten\Mijn afbeeldingen\Call_Of_Duty_Dutch-front.jpg"
Content-Type: image

ÿØÿà JFIF  H H  ÿÛ C        

 $.' ",#(7),01444'9=82<.342ÿÛ C         

2!!222222222222222222222  etc  etc ...

Maar als ik dat doorstuur, en ik kijk mee met een packet-sniffer, krijg ik opeens een heel andere string:

code:

--AaB03x
Content-Disposition: attachment; name="fileupload"; filename="C:\Documents and Settings\Thijs.BUREAU\Mijn documenten\Mijn afbeeldingen\Call_Of_Duty_Dutch-front.jpg"
Content-Type: image

ÿØÿà ..JFIF.....H.H..ÿÛ.C..............
..
................. $.' etc. ect. ...

Waarom verandert die string opeens?? Ik raak er echt geen wijs meer uit

[MTWZZ]

Ik zie dat je in de code MIME encoding gebruikt, je zult daarom je binaire data ook als MIME moeten coderen zodat het goed overkomt.
MIME kent de zgn base64 codering om dit te doen.
Volgens mij heeft VB (.NET?) hier geen classes voor maar die zijn op Google zo te vinden

[CyberThijs]

Kan iemand me een hint geven hoe en waar ik dat dan moet implenteren?

[pistole]

ik denk dat je wel iets met System.Convert.ToBase64String() o.i.d. kan doen.
En anders ff in de System.Web classes rondsnuffelen.

[CyberThijs]

En waar moet ik dit ergens doen, want zowel enkel de file base-coderen, als heel de body levert niet het gewenste resultaat op..

en trouwens: de juiste output (zie m'n eerste post) bevat toch geen base64-strings

[OZ-Gump]

Wat voor resultaat komt er bij imageshack uit? Misschien is deze post in het topic "[Alg] Welke tools heb jij gemaakt - deel II" ook wel erg interessant voor je: een tooltje om images te uploaden naar ImageShack

De maker van dat tooltje kan je misschien ook verder helpen als het gaat om het ontwikkelen van een tool om images naar imageshack te uploaden.

[CyberThijs]

OZ-Gump schreef op maandag 07 februari 2005 @ 15:58:
Wat voor resultaat komt er bij imageshack uit? Misschien is deze post in het topic "[Alg] Welke tools heb jij gemaakt - deel II" ook wel erg interessant voor je: een tooltje om images te uploaden naar ImageShack

De maker van dat tooltje kan je misschien ook verder helpen als het gaat om het ontwikkelen van een tool om images naar imageshack te uploaden.

Ik weet van het bestaan van deze tool, deze heeft de 'juiste' output (zoals in de startpost beschreven), maar deze is (spijtig genoeg) geschreven in delphi, waardoor ik er niet zoveel mee ben.. Ik wil namelijk het uploaden van afbeeldingen in een progje van mij implenteren.
En voor zover ik weet kan je nog steeds geen delphi-code in een .NET-applicatie verwerken..

* CyberThijs begint radeloos te worden

[ Voor 5% gewijzigd door CyberThijs op 07-02-2005 22:22 ]

[CyberThijs]

Oké, dit is dus het resultaat van nog een hele middag doorzoeken:

1) Ik heb geprobeerd te werken met met Base64-encoding, maar het is net alsof de server dat niet begrijpt.. Wat is er fout aan deze code:

code:

--AaB03x
Content-Disposition: form-data; name="fileupload"; filename="C:\Documents and Settings\Thijs.BUREAU\Mijn documenten\HW-Wi.gif"
Content-Type:
Content-Transfer-Encoding: base64

RwBJAEYAOAA5AGEA/AADABYAAgD3AAAAAADbAP8A+QD/AOsA9AD9AP0A/QD/APUA/wDjAP8A/QD/AP8A+wD ETC ETC..

Als ik een image hiermee upload, dan decodeert de server dat niet. Wanneer ik de afbeelding dan weer download, is ie nog altijd base64-encoded..
Ik heb de header "Content-Transfer-Encoding: base64" rechtstreeks gekopieërd uit de source van een e-mail met attachement (dat werkt ook met base64-encoding), en alles zoveel mogelijk gelijkgetrokken... maar toch het werkt niet

2) De hele request base64-encoden werkt ook niet (maar dat was wss te verwachten)

Dus, toch weer zonder base64-encoding werken? Dan kom ik weer bij m'n oorspronkelijke vraag: waarom wordt er iets anders doorgestuurd naar de server dan wat ik laat doorsturen door m'n app???