mandar arquvio pdf para site

[syspel]

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  

[rochinha]

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.

[kapiaba]

Explique melhor o intuito disso, pls.

Regards, saludos.

[rochinha]

Amiguinhos,

Citar

Explique melhor o intuito disso, pls.

Who? Me?

Edited February 13 by rochinha
esqueci de completar

[rochinha]

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.

[edutraini]

Bom dia 

uma outra opcao que uso e instalar um VM Virtual box com um servidor de ftp 

[emotta]

maneira mais pratica e moderna é usar o S3 da AWS ou equivalente do Azure ou Google Cloud.

O video abaixo ensina a fazer isso: