Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicit e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.Net] Problema funzione upload
Forum - C# / VB.NET - [VB.Net] Problema funzione upload

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
Adamettin (Normal User)
Newbie


Messaggi: 7
Iscritto: 03/11/2009

Segnala al moderatore
Postato alle 19:58
Sabato, 02/01/2010
Ho un problema inerente a una funzione di Upload che ho fatto

Praticamente ho creato un programma che permette di uppare file immagini non superiori a una certa grandezza in un sito mio altervista tramite FTP, ho rilasciato gi varie versioni e nessun problema.

Solo a un numero ristretto di utenti, capita che durante l'Upload del file gli restituisce l'errore "connessione sottostante chiusa: il server ha commesso una violazione la protocolo", ho cercato su internet ma ho trovato poco, avete idea su una possibile risoluzione del problema?

Vi ringrazio in anticipo per qualsiasi vostra risposta :)

Ps. utilizzo Microsoft Visual Basic 2008, la funzione per l'upload che uso : my.computer.network.uploadfile("percorsofile","url","campo1","campo2(password)")

Ultima modifica effettuata da Adamettin il 02/01/2010 alle 20:56
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 21:49
Sabato, 02/01/2010
Testo quotato

Postato originariamente da Adamettin:

Ho un problema inerente a una funzione di Upload che ho fatto

Praticamente ho creato un programma che permette di uppare file immagini non superiori a una certa grandezza in un sito mio altervista tramite FTP, ho rilasciato gi varie versioni e nessun problema.

Solo a un numero ristretto di utenti, capita che durante l'Upload del file gli restituisce l'errore "connessione sottostante chiusa: il server ha commesso una violazione la protocolo", ho cercato su internet ma ho trovato poco, avete idea su una possibile risoluzione del problema?

Vi ringrazio in anticipo per qualsiasi vostra risposta :)

Ps. utilizzo Microsoft Visual Basic 2008, la funzione per l'upload che uso : my.computer.network.uploadfile("percorsofile","url","campo1","campo2(password)")



Beh scritto cos sembra un errore relativo al server... comunque prova ad allegare il programma che ci d un occhiata.

PM Quote
Avatar
Adamettin (Normal User)
Newbie


Messaggi: 7
Iscritto: 03/11/2009

Segnala al moderatore
Postato alle 22:06
Sabato, 02/01/2010
Siccome devo modificare delle cose, ti riporto ad un altro progetto che comunque ha lo stesso problema nell'upload immagine, qua il link per scaricarlo: http://www.megaupload.com/?d=QNEL08ZK

Dopo aver creato la propria immagine, quando si va per upparla da quest'errore solo ad un numero abbastanza ristretto di persone, alla maggiorparte delle persone funziona...

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 23:18
Sabato, 02/01/2010
Scusa forse non mi sono espresso correttamente.. intendevo anche il sorgente.

Comunque se alle persone che capita questo problema lo risocntrano OGNI volta che utilizzano questo software potrebbe essere causato dal malfunzionamento del .NET Framework.

PM Quote
Avatar
Adamettin (Normal User)
Newbie


Messaggi: 7
Iscritto: 03/11/2009

Segnala al moderatore
Postato alle 11:38
Domenica, 03/01/2010
Si, proprio ogni volta, non una cosa che a tentativi va...

Comunque il codice del progetto questo:

