Eroni Posted December 5, 2017 Report Share Posted December 5, 2017 Sem querer desanimar mas googledrive vai morrer ano que vem... Veja se vale a pena fazer algo que já tem data marcada pra acabar. https://olhardigital.com.br/noticia/google-anuncia-o-fim-do-app-do-drive-para-computador/70941 Na verdade o que eu quero é usar o exemplo de autenticação para desenvolver a NFSe de Floripa. Quote Link to comment Share on other sites More sharing options...
rochinha Posted December 7, 2017 Report Share Posted December 7, 2017 Maestro, espere cinco minutos para responder a un post. Esto es una seguridad del foro contra hackers. cnavarro This is my same question. Kapiaba, tem de melhorar isto. Existem outros meios de burlar ataques e criticar usuarios. Basta fazer uma checagem do usuário, como tempo de estadia, posts, etc e liberar este tempo. Esperar cinco minutos para dar uma resposta, na internet, é inconcebível, afinal não temos(pelo menos eu) tempo pra ficar esperando para postar. Fiquei sem dar respostas e ajudar amigos por causa deste limite. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
rochinha Posted December 7, 2017 Report Share Posted December 7, 2017 Na verdade o que eu quero é usar o exemplo de autenticação para desenvolver a NFSe de Floripa. Eroni, quase morri do coração. Meus filmes XXX estão todos no Google Drive. Fui ler a matéria e o que diz é: o app para PC e MAC serão descontinuados e terão de ser trocados pelo novo. O Google Drive continuará existindo. Ufahhhhhhhhhhhh! Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 7, 2017 Report Share Posted December 7, 2017 cnavarro This is my same question. Kapiaba, tem de melhorar isto. Existem outros meios de burlar ataques e criticar usuarios. Basta fazer uma checagem do usuário, como tempo de estadia, posts, etc e liberar este tempo. Esperar cinco minutos para dar uma resposta, na internet, é inconcebível, afinal não temos(pelo menos eu) tempo pra ficar esperando para postar. Fiquei sem dar respostas e ajudar amigos por causa deste limite. Rochinha, nada posso fazer. O forum é do Gilmer Tavares e o programador dele é Português! kkkkkkkkkkkkkkkkkkkkkk rochinha 1 Quote Link to comment Share on other sites More sharing options...
rochinha Posted December 7, 2017 Report Share Posted December 7, 2017 KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Jorge Andrade Posted December 7, 2017 Report Share Posted December 7, 2017 KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Puts, temos que banir vcs 2 do fórum, são muito maldosos ahauahuahuahuahau, não perde uma deixa. Agora até o programador és gajo patrício, ora pois. ahauahuahaua rochinha and kapiaba 2 Quote Link to comment Share on other sites More sharing options...
emotta Posted December 12, 2017 Report Share Posted December 12, 2017 Eroni, quase morri do coração. Meus filmes XXX estão todos no Google Drive. Fui ler a matéria e o que diz é: o app para PC e MAC serão descontinuados e terão de ser trocados pelo novo. O Google Drive continuará existindo. Ufahhhhhhhhhhhh! que bom, eu tinha entendido que ele iria ser descontinuado por completo... sendo assim maravilha... rochinha 1 Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted January 18, 2018 Author Report Share Posted January 18, 2018 Quote Link to comment Share on other sites More sharing options...
cnavarro Posted January 18, 2018 Report Share Posted January 18, 2018 3 hours ago, Jmsilva said: New version 18/01/2018 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/viewtopic.php?f=6&t=34903&start=15#p209198 English http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34904&start=15#p209197 Quote Link to comment Share on other sites More sharing options...
cnavarro Posted January 18, 2018 Report Share Posted January 18, 2018 Disculpa, he querido borrar un mensaje mio que estaba editando, y por error creo que he borrado el suyo. No entiendo como permite borrar mensajes de los que no soy el propietario. Por favor, dame una cuenta de correo Administrador: por favor, explíqueme por qué Gracias Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted January 18, 2018 Author Report Share Posted January 18, 2018 Disculpa, he querido borrar un mensaje mio que estaba editando, y por error creo que he borrado el suyo. No entiendo como permite borrar mensajes de los que no soy el propietario. Por favor, dame una cuenta de correo Administrador: por favor, explíqueme por qué Gracias Ok, sem problemas ! Cuenta de correio: saa50@bol.com.br Quanto aos erros apresentados são da nova versão de 18/01/2018.. Posso postar novamente os erros se necessário. Obrigado! Quote Link to comment Share on other sites More sharing options...
cnavarro Posted January 19, 2018 Report Share Posted January 19, 2018 No es necesario, y comprueba tu mail Puedes borrar tu mail del post anterior Saludos Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 19, 2018 Report Share Posted January 19, 2018 Maestro Cristobal, solo un ADM puede borrar una mensageria ó el próprio uuário. Saludos. Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted January 22, 2018 Author Report Share Posted January 22, 2018 Olá meus amigos! A quem interessar, graças a biblioteca GOOGLE.LIB do Cristobal Navarro foi possível fazer o UpLoad via sistema conforme o escopo deste. -Primeiro passo: Baixar lib e os arquivos de exemplos do Navarro, de data 18/01/2018. -Próximo passo: Compilar e verificar se apresenta algum tipo de erro, caso exista vai precisar das novas: libs hbcurl,hbcurls,hbssl,hbssls,hbtip,hbtipssl,libeay32,libssl32 com Cristobal Navarro. - Passo seguinte, em caso de sucesso nos anteriores, é criar uma credencial no google: //Para gerar as credencias pelo google vá ao site: //https://cloud.google.com/?hl=pt-br //1-Click sobre a palavra CONSOLE no canto superior direito //2-Faz o login com seu_email@gmail.com //3-Barra lateral esquerda, posicione sobre "APIs e Serviços" e seleciona "Credenciais" no sub menu. //4-Crie uma credencial para seu projeto //5-faça donwload do arquivo .json //copie o "Id do Cliente" em oDrive:cClientId //copie a "Chave Secreta do Cliente" para oDrive:cSecretId - Finalmente para fazer o teste final use a rotina abaixo com algumas alterações que fiz, esta rotina faz parte da API do Cristobal Navarro. #include "Fivewin.ch" REQUEST HB_CODEPAGE_PTISO REQUEST HB_LANG_PT //Para gerar as credencias pelo google vá ao site: //https://cloud.google.com/?hl=pt-br //1-Click sobre a palavra CONSOLE no canto superior direito //2-Faz o login com seu_email@gmail.com //3-Barra lateral esquerda, posicione sobre "Apis e Servicos" e // seleciona "Credenciais" no sub menu. //4-Crie uma credencial para seu projeto //5-faça donwload do arquivo .json //copie o "Id do Cliente" em oDrive:cClientId //copie a "Chave Secreta do Cliente" para oDrive:cSecretId Static cKeySecret := "Chave Secreta do Cliente" Static cClientId := "Id do Cliente" Static oDrive //----------------------------------------------------------------------------// Function Main() HB_CDPSELECT("PTISO") //OU HB_SetCodePage("PTISO") // para ordenacion - requiere codepage.lib SET CENTURY ON UploadMyFile() Return nil //----------------------------------------------------------------------------// Function UploadMyFile() local cFile := "" local lSw := .F. cFile := cGetFile32( "All Files (*.*) |*.*|", "Select a File to Upload" ) MsgStop(cFile) if !Empty( cFile ) oDrive := TGDrive():New( , .T., .F. ) //credenciais geradas pelo google oDrive:cJSonFile := "d:\trab\google\client_id.json" oDrive:cClientId := cClientId oDrive:cSecretid := cKeySecret // lSw := oDrive:Activate() XBrowse(oDrive) if lSw if oDrive:Authorize() oDrive:ListFiles() //carrega aFilesLists XBrowse( oDrive:aFilesLists ) If oDrive:UpLoadFileG( cFile, , .T. ) // Last parameter .T., create shared link MsgInfo("Arquivo enviado com sucesso !!!","UpLoad") Else MsgStop(oDrive:cError,"UpLoad") Endif endif else MsgStop("Erro ao autenticar as credenciais do Google.","UpLoad") endif endif Return nil //----------------------------------------------------------------------------// Ele me disse que em breve vai lançar uma nova versão com os ajustes, de qualquer forma, está muito bacana, passei uma sugestão para ele vamos ver se consegue implementar na classe. Obs: os testes que fiz foi com Harbour 3.2 eBorland 7.2 Parabéns ao Cristobal Navarro pelo projeto, excelente!, 5 estrelas. JMSilva Caraguatatuba/SP Quote Link to comment Share on other sites More sharing options...
Marca Posted January 23, 2018 Report Share Posted January 23, 2018 Olá meus amigos! A quem interessar, graças a biblioteca GOOGLE.LIB do Cristobal Navarro foi possível fazer o UpLoad via sistema conforme o escopo deste. -Primeiro passo: Baixar lib e os arquivos de exemplos do Navarro, de data 18/01/2018. -Próximo passo: Compilar e verificar se apresenta algum tipo de erro, caso exista vai precisar das novas: libs hbcurl,hbcurls,hbssl,hbssls,hbtip,hbtipssl,libeay32,libssl32 com Cristobal Navarro. - Passo seguinte, em caso de sucesso nos anteriores, é criar uma credencial no google: //Para gerar as credencias pelo google vá ao site: //https://cloud.google.com/?hl=pt-br //1-Click sobre a palavra CONSOLE no canto superior direito //2-Faz o login com seu_email@gmail.com //3-Barra lateral esquerda, posicione sobre "APIs e Serviços" e seleciona "Credenciais" no sub menu. //4-Crie uma credencial para seu projeto //5-faça donwload do arquivo .json //copie o "Id do Cliente" em oDrive:cClientId //copie a "Chave Secreta do Cliente" para oDrive:cSecretId - Finalmente para fazer o teste final use a rotina abaixo com algumas alterações que fiz, esta rotina faz parte da API do Cristobal Navarro. #include "Fivewin.ch" REQUEST HB_CODEPAGE_PTISO REQUEST HB_LANG_PT //Para gerar as credencias pelo google vá ao site: //https://cloud.google.com/?hl=pt-br //1-Click sobre a palavra CONSOLE no canto superior direito //2-Faz o login com seu_email@gmail.com //3-Barra lateral esquerda, posicione sobre "Apis e Servicos" e // seleciona "Credenciais" no sub menu. //4-Crie uma credencial para seu projeto //5-faça donwload do arquivo .json //copie o "Id do Cliente" em oDrive:cClientId //copie a "Chave Secreta do Cliente" para oDrive:cSecretId Static cKeySecret := "Chave Secreta do Cliente" Static cClientId := "Id do Cliente" Static oDrive //----------------------------------------------------------------------------// Function Main() HB_CDPSELECT("PTISO") //OU HB_SetCodePage("PTISO") // para ordenacion - requiere codepage.lib SET CENTURY ON UploadMyFile() Return nil //----------------------------------------------------------------------------// Function UploadMyFile() local cFile := "" local lSw := .F. cFile := cGetFile32( "All Files (*.*) |*.*|", "Select a File to Upload" ) MsgStop(cFile) if !Empty( cFile ) oDrive := TGDrive():New( , .T., .F. ) //credenciais geradas pelo google oDrive:cJSonFile := "d:\trab\google\client_id.json" oDrive:cClientId := cClientId oDrive:cSecretid := cKeySecret // lSw := oDrive:Activate() XBrowse(oDrive) if lSw if oDrive:Authorize() oDrive:ListFiles() //carrega aFilesLists XBrowse( oDrive:aFilesLists ) If oDrive:UpLoadFileG( cFile, , .T. ) // Last parameter .T., create shared link MsgInfo("Arquivo enviado com sucesso !!!","UpLoad") Else MsgStop(oDrive:cError,"UpLoad") Endif endif else MsgStop("Erro ao autenticar as credenciais do Google.","UpLoad") endif endif Return nil //----------------------------------------------------------------------------// Ele me disse que em breve vai lançar uma nova versão com os ajustes, de qualquer forma, está muito bacana, passei uma sugestão para ele vamos ver se consegue implementar na classe. Obs: os testes que fiz foi com Harbour 3.2 eBorland 7.2 Parabéns ao Cristobal Navarro pelo projeto, excelente!, 5 estrelas. JMSilva Caraguatatuba/SP Esta rotina mapeia algum driver como o DropBox ou faz diferente ? Caso não crie uma pasta via Windows seria uma saída pra tentarmos fugir do tal vírus HansomWare Quote Link to comment Share on other sites More sharing options...
cnavarro Posted January 24, 2018 Report Share Posted January 24, 2018 New version: Upload all type files: FIXED http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903&start=15#p209350 Jmsilva 1 Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted January 25, 2018 Author Report Share Posted January 25, 2018 New version: Upload all type files: FIXED http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903&start=15#p209350 Excelente!! As novas opções: Pasta de Destino e Vários Arquivos. Problemas com o Método :ListFiles() não carrega :aFilesLists. Saludos, Regards JMSilva Quote Link to comment Share on other sites More sharing options...
cnavarro Posted January 25, 2018 Report Share Posted January 25, 2018 En la nueva version puedes seleccionar varios ficheros ( CTRL, o SHIFT con el ratón ) Intenta con ListAllFiles() y me comentas si funciona Jmsilva 1 Quote Link to comment Share on other sites More sharing options...
cnavarro Posted January 25, 2018 Report Share Posted January 25, 2018 He comprobado todos los metodos Mira el ejemplo GDrive.prg, permite seleccionar la carpeta de destino tambien oDrive:ListFiles() XBrowse( oDrive:aFilesLists ) // o oDrive:ListOnlyFiles() XBrowse( oDrive:aFilesLists ) // o oDrive:ListRootFiles() XBrowse( oDrive:aFilesLists ) o oDrive:ListOnlyFolders() XBrowse( oDrive:aFilesLists ) Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted January 26, 2018 Author Report Share Posted January 26, 2018 En la nueva version puedes seleccionar varios ficheros ( CTRL, o SHIFT con el ratón ) Intenta con ListAllFiles() y me comentas si funciona Sim funcionou corretamente, tanto a seleção quanto o upload dos arquivos. Também funcionou corretamente a pasta de destino. Quote Link to comment Share on other sites More sharing options...
cnavarro Posted January 26, 2018 Report Share Posted January 26, 2018 Bien, gracias Quote Link to comment Share on other sites More sharing options...
cnavarro Posted February 13, 2018 Report Share Posted February 13, 2018 Ultima version con la lib y los ejemplos http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34903&start=15#p209816 Jmsilva 1 Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted February 15, 2018 Author Report Share Posted February 15, 2018 CNavarro, está excelente a classe TGDrive, segue abaixo os testes que fiz: oDrive:ListFiles() //não funcionou XBrowse( oDrive:aFilesLists ) oDrive:ListOnlyFiles() //não funcionou XBrowse( oDrive:aFilesLists ) oDrive:ListRootFiles() //funcionou XBrowse( oDrive:aFilesLists ) oDrive:ListOnlyFolders() //funcionou XBrowse( oDrive:aFilesLists ) Obrigado! JMSilva Quote Link to comment Share on other sites More sharing options...
cnavarro Posted February 16, 2018 Report Share Posted February 16, 2018 Obtienes algun error? o te muestra el xbrowse vacío? Quote Link to comment Share on other sites More sharing options...
Jmsilva Posted February 16, 2018 Author Report Share Posted February 16, 2018 Não apresentou erros, apenas mostra xbrowse vazio. 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.