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

[cnavarro]

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



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

[cnavarro]

Mi primer regalo
My first present

Espero que os guste
I hope you like it

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

[Antonio Linares]

Gracias Cristobal

[hmpaquito]

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

Yo también creo: https://www.youtube.com/watch?v=cLShxhQwwwA

[cnavarro]

Gracias, espero que aportemos entre todos a decorarlo

[cnavarro]

Please, change images names in code source

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

[cnavarro]

New version

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

[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

[cnavarro]

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?

[cnavarro]

Look

[cnavarro]

Download gdrive file without using apis



Please, look this page ( for example )

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

and use for download

Code: Select all  Expand view  RUN

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

 

[Xevi]

Cristóbal,

muy buen aporte!!!

FUNCIONANDO PERFECTAMENTE!!!

Gracias.

[Rochinha]

Friends,

A nice gift to 2018!

[sygecom]

Muy bien.

Gracias por compartir.

[sygecom]

Cristobal Navarro,

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

Gracias