Codice sorgente - presumibilmente VB.NET

  1. Private Sub btnSfoglia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSfoglia.Click
  2.         'Creo una OpenFileDialog e la apro per far scegliere all'utente il file da uppare
  3.         Dim ApriFile As New OpenFileDialog
  4.  
  5.         ApriFile.ShowDialog()
  6.  
  7.         'In caso abbia scelto un file prende tutte le informazioni su di esso e le mette
  8.         'su dei label
  9.         If ApriFile.FileName.Length > 0 Then
  10.             Dim LeggiInfoFile As New IO.FileInfo(ApriFile.FileName)
  11.  
  12.             LabelDataCreazione.Text = LeggiInfoFile.CreationTime
  13.             LabelDataUltimaModifica.Text = LeggiInfoFile.LastWriteTime
  14.             LabelEstensione.Text = LeggiInfoFile.Extension
  15.             LabelGrandezza.Text = LeggiInfoFile.Length & " Byte"
  16.             LabelNome.Text = LeggiInfoFile.Name
  17.  
  18.             TextBoxSfoglia.Text = ApriFile.FileName
  19.  
  20.             GroupBoxInformazioniFile.Enabled = True
  21.         End If
  22.     End Sub
  23.  
  24.     Private Sub ButtonUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpload.Click
  25.         'Se il file minore di 200 KB lo pu uppare, altrimenti restituisce un'errore
  26.         If (LabelGrandezza.Text.Substring(0, LabelGrandezza.Text.Length - 5) / 1024) < 2000 Then
  27.             Try
  28.                 'Verifico se il file scelto un'immagine
  29.                 Dim ImageTest As Image
  30.  
  31.                 Dim Mem As New IO.MemoryStream
  32.                 Dim Bytes() As Byte = IO.File.ReadAllBytes(TextBoxSfoglia.Text)
  33.  
  34.                 Mem.Write(Bytes, 0, Bytes.Length)
  35.  
  36.                 ImageTest = Image.FromStream(Mem)
  37.  
  38.                 Mem.Close()
  39.  
  40.                 Mem.Dispose()
  41.  
  42.                 ImageTest.Dispose()
  43.  
  44.                 'Se un'immagine la uppa
  45.                 My.Computer.Network.UploadFile(TextBoxSfoglia.Text, "http://nomesito.org/" & LabelNome.Text & LabelEstensione.Text, "Username", "Password")
  46.             Catch ex As Exception
  47.                 MsgBox(ErrorToString, MsgBoxStyle.Critical)
  48.                 Exit Sub
  49.             End Try
  50.         Else
  51.             MsgBox("Il file scelto troppo grande! La grandezza massima pu essere di 200 KB", MsgBoxStyle.Information)
  52.         End If
  53.     End Sub


PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 13:23
Domenica, 03/01/2010
Testo quotato

Postato originariamente da Adamettin:

Si, proprio ogni volta, non una cosa che a tentativi va...

Comunque il codice del progetto questo:

Codice sorgente - presumibilmente VB.NET

  1. Private Sub btnSfoglia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSfoglia.Click
  2.         'Creo una OpenFileDialog e la apro per far scegliere all'utente il file da uppare
  3.         Dim ApriFile As New OpenFileDialog
  4.  
  5.         ApriFile.ShowDialog()
  6.  
  7.         'In caso abbia scelto un file prende tutte le informazioni su di esso e le mette
  8.         'su dei label
  9.         If ApriFile.FileName.Length > 0 Then
  10.             Dim LeggiInfoFile As New IO.FileInfo(ApriFile.FileName)
  11.  
  12.             LabelDataCreazione.Text = LeggiInfoFile.CreationTime
  13.             LabelDataUltimaModifica.Text = LeggiInfoFile.LastWriteTime
  14.             LabelEstensione.Text = LeggiInfoFile.Extension
  15.             LabelGrandezza.Text = LeggiInfoFile.Length & " Byte"
  16.             LabelNome.Text = LeggiInfoFile.Name
  17.  
  18.             TextBoxSfoglia.Text = ApriFile.FileName
  19.  
  20.             GroupBoxInformazioniFile.Enabled = True
  21.         End If
  22.     End Sub
  23.  
  24.     Private Sub ButtonUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpload.Click
  25.         'Se il file minore di 200 KB lo pu uppare, altrimenti restituisce un'errore
  26.         If (LabelGrandezza.Text.Substring(0, LabelGrandezza.Text.Length - 5) / 1024) < 2000 Then
  27.             Try
  28.                 'Verifico se il file scelto un'immagine
  29.                 Dim ImageTest As Image
  30.  
  31.                 Dim Mem As New IO.MemoryStream
  32.                 Dim Bytes() As Byte = IO.File.ReadAllBytes(TextBoxSfoglia.Text)
  33.  
  34.                 Mem.Write(Bytes, 0, Bytes.Length)
  35.  
  36.                 ImageTest = Image.FromStream(Mem)
  37.  
  38.                 Mem.Close()
  39.  
  40.                 Mem.Dispose()
  41.  
  42.                 ImageTest.Dispose()
  43.  
  44.                 'Se un'immagine la uppa
  45.                 My.Computer.Network.UploadFile(TextBoxSfoglia.Text, "http://nomesito.org/" & LabelNome.Text & LabelEstensione.Text, "Username", "Password")
  46.             Catch ex As Exception
  47.                 MsgBox(ErrorToString, MsgBoxStyle.Critical)
  48.                 Exit Sub
  49.             End Try
  50.         Else
  51.             MsgBox("Il file scelto troppo grande! La grandezza massima pu essere di 200 KB", MsgBoxStyle.Information)
  52.         End If
  53.     End Sub




Il codice dovrebbe essere esatto. Potrebbero esserci  due ipotesi: la prima che sia un problema del server, il secondo che si verifica un problema riguardante il .NET Framework. Prova rilasciando l'applicazione in un pacchetto d'installazione che installi anche l'ultima versione del .NET Framework.

