Decoremos el arbol de navidad de FWH - Decorate the FWH tree

User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by cnavarro »

Decoremos el arbol de navidad de FWH - Decorate the FWH Christmas tree

Image

Es tiempo de compartir y qué mejor forma que incluir en el árbol pequeñas o grandes contribuciones como regalo a nuestros amigos y compañeros
Seguro que puede quedar muy bonito entre todos
Feliz Navidad

It is time to share and what better way to include in the tree small or large contributions as a gift to our friends and colleagues
It sure can be very nice among all
Merry Christmas
Last edited by cnavarro on Sat Dec 09, 2017 3:19 pm, edited 1 time in total.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by cnavarro »

Mi primer regalo
My first present

Espero que os guste
I hope you like it

https://bitbucket.org/fivetech/fivewin- ... stflds.prg

Image

Image
Last edited by cnavarro on Sat Jun 02, 2018 12:35 am, edited 1 time in total.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by Antonio Linares »

Gracias Cristobal :-)

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
hmpaquito
Posts: 1200
Joined: Thu Oct 30, 2008 2:37 pm

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by hmpaquito »

Buenísima aportación D. Cristobal. Esperando para la siguiente bola :D

Yo también creo: https://www.youtube.com/watch?v=cLShxhQwwwA
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by cnavarro »

Gracias, espero que aportemos entre todos a decorarlo
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by cnavarro »

Image

Please, change images names in code source

https://bitbucket.org/fivetech/fivewin- ... estmdi.prg

Image
Last edited by cnavarro on Sat Jun 02, 2018 12:36 am, edited 1 time in total.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by cnavarro »

C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
Xevi
Posts: 168
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by Xevi »

Al compilar se necesita declarar las variables
Local nPanel, nItem
en HazExplorerBar()

y comentar la línea
* :nAlign := 3

pues lanza un error en ejecución
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by cnavarro »

Xevi wrote:Al compilar se necesita declarar las variables
Local nPanel, nItem
en HazExplorerBar()

y comentar la línea
* :nAlign := 3

pues lanza un error en ejecución
En cuanto a la declaración de variables, cierto, habia desactivado los warnings en mi editor, gracias
A mi no me da error de ejecución, pero si es asi, puedes poner o enviarme el ERROR.LOG que genera?
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by cnavarro »

Look

Image
Last edited by cnavarro on Sat Jun 02, 2018 12:45 am, edited 2 times in total.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by cnavarro »

Download gdrive file without using apis

Image

Please, look this page ( for example )

https://sites.google.com/site/sitescapt ... s-directos

and use for download

Code: Select all


//----------------------------------------------------------------------------//
//
// 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"

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

Function Main()

   local cUrl

   // 
   cUrl   := "https://docs.google.com/uc?export=download&id=YOUR_ID_OF_FILE"
   Cn_DownLoad( cUrl, .F., "c:\fwh\mydown.zip" )
   //

Return nil

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

Function Cn_DownLoad( cUrl, lText, cFileTarget )

   local oHttp
   local cContents     := ""
   DEFAULT cUrl        := ""
   DEFAULT lText       := .F.
   DEFAULT cFileTarget := ""

   if !Empty( cUrl )
      DeleteUrlCacheEntry( cUrl )
      
      TRY
         oHttp     := FWGetOleObject( "MSXML2.ServerXMLHTTP.3.0" )
         //oHttp     := CreateObject( "MSXML2.ServerXMLHTTP.3.0" )
         oHttp:Open( "GET", cUrl, .F. )
         oHttp:Send()
         oHttp:WaitForResponse()
         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
         MsgInfo( "Error en la descarga", "Atencion" )
      endif
   else
      MsgInfo( "URL proporcionada en blanco", "Error en la descarga" )
   endif
Return nil

//----------------------------------------------------------------------------//
DLL STATIC FUNCTION DELETEURLCACHEENTRY( cUrl AS LPSTR ) AS BOOL;
    PASCAL FROM "DeleteUrlCacheEntryA" LIB "wininet.dll"
//----------------------------------------------------------------------------//

 
Last edited by cnavarro on Thu May 17, 2018 7:33 pm, edited 1 time in total.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
Xevi
Posts: 168
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by Xevi »

Cristóbal,

muy buen aporte!!!

FUNCIONANDO PERFECTAMENTE!!!

Gracias.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
Rochinha
Posts: 309
Joined: Sun Jan 08, 2006 10:09 pm
Location: Brasil - Sao Paulo
Contact:

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by Rochinha »

Friends,

A nice gift to 2018!
User avatar
sygecom
Posts: 42
Joined: Tue Mar 11, 2008 3:18 am
Location: Brasil

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by sygecom »

Muy bien.

Gracias por compartir.
User avatar
sygecom
Posts: 42
Joined: Tue Mar 11, 2008 3:18 am
Location: Brasil

Re: Decoremos el arbol de navidad de FWH - Decorate the FWH tree

Post by sygecom »

Cristobal Navarro,

Si no es pedir más. ¿Podría dar una ruta de ejemplo de UPLOAD?

Gracias
Post Reply