Il tuo link mi ha illuminato tas
Ho messo tutte le spiegazioni sul codice, spero di essere stato d'aiuto a qualcuno, anche se lo dubito assaicodice:Public Function PostToImmio(ByVal FileName As String) As String 'Lettura immagine in un array di bytes. Dim imageData As Byte() = File.ReadAllBytes(FileName) 'Converto l'immagine in una stringa in base 64 Dim base64img As String = System.Convert.ToBase64String(imageData) Dim uploadRequestString As String = "data:image/png;base64," & base64img Dim FInfo As New FileInfo(FileName) 'Dichiaro una nuova NameValueCollection da utilizzare in seguito Dim myNewValueColl As New NameValueCollection() 'Imposto il content-Type a multipart/form-data myNewValueColl.Add("Content-Type", "multipart/form-data") 'Assegno a image il valore della stringa uploadRequestString myNewValueColl.Add("image", uploadRequestString) 'Mentre a name assegno il valore del file selezionato myNewValueColl.Add("name", FInfo.Name) 'Ottengo la risposta dal server, utilizzando il metodo '.UploadValues(adress As String, method As String, data As System.Collections.Specialized.NameValueCollections) As Byte() Dim Response As Byte() = immioWC.UploadValues("http://imm.io/store/", "POST", myNewValueColl) 'Ne ottengo la risposta, convertita in string Return Encoding.ASCII.GetString(Response) 'by IAL32 :) End Function![]()


Rispondi quotando