Download file of GDRIVE

[cnavarro]

Download gdrive file without using the APIs

http://forums.fivetechsupport.com/viewt ... 73#p209084

[rubens]

Olá...

Nesse trecho do código aqui que eu coloco o arquivo que quero baixar?

Código: Selecionar todos

cUrl   := "https://docs.google.com/uc?export=download&id=YOUR_ID_OF_FILE"

No YOUR_ID_OF_FILE?

Obrigado
Rubens

[sygecom]

Isso, coloca o ID doarquivo gerado pelo Google Drive, e talvez o arquivo tem que está publico e não privado, não testei ainda, eu queria algo assim para UPLOAD

[cnavarro]

Rubens

Your YOUR_ID_OF_FILE is obtained by sharing the file in GDRIVE
GDrive provides you with the ID of the file in the link address

[Kapiaba]

Maestro Cristobal, hable(escriba) en español también pués asi és más fácil la lectura. many thanks, muchas gracias.

[rubens]

Então pessoal...

Consegui compilar em harbour...
Mas acho que tem alguma coisa errada com o endereço que estou colocando...
Vou no GoogleDrive, clico em cima do arquivo e mando compartilhar (sharing) daí ele mostra o link. Copio o link e colo no sistema.
Só que baixa a página em HTML e não o arquivo especificado.

O código ficou assim:

Código: Selecionar todos

//----------------------------------------------------------------------------//
//
// Function para descargar ficheros desde GDrive
// El truquillo está en la dirección de la descarga, el resto es trivial
//
// The ID of the file you get in the address offered by GMail when sharing the file.
// Just change the access address and add that ID
//
// https://docs.google.com/uc?export=download&id=
//----------------------------------------------------------------------------//

// #include "Fivewin.ch"
#include "hbgtinfo.ch"
#include "hbcompat.ch"
#include "hbwin.ch"
#include "xhb.ch"

#require "hbmisc"

Function Main()

   local cUrl
               
   // 
   cUrl   := "https://drive.google.com/file/d/15PqoT5QTYRcDGpq8GE80Ddfkss0-MIOi/view?usp=sharing"
   Cn_DownLoad( cUrl, .F., "c:\hmg0409\ftp\Personal.dbf" )
   //

Return nil

//----------------------------------------------------------------------------//

Function Cn_DownLoad( cUrl, lText, cFileTarget )

   local oHttp
   local cContents := ""
   HB_DEFAULT(@cUrl	,"" )
   HB_DEFAULT(@lText ,.F.)
   HB_DEFAULT(@cFileTarget, "")
   
   altd()

   if !Empty( cUrl )
   
   	CallDll32( "wininet.dll", "DeleteUrlCacheEntryA", cUrl )
   	
      TRY
         // oHttp     := FWGetOleObject( "MSXML2.ServerXMLHTTP.3.0" )
         oHttp     := CreateObject( "MSXML2.ServerXMLHTTP.3.0" )
         oHttp:Open( "GET", cUrl, .F. )
         oHttp:Send()
         oHttp:WaitForResponse()
         HB_DEFAULT(@lText, .F.)
         if lText
            cContents  := oHttp:ResponseText()
         else
            cContents  := oHttp:ResponseBody()
         endif
      CATCH
      
      END
      
      if Len( cContents ) > 0 .and. !Empty( cFileTarget )
         MemoWrit( cFileTarget, cContents )
      else
         Alert( "Erro no Download", "Atenção" )
      endif
   else
      Alert( "URL Informada em branco", "Erro no Download" )
   endif
Return nil

O eue estou fazendo de errado no link do arquivo ?

Obrigado
Rubens

[rubens]

Opa...

Consegui...
Quando compartilho o arquivo ele abre uma tela para baixar o arquivo... tem que clicar no nome do arquivo para baixar e copiar o link... Tem que ser meio Ninja para fazer isso, mas dá certinho...
Tô baixando o arquivo normalzinho...
Agora tocar o projeto para frente...

Obrigado a todos... principalmente ao Senhor Cristobal...
Rubens

[fladimir]

Pessoal o Google drive vai continuar ativo até quando alguém sabe?

[JoséQuintas]

Pessoal o Google drive vai continuar ativo até quando alguém sabe?

Acho que pra sempre.

Gostei do menu do exemplo, e também de ver o fonte parcial do fivepro e do fivenet.
Apenas fui seguindo os links, e cheguei aqui: https://bitbucket.org/fivetech/

[fladimir]

Q bom, tinha ouvido um boato ano passado q o Google iria descontinuar, mas ainda bem q era fake, uso muito o GDrive.

Agora com essa contribuição ajuda tb.

Vlw

[JoséQuintas]

Errei.
Tá programado pra parar no final do ano, começando a avisar em março.
Vai parar a parte pra uso no computador.

https://olhardigital.com.br/noticia/goo ... ador/70941

[cnavarro]

Nueva version de la libreria para usar las APIS de Google
Permite subir ficheros a GDrive y, si lo deseas, obtener el link de fichero compartido, para ser descargado sin utilizar las APIs

New version lib for use APIS Google
Allow upload files to GDrive and, obtain link for share and download file within API

Spanish

http://forums.fivetechsupport.com/viewt ... 15#p209198

English

http://forums.fivetechsupport.com/viewt ... 15#p209197

[cnavarro]

New version:

Upload all type files: FIXED

​​​​​​​http://forums.fivetechsupport.com/viewt ... 15#p209350

[rochinha]

Amiguinhos,

O serviço Google Drive não vai parar, o que vai parar é o aplicativo desktop. Me corrége aeeeeeh!

[cnavarro]

------------------------------- NUEVA VERSION 11/02/2018 --------------------

http://forums.fivetechsupport.com/viewt ... 15#p209775