Ayuda con Inet Control
Hola a todos
les cuento que me encuentro desarrollando una aplicacion la cual tiene que descargar archivos de un servidor, para lo cual utilizo el Inet control
el problema es que cuando hago la descarga el archivo baja con un tamano
distinto al original y no puedo encontrar la solucion, el metodo openurl del control no lo puedo usar ya que de esa forma tengo que esperar a que el control baje el archivo para seguir utilizando mi aplicacion
si alguno sabe cual es el problema o alguna recomendacion para hacer la
descarga
el codigo que utilizo es el siguiente
Private Sub Command1_Click()
Inet1.URL = "http://www.misercvidor.com.ar"
Inet1.Execute "http://www.miservidor.com.ar/Archivo.exe", "GET"
end sub
Y tambien probe asi
Private Sub Command1_Click()
Inet1.URL = "http://www.misercvidor.com.ar"
Inet1.Execute , "GET http://www.misercvidor.com.ar" & " " & app.path &
"Archivo.exe"
end sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim intFreeFile As Integer
Dim vtData As Variant ' Data variable.
select case State
Case icResponseCompleted
intFreeFile = FreeFile
Open App.Path + "Archivo.exe" For Binary Access Write As
intFreeFile
'Get first chunk.
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents
' Get next chunk/s.
Do While LenB(vtData) > 0
Put intFreeFile, , vtData
vtData = Inet1.GetChunk(1024, icByteArray)
Loop
Put intFreeFile, , vtData
Close intFreeFile
End Select
end sub
A y si alguno sabe como leer el tamaño del archivo con el comando zise, porque no lo puedo lograr
les cuento que me encuentro desarrollando una aplicacion la cual tiene que descargar archivos de un servidor, para lo cual utilizo el Inet control
el problema es que cuando hago la descarga el archivo baja con un tamano
distinto al original y no puedo encontrar la solucion, el metodo openurl del control no lo puedo usar ya que de esa forma tengo que esperar a que el control baje el archivo para seguir utilizando mi aplicacion
si alguno sabe cual es el problema o alguna recomendacion para hacer la
descarga
el codigo que utilizo es el siguiente
Private Sub Command1_Click()
Inet1.URL = "http://www.misercvidor.com.ar"
Inet1.Execute "http://www.miservidor.com.ar/Archivo.exe", "GET"
end sub
Y tambien probe asi
Private Sub Command1_Click()
Inet1.URL = "http://www.misercvidor.com.ar"
Inet1.Execute , "GET http://www.misercvidor.com.ar" & " " & app.path &
"Archivo.exe"
end sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim intFreeFile As Integer
Dim vtData As Variant ' Data variable.
select case State
Case icResponseCompleted
intFreeFile = FreeFile
Open App.Path + "Archivo.exe" For Binary Access Write As
intFreeFile
'Get first chunk.
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents
' Get next chunk/s.
Do While LenB(vtData) > 0
Put intFreeFile, , vtData
vtData = Inet1.GetChunk(1024, icByteArray)
Loop
Put intFreeFile, , vtData
Close intFreeFile
End Select
end sub
A y si alguno sabe como leer el tamaño del archivo con el comando zise, porque no lo puedo lograr