syspel Posted February 12 Report Share Posted February 12 preciso de madar,subir para meu site arquivo pdf pelo modulo programaveis alguem tem algums exemplos que funciona testei varios mais nao funciona obrigado fhw2111 xharb 123 dbf Quote Link to comment Share on other sites More sharing options...
rochinha Posted February 12 Report Share Posted February 12 Amiguinhos, Se se tiver em uma maquina tente configurar o FTP remoto através Windows Explorer. Tomer cuidado com as senhas e nomes de usuarios que tenham caracteres como @ que podem não ser interpretados e a configuração falhar. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 13 Report Share Posted February 13 Explique melhor o intuito disso, pls. Regards, saludos. rochinha 1 Quote Link to comment Share on other sites More sharing options...
rochinha Posted February 13 Report Share Posted February 13 (edited) Amiguinhos, Citar Explique melhor o intuito disso, pls. Who? Me? Edited February 13 by rochinha esqueci de completar Quote Link to comment Share on other sites More sharing options...
rochinha Posted February 13 Report Share Posted February 13 Amiguinhos, function PutBackupOnFTPEXE( _file_ ) // cPathINI := "C:\SISTEMA" cSHLocalFolder := cPathINI + "\PDFs" cSHFTPServerName := VerifyINI( "BACKUPFTP", "SERVER" , "198.27.115.147" , cPathINI+"nfw.ini", .f. ) // ftp.provedor.com.br cSHFTPServerPort := VerifyINI( "BACKUPFTP", "PORTA" , "" , cPathINI+"nfw.ini", .f. ) // ftp.provedor.com.br cSHFTPLoginID := VerifyINI( "BACKUPFTP", "USUARIO", "desenvolvedor@5volution.com.br", cPathINI+"nfw.ini", .f. ) // usuario@provedor.com.br cSHFTPPassword := VerifyINI( "BACKUPFTP", "SENHA" , codifica("S3nh@S3gur@") , cPathINI+"nfw.ini", .t. ) cSHServerFolder := VerifyINI( "BACKUPFTP", "CAMINHO", "backups" , cPathINI+"nfw.ini", .f. ) errhandle := FCreate( "backup.ftp" ) cSTRFile := "open " + cSHFTPServerName + iif(!empty(cSHFTPServerPort), cSHFTPServerPort, "" ) + CRLF cSTRFile := cSTRFile + cSHFTPLoginID + CRLF cSTRFile := cSTRFile + cSHFTPPassword + CRLF cSTRFile := cSTRFile + "cd " + cSHServerFolder + CRLF cSTRFile := cSTRFile + "hash" + CRLF cSTRFile := cSTRFile + "lcd " + cSHLocalFolder + CRLF cSTRFile := cSTRFile + "binary" + CRLF cSTRFile := cSTRFile + "put " + _file_ + CRLF cSTRFile := cSTRFile + "disconnect" + CRLF cSTRFile := cSTRFile + "bye" + CRLF cSTRFile := cSTRFile + "quit" + CRLF FWrite( errhandle, cSTRFile ) FClose( errhandle ) // MsgRun( "Aguarde o backup seguro na internet sendo realizado...", "Cloud-Backup", { || WinEXEC( "ftp -s:backup.ftp", 2 ) } ) return nil Use esta função que faz ponte para o FTP.EXE existente em qualquer versão do Windows e libere no seu provedor acesso externo para o seu IP se por segurança eles travaram e bom trabalho. Quote Link to comment Share on other sites More sharing options...
edutraini Posted February 14 Report Share Posted February 14 Bom dia uma outra opcao que uso e instalar um VM Virtual box com um servidor de ftp Quote Link to comment Share on other sites More sharing options...
emotta Posted February 14 Report Share Posted February 14 maneira mais pratica e moderna é usar o S3 da AWS ou equivalente do Azure ou Google Cloud. O video abaixo ensina a fazer isso: Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.