PM Quote
Avatar
Adamettin (Normal User)
Newbie


Messaggi: 7
Iscritto: 03/11/2009

Segnala al moderatore
Postato alle 14:10
Domenica, 03/01/2010
Testo quotato

Postato originariamente da D@vide:

Testo quotato

Postato originariamente da Adamettin:

Si, proprio ogni volta, non una cosa che a tentativi va...

Comunque il codice del progetto questo:

Codice sorgente - presumibilmente VB.NET

  1. Private Sub btnSfoglia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSfoglia.Click
  2.         'Creo una OpenFileDialog e la apro per far scegliere all'utente il file da uppare
  3.         Dim ApriFile As New OpenFileDialog
  4.  
  5.         ApriFile.ShowDialog()
  6.  
  7.         'In caso abbia scelto un file prende tutte le informazioni su di esso e le mette
  8.         'su dei label
  9.         If ApriFile.FileName.Length > 0 Then
  10.             Dim LeggiInfoFile As New IO.FileInfo(ApriFile.FileName)
  11.  
  12.             LabelDataCreazione.Text = LeggiInfoFile.CreationTime
  13.             LabelDataUltimaModifica.Text = LeggiInfoFile.LastWriteTime
  14.             LabelEstensione.Text = LeggiInfoFile.Extension
  15.             LabelGrandezza.Text = LeggiInfoFile.Length & " Byte"
  16.             LabelNome.Text = LeggiInfoFile.Name
  17.  
  18.             TextBoxSfoglia.Text = ApriFile.FileName
  19.  
  20.             GroupBoxInformazioniFile.Enabled = True
  21.         End If
  22.     End Sub
  23.  
  24.     Private Sub ButtonUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpload.Click
  25.         'Se il file minore di 200 KB lo pu uppare, altrimenti restituisce un'errore
  26.         If (LabelGrandezza.Text.Substring(0, LabelGrandezza.Text.Length - 5) / 1024) < 2000 Then
  27.             Try
  28.                 'Verifico se il file scelto un'immagine
  29.                 Dim ImageTest As Image
  30.  
  31.                 Dim Mem As New IO.MemoryStream
  32.                 Dim Bytes() As Byte = IO.File.ReadAllBytes(TextBoxSfoglia.Text)
  33.  
  34.                 Mem.Write(Bytes, 0, Bytes.Length)
  35.  
  36.                 ImageTest = Image.FromStream(Mem)
  37.  
  38.                 Mem.Close()
  39.  
  40.                 Mem.Dispose()
  41.  
  42.                 ImageTest.Dispose()
  43.  
  44.                 'Se un'immagine la uppa
  45.                 My.Computer.Network.UploadFile(TextBoxSfoglia.Text, "http://nomesito.org/" & LabelNome.Text & LabelEstensione.Text, "Username", "Password")
  46.             Catch ex As Exception
  47.                 MsgBox(ErrorToString, MsgBoxStyle.Critical)
  48.                 Exit Sub
  49.             End Try
  50.         Else
  51.             MsgBox("Il file scelto troppo grande! La grandezza massima pu essere di 200 KB", MsgBoxStyle.Information)
  52.         End If
  53.     End Sub




Il codice dovrebbe essere esatto. Potrebbero esserci  due ipotesi: la prima che sia un problema del server, il secondo che si verifica un problema riguardante il .NET Framework. Prova rilasciando l'applicazione in un pacchetto d'installazione che installi anche l'ultima versione del .NET Framework.


Un aiutino? Non ho idea di come incominciare

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 14:14
Domenica, 03/01/2010
Testo quotato

Un aiutino? Non ho idea di come incominciare


Intendi per creare un pacchetto d'installazione che installi il progetto? Se vai su propriet del progetto, se utilizzi Visual Studio, c' la creazione guidata.

Ultima modifica effettuata da il 03/01/2010 alle 19:12
PM Quote
Avatar
Adamettin (Normal User)
Newbie


Messaggi: 7
Iscritto: 03/11/2009

Segnala al moderatore
Postato alle 14:27
Domenica, 03/01/2010
Testo quotato

Postato originariamente da D@vide:

Testo quotato

Un aiutino? Non ho idea di come incominciare


Intendi per creare un pacchetto d'installazione che installi l'assemby? Se vai su propriet del progetto, se utilizzi Visual Studio, c' la creazione guidata.


Intendo per creare il pacchetto d'installazione con dentro incluso anche l'installazione per l'ultima versione del framework... comunque ho installato solo il singolo pacchetto Visual Basic 2008

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo