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.
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
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
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
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: 35263
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: 953
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
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
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
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
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

Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
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: 108
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?
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
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
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
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"
//----------------------------------------------------------------------------//

 
Muchas gracias. Many thanks.
Saludos,Regards

Cristobal Navarro - Harbour (r1601050904) - xHarbour (Build 20150603) - VS 2015/17 - FWH 17.12

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
User avatar
cnavarro
 
Posts: 3888
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: 108
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: 307
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: 41
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: 41
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 2 guests