🚀 go-pugleaf

RISOLTO IL PROBLEMA:
facendo alcuni tentativi ho provato ad usare la funzione:

Private Declare Function FTPPutFile Lib "wininet.dll" Alias "FtpPutFileA"
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal
lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As
Boolean

Questa invia ( in modo sincrono ) correttamente i dati ( anche con il
windows firewall attivo ).

Io dovevo per� usare la funzione:

Private Declare Function InternetWriteFile Lib "wininet.dll" (ByVal hFile As
Long, ByRef sBuffer As Byte, ByVal lNumBytesToWrite As Long,
dwNumberOfBytesWritten As Long) As Integer

in quanto mi serve inviare dei pacchetti di 255 byte alla volta, per poter
visualizzare un barra di progressione durante il download o l'upload. E qu�
ho scoperto il problema ( forse un BUG ). Utilizzando un buffer di 255
elementi o pi�, come detto precedentemente la funzione si blocca ( solo con
windows firewall attivo ). Diversamente utilizzando un buffer da 254
elementi in gi�, tutto funziona correttamente.


"PBI" <pbi@pbinformatica.com> ha scritto nel messaggio
news:43b7ae7d$0$332$5fc30a8@news.tiscali.it...
> Salve a tutti e Buon Anno !
>
> Ho un problema urgente !
> Ho realizzato un modulo in VB6 che permette di fare dei trasferimenti via
> FTP usando
> la WININET.DLL. In Windows XP SP2 funziona regolarmente solo se disabilito
> il FIREWALL ( di windows ).
> Attivando il FIREWALL, pur dicendo di "sbloccare" l'applicazione,
mettendola
> cio�
> nelle eccezioni, il programma non comunica. In particolare la funzione
della
> libreria che si blocca � la seguente:
>
> InternetWriteFile(hFile, Data(0), BUFFERSIZE, loWritten)
>
> C'� qualcuno che ha dei suggerimenti o ha gi� risolto il problema.
>
> Grazie.
>
>