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

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

Postby cnavarro » Sat Dec 09, 2017 3:13 pm

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.
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby cnavarro » Sat Dec 09, 2017 3:18 pm

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.
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby Antonio Linares » Mon Dec 11, 2017 7:22 am

Gracias Cristobal :-)

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby hmpaquito » Mon Dec 11, 2017 9:13 am

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

Yo también creo: https://www.youtube.com/watch?v=cLShxhQwwwA
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

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

Postby cnavarro » Mon Dec 11, 2017 10:27 am

Gracias, espero que aportemos entre todos a decorarlo
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby cnavarro » Sat Dec 30, 2017 11:43 pm

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.
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby cnavarro » Sun Dec 31, 2017 1:50 pm

Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby Xevi » Mon Jan 01, 2018 8:58 pm

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
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

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

Postby cnavarro » Mon Jan 01, 2018 11:52 pm

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?
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby cnavarro » Thu Jan 04, 2018 6:56 pm

Look

Image
Last edited by cnavarro on Sat Jun 02, 2018 12:45 am, edited 2 times in total.
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby cnavarro » Mon Jan 15, 2018 1:31 pm

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  Expand view


//----------------------------------------------------------------------------//
//
// 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.
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

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

Postby Xevi » Mon Jan 15, 2018 2:15 pm

Cristóbal,

muy buen aporte!!!

FUNCIONANDO PERFECTAMENTE!!!

Gracias.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

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

Postby Rochinha » Mon Jan 15, 2018 6:39 pm

Friends,

A nice gift to 2018!
Rochinha
 
Posts: 309
Joined: Sun Jan 08, 2006 10:09 pm
Location: Brasil - Sao Paulo

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

Postby sygecom » Tue Jan 16, 2018 12:04 am

Muy bien.

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

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

Postby sygecom » Tue Jan 16, 2018 6:15 pm

Cristobal Navarro,

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

Gracias
User avatar
sygecom
 
Posts: 50
Joined: Tue Mar 11, 2008 3:18 am
Location: Brasil

Next

Return to Utilities / Utilidades

Who is online

Users browsing this forum: No registered users and 4 guests