Download Via FTP

Moderador: Avelino Sampaio

marcelo3092
Mensagens: 91
Registrado em: 23 Jun 2016, 14:21

Download Via FTP

Mensagempor marcelo3092 » 23 Dez 2018, 16:13

Boa tarde pessoal estou tentando fazer um download via ftp. Vou explicar melhor tenho um código para manipulação de imagem em servidor online o que acontece ao adicionar a imagem o código envia via ftp para o servidor na pasta raiz do site, porem o código não consegue download pq a imagem tem que estar na pasta httpdocs para acessar via link.

Código:
Private Sub Load_Imagem()
10 On Error GoTo Load_Imagem_Erro
20 If Not IsNull(Me.anexo_name) Then
30 If Me.anexo_name = "" Then
40 DoCmd.CancelEvent
50 Exit Sub
60 End If
70 WebBrowser.Navigate Url:="http://www.akonzappos.com.br/" & Me.anexo_name
Dim Auxiliar As Long
Dim Url As String, CaminhoLocal As String
80 Url = "http://www.akonzappos.com.br/" & Me.anexo_name
90 CaminhoLocal = "C:\S.I.FABRICA\img\" & Me.anexo_name
100 Auxiliar = URLDownloadToFile(0, Url, CaminhoLocal, 0, 0)
110 If Dir(Nz(CaminhoLocal, " "), vbArchive) <> "" Then
120 Me.mImagem.Picture = CaminhoLocal
130 End If
140 End If
150 On Error GoTo 0
160 Exit Sub
Load_Imagem_Erro:
170 DoCmd.Hourglass False
180 MsgBox "Ocorreu um erro na aplicação." & vbCr & "Relate os dados abaixo ao suporte." & vbCr & _
"Erro Nº: " & Err.Number & vbCr & _
"Descrição do erro: " & Err.Description & vbCr & _
"Módulo: " & "Form_produtos" & vbCr & _
"Procedimento: " & "Load_Imagem" & vbCr & _
"Linha: " & Erl, vbExclamation, NomeAplicativo
End Sub


e o código que envia a imagem é esse

Código:
Public Function Upload_FTP(ByVal File As String)
Dim oFile As String
Dim dFile As String
40 oFile = File
50 dFile = Dir(File, vbArchive)
Dim hConnection As Long, hOpen As Long, sOrgPath As String
Dim serverftp As String
Dim userFTP As String
Dim pwFTP As String
Dim ftpFolder
60 serverftp = DLookup("[Valor]", "parametros_FTP", "[ID]=1")
70 userFTP = DLookup("[Valor]", "parametros_FTP", "[ID]=2")
80 pwFTP = DLookup("[Valor]", "parametros_FTP", "[ID]=3")
ftpFolder = DLookup("[Valor]", "parametros_FTP", "[ID]=4")
90 If WMIPing(serverftp) = False Then
100 MsgBox "O servidor ftp " & serverftp & " não está respondendo." & vbCr & "O envio não será realizado.", vbInformation, NomeAplicativo
110 DoCmd.CancelEvent
120 Exit Function
130 End If
'Abre a conexão com a internet
140 hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
'Abre a conexão com o servidor FTP
150 hConnection = InternetConnect(hOpen, serverftp, INTERNET_DEFAULT_FTP_PORT, userFTP, pwFTP, INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
'Inicializar o Buffer
160 sOrgPath = String(MAX_PATH, 0)
'Caminha para o diretorio padrão
170 FtpGetCurrentDirectory hConnection, sOrgPath, Len(sOrgPath)
'envia o arquivo: arqenv= arquivo de origem e arqbroo arquivo de destino
180 FtpPutFile hConnection, oFile, dFile, FTP_TRANSFER_TYPE_UNKNOWN, 0
'Fecha a conexão
190 InternetCloseHandle hConnection
200 InternetCloseHandle hOpen
End Function


Envia normal a imagem porem não consigo adaptar o código para enviar a imagem para a pasta httpdocs
ai que vem se alguem tiver conhecimento no código de envio e souber como eu faço para colocar a pasta e ele enviar pra dentro dela.
ou o código para baixar via ftp pois a variavel global ja tem os dados para conexão ai através do ftp eu consigo tb baixar a imagem.
e assim que tiver concluído vou postar como exemplo para quem quiser trabalhar com imagem no servidor online.
Lembrando que este exemplo e do Jeferson da Kartoffel que ficou show porem acho que o servidor que ele configuro nas tabelas não esta mais online.
Desde ja agradeço a atenção e ajuda.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


marcelo3092
Mensagens: 91
Registrado em: 23 Jun 2016, 14:21

Re: Download Via FTP

Mensagempor marcelo3092 » 24 Dez 2018, 17:29

Olá pessoal como prometido consegui resolver meu problema sozinho digo que não foi facil porem se alguem tiver e quiser vou colocar no repositorio

viewtopic.php?f=23&t=2654

Ta ai

agora vou abrir outo tópico para enviar mais de uma foto de uma vez.

Avatar do usuário
Damasceno Jr.
Mensagens: 474
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Download Via FTP

Mensagempor Damasceno Jr. » 24 Dez 2018, 19:23

Obrigado por contar a experiência
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante