tuliod Postado Abril 17, 2005 Denunciar Share Postado Abril 17, 2005 Utililizo esse codigo para fazer downloads da Internet pro Pc via VB:Public Function Download(ArqURL As String, Arqtemp As String) As Boolean Dim arquivo() As Byte Open Arqtemp For Binary Access Write As #1 arquivo() = Inet1.OpenURL(ArqURL, icByteArray) Put #1, , arquivo() Close #1MsgBox "O arquivo " & Text2.Text & " foi recebido com sucesso ! ", vbInformationDownload = True Exit FunctionTrata_erro:MsgBox "Ocorreu um erro durante a transferência ! ", vbCriticalDownload = FalseEnd FunctionPrivate Sub Command1_Click()lretorno = Download(Text1.Text, Text2.Text)End SubMas... qro fazer download de um banco de dados do meu site q tem senha e usuario... como faço para conseguir fazer o download do banco de dados?? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Abril 17, 2005 Denunciar Share Postado Abril 17, 2005 Já experimentou as propriedades UserName e Password do próprio componente?Abraços,Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 tuliod Postado Abril 17, 2005 Autor Denunciar Share Postado Abril 17, 2005 Sim... mas como se usa essas propriedades nesse codigo??Brigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Graymalkin Postado Abril 17, 2005 Denunciar Share Postado Abril 17, 2005 Sim... mas como se usa essas propriedades nesse codigo?? Propriedades são como variáveis, nas quais você atribui ou resgata um valor, por isso não consigo imaginar outra maneira senão:Inet1.Username = "nome de usuário" Inet1.Password = "senha"Certo? Graymalkin Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 tuliod Postado Abril 17, 2005 Autor Denunciar Share Postado Abril 17, 2005 V A L E WDEU CERTISSIMO Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
tuliod
Utililizo esse codigo para fazer downloads da Internet pro Pc via VB:
Public Function Download(ArqURL As String, Arqtemp As String) As Boolean
Dim arquivo() As Byte
Open Arqtemp For Binary Access Write As #1
arquivo() = Inet1.OpenURL(ArqURL, icByteArray)
Put #1, , arquivo()
Close #1
MsgBox "O arquivo " & Text2.Text & " foi recebido com sucesso ! ", vbInformation
Download = True
Exit Function
Trata_erro:
MsgBox "Ocorreu um erro durante a transferência ! ", vbCritical
Download = False
End Function
Private Sub Command1_Click()
lretorno = Download(Text1.Text, Text2.Text)
End Sub
Mas... qro fazer download de um banco de dados do meu site q tem senha e usuario... como faço para conseguir fazer o download do banco de dados??
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.