ARQUIVO CORROMPIDO DOWNLOAD COM MSINET.OCX INET

LANCECOM 22/08/2012 20:03:55
#408384
Todo arquivo que baixo pela segunda vez com o INET da a mensagem [Ô]Arquivo corrupted[Ô]
Alguem ja passou por isso?
Att
PROFESSOR 23/08/2012 02:37:33
#408397 Resposta escolhida
Se estiver usando o método direto (Open File For Binary Acess etc) após o download de cada arquivo ser concluído, você está [Ô]fechando[Ô] o ponteiro do arquivo ( por exemplo, Close #fileNum ) ?
Se estiver usando o FileSystemObjects, está chamando o método Close após o término da gravação ?

Se este não é o problema, há duas outras possibilidades:
1. - A rotina de gravação não salvou até o último byte da transferência.
2. - Houve pêrda de conectividade e algum [Ô]pacote[Ô] de fato veio corrompido.

Só para comparativo, a rotina [Ô]básica[Ô] de download é mais ou menos a seguinte:

Public Sub Baixar(ByRef url As String, ByRef nomeDoArquivo As String)
    On Error GoTo hell:
    Dim matriz() As Byte
    Dim ponteiro As Integer
    DoEvents
    matriz() = Inet1.OpenURL(url, icByteArray)
    ponteiro = FreeFile
    Open nomeDoArquivo For Binary Access Write As #ponteiro
    Put #ponteiro, , matriz()
    Close #ponteiro
    GoTo sai:
hell:
    MsgBox Err.Description
    Err.Clear
sai:
End Sub


Desse modo, se a sua rotina segue basicamente esse processo, a pêrda de estabilidade da conexão parece a causa mais provável.

Valew!
Tópico encerrado , respostas não são mais permitidas
Voltar