Clipper On Line • Ver Tópico - Download file of GDRIVE

Download file of GDRIVE

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Download file of GDRIVE

Mensagempor cnavarro » 15 Jan 2018 11:47

Download gdrive file without using the APIs

http://forums.fivetechsupport.com/viewt ... 73#p209084
cnavarro
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 52
Data de registro: 28 Set 2017 14:16
Cidade/Estado: Spain
Curtiu: 3 vezes
Mens.Curtidas: 14 vezes

Download file of GDRIVE

Mensagempor rubens » 17 Jan 2018 11:48

Olá...

Nesse trecho do código aqui que eu coloco o arquivo que quero baixar?
cUrl   := "https://docs.google.com/uc?export=download&id=YOUR_ID_OF_FILE"

No YOUR_ID_OF_FILE?

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Download file of GDRIVE

Mensagempor sygecom » 17 Jan 2018 12:22

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
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7006
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Download file of GDRIVE

Mensagempor cnavarro » 17 Jan 2018 13:56

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
cnavarro
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 52
Data de registro: 28 Set 2017 14:16
Cidade/Estado: Spain
Curtiu: 3 vezes
Mens.Curtidas: 14 vezes

Download file of GDRIVE

Mensagempor Kapiaba » 17 Jan 2018 14:11

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

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Download file of GDRIVE

Mensagempor rubens » 17 Jan 2018 15:36

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:
//----------------------------------------------------------------------------//
//
// 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
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Download file of GDRIVE

Mensagempor rubens » 17 Jan 2018 17:52

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
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Download file of GDRIVE

Mensagempor fladimir » 17 Jan 2018 18:22

Pessoal o Google drive vai continuar ativo até quando alguém sabe?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Download file of GDRIVE

Mensagempor JoséQuintas » 17 Jan 2018 20:07

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/
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Download file of GDRIVE

Mensagempor fladimir » 17 Jan 2018 22:06

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
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Download file of GDRIVE

Mensagempor JoséQuintas » 18 Jan 2018 00:18

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/google-anuncia-o-fim-do-app-do-drive-para-computador/70941
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Download file of GDRIVE

Mensagempor cnavarro » 18 Jan 2018 12:12

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
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 52
Data de registro: 28 Set 2017 14:16
Cidade/Estado: Spain
Curtiu: 3 vezes
Mens.Curtidas: 14 vezes

Download file of GDRIVE

Mensagempor cnavarro » 24 Jan 2018 20:11

New version:

Upload all type files: FIXED

​​​​​​​http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903&start=15#p209350
cnavarro
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 52
Data de registro: 28 Set 2017 14:16
Cidade/Estado: Spain
Curtiu: 3 vezes
Mens.Curtidas: 14 vezes

Download file of GDRIVE

Mensagempor rochinha » 29 Jan 2018 14:28

Amiguinhos,

O serviço Google Drive não vai parar, o que vai parar é o aplicativo desktop. Me corrége aeeeeeh!
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Download file of GDRIVE

Mensagempor cnavarro » 12 Fev 2018 10:16

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

http://forums.fivetechsupport.com/viewt ... 15#p209775
cnavarro
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 52
Data de registro: 28 Set 2017 14:16
Cidade/Estado: Spain
Curtiu: 3 vezes
Mens.Curtidas: 14 vezes

Próximo



Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro