Newsgroup: it.comp.lang.visual-basic
Titolo: Winsock e SendData

Ciao a tutti,
come per il download esiste passo come parametro la stringa "GET", ad es.
GET GetFileFromURL(m_strURL) HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,
application/vnd.ms-powerpoint, application/vnd.ms-excel,
application/msword, application/x-shockwave-flash, */*
Referer: indirizzoIP
User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)
Host: indirizzoIP
Qual č la stringa da passare per fare l'upload di un file, per favore?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Qual č la stringa da passare per fare l'upload di un file, per favore?
Upload in che senso? Via FTP?
bye
-- 
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.sinapsi-antispam.tk
http://www.nicolaottomano.it/sinapsi.htm
Ingrosso Orologi.
http://www.supertop.it
email spamtrap: 
spam...@nicolaottomano.it

 bye
ciao Nicola,
innanzitutto grazie per l'interesse...
il download e l'upload viene fatto tramite il protocollo http.
cercando sui vari forum ho visto che il metodo SendData accetta come
parametro il comando "FILE", però non riesco ad utilizzarlo correttamente,
non so se è giusto...
codice download:
' connect
...
...
cmSocket.SendData "GET nomefile HTTP/1.0 ......"
codice upload con comando "FILE":
' connect
...
...
cmSocket.SendData "FILE" & sSaveAs
DoEvents
'  Send  the  file
cmSocket.SendData sFileBuffer
DoEvents
'  Finished
cmSocket.SendData "FILEEND"
hai qualche idea su come fare?


> hai qualche idea su come fare?
purtroppo no. se fosse stato FTP ti avrei potuto aiutare.
Hai provato a vedere su google gruppi?


 Hai provato a vedere su google gruppi?
Ora che ci penso... hai provato a vedere se si può fare con Inet invece di
winsock?



Nicola, visto che mi sembra di aver capito che hai già usato Inet, daresti
uno sguardo al post che ho fatto il 25/02?!
Stò provando a crearmi un LiveUpdate per le mie applicazioni ma ho
incontrato alcuni problemi che ho descritto nell'altro post.
Ciao, Vincenzo

 incontrato alcuni problemi che ho descritto nell'altro post.
Scusa Vincenzo, ma Outlook ogni tanto si "mangia" i messaggi più vecchi.
Potresti fare un reply (anche vuoto) al post originale (così mi riappare).
Poi ti posso rispondere.


 bye
Ciao Nicola,
ho provato con winhttp ma essendo dietro un proxy e firewall ho diversi
problemi nell'utilizzo e diventa troppo complicato.
con inet non ho ancora guardato, provo a vedere...
molte grazie!
ciao e buon week-end!


 bye
Grazie per l'attenzione, te lo risposto interamente. Se hai bisogno di altre
informazioni, puoi contattarmi anche privatamente.
Stò implementando una specie di LiveUpdate nei miei programmi per aggiornare
il software e stò usando il controllo MSINET per trasferire gli
aggiornamenti ma puntualmente si verifica il messaggio di errore 35764:
L'ultima richiesta è ancora in esecuzione. Sono due giorni che cerco su
Google e provo i vari esempi ma non trovo una soluzione!!!
Ho provato anche ad aggiungere degli Sleep ma non ho avuto successo.
PS.: se eseguo il programma in modalità debug non ho problemi
    For intFileDaTrasf = 0 To 4
        If lstProdotti.Selected(intFileDaTrasf) = True Then
            vbalPBfile.Max = lngDimFile(intFileDaTrasf)
            'copia del file
            Inet1.Execute , "GET " & strNomeFile(intFileDaTrasf) & " " &
strPathQDEagg & "\" & strNomeFile(intFileDaTrasf)
            Do While Inet1.StillExecuting = True
                DoEvents
                'controllo della creazione del file
                If Dir(strPathQDEagg & "\" & strNomeFile(intFileDaTrasf)) <>
"" Then
                    'controllo grandezza del file
                    If FileLen(strPathQDEagg & "\" &
strNomeFile(intFileDaTrasf)) = lngDimFile(intFileDaTrasf) Then
                        Exit Do
                    End If
                    vbalPBfile.Value = FileLen(strPathQDEagg & "\" &
strNomeFile(intFileDaTrasf))
                    vbalPBtotale.Value = FileLen(strPathQDEagg & "\" &
strNomeFile(intFileDaTrasf))
                End If
            Loop
        End If
    Next intFileDaTrasf
Ciao, Vincenzo

Io per scaricare dei files faccio così:
Dim strURL As String
Dim bData() As Byte      ' Variabile di dati
Dim intFile As Integer   ' Variabile FreeFile
strURL = _
"
www.miosito.it/percorso/miofile.exe
"
intFile = FreeFile()      ' Imposta intFile su un file
                        ' non utilizzato.
' Il risultato del metodo OpenURL viene incluso nella
' matrice Byte, che viene quindi salvata su disco.
bData() = Inet1.OpenURL(strURL, icByteArray)
Open App.Path & "\miofile.exe" For Binary Access Write _
As #intFile
Put #intFile, , bData()
Close #intFile
Poi puoi mettere il codice in sequenza (magari in un for... fai tu) e ti
scarichi tutti i files di cui hai bisogno.
Ti consiglio inoltre di adottare l'approccio "o tutto o niente". Se lo
scaricamento di anche uno dei files non va a buon fine bisogna ripristinare
lo stato iniziale. In Sinapsi Antispam scarico solo un file exe di
aggiornamento (creato con InnoSetup) e poi è lui ad aggiornare tutti i files
necessari.
