Discussão sobre a biblioteca Fivewin - O Clipper para Windows.
17 Jan 2018 11:48
Olá...
Nesse trecho do código aqui que eu coloco o arquivo que quero baixar?
- Código:
cUrl := "https://docs.google.com/uc?export=download&id=YOUR_ID_OF_FILE"
No
YOUR_ID_OF_FILE? Obrigado
Rubens
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
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
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.
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:
- Código:
//----------------------------------------------------------------------------//
//
// 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
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
17 Jan 2018 18:22
Pessoal o Google drive vai continuar ativo até quando alguém sabe?
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/
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
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
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#p209198English
http://forums.fivetechsupport.com/viewt ... 15#p209197
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
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!
12 Fev 2018 10:16
------------------------------- NUEVA VERSION 11/02/2018 --------------------
http://forums.fivetechsupport.com/viewt ... 15#p209775
Powered by phpBB © phpBB Group.
phpBB Mobile / SEO by Artodia.