topic-44568

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Velocidad de Internet.
Posted: Sun Jun 02, 2024 05:49 PM

Hola a Todos Amigos,

Hace ya algunos años trato de que mis clientes se decanten por alojar sus datos en la nube, gracias a todas las ventajas que esto conlleva.

Mis aplicaciones son hechas en FW+HARBOUR y se instalan localmente, es decir, aplicaciones DESKTOP, como cualquier otra, pero toda la data se guarda y gestiona en la nube.

¿Hay alguna función en FW que me indique a que velocidad esta el internet al momento de ejecutarse el sistema?

Si no contamos con esa función nativa, ¿existe alguna aplicación de terceros que pueda integrar a mis aplicaciones de manera transparente ?

Sugiero (si no hay manera de saberlo) que se integre en las nuevas versiones de FW, por supuesto si es posible y si más usuarios lo consideran de utilidad.

Quedo pendiente para recibir ideas y sugerencias.

Gracias.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Velocidad de Internet.
Posted: Sun Jun 02, 2024 07:19 PM

la web https://fast.com/ es el lugar ideal para medir la velocidad de internet.

Estamos viendo si podemos hacer una función que extraiga el valor automaticamente desde esa web

regards, saludos

Antonio Linares
www.fivetechsoft.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Velocidad de Internet.
Posted: Mon Jun 03, 2024 12:23 AM

Antonio:

Muchas gracias.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Velocidad de Internet.
Posted: Mon Jun 03, 2024 02:14 AM

Excelente maestro,

Con fivewin, siempre se puede !

Seguro que pronto lo tendremos!

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Velocidad de Internet.
Posted: Tue Jun 04, 2024 09:35 PM

Yo lo buscaría hacer con el componente twebview y con el URL de speedtest. Y lo íntegro en mi app.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Velocidad de Internet.
Posted: Wed Jun 05, 2024 12:55 AM

carlos vargas wrote:Yo lo buscaría hacer con el componente twebview y con el URL de speedtest. Y lo íntegro en mi app.

Hola carlos, saludos.

Lo que deseo es obtener el valor de la velocidad, no visualizarlo.

Si te entendí bien, lo que me sugieres es para mostrar la web.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

Garbi

Posts: 350

Joined: Wed Nov 02, 2005 03:28 PM

Re: Velocidad de Internet.
Posted: Wed Jun 05, 2024 06:40 AM

Hola,
No he podido investigar mucho, pero para otras cosas como descargar ficheros, yo lo hago por comandos.
Te pongo una URL donde te explica como hacerlo, supongo que si buscas un poco en la ayuda podrás saber como obtener el dato de la velocidad.

https://www.youtube.com/watch?v=NU15yYT2pwk

Ya nos dices si te ha servido.

Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Velocidad de Internet.
Posted: Wed Jun 05, 2024 06:55 AM

Este código debería funcionar pero algo le falla aún:

Code (fw): Select all Collapse

#include 'hbcurl.ch'

#define CURLOPT_URL    10002
#define CURLOPT_NOBODY 10013

PROCEDURE Main()
   LOCAL curl, res, url, startTime, endTime
   LOCAL speed

   url := "https://github.com/FiveTechSoft/harbour_and_xharbour_builds/raw/master/harbour_msvc2022_64_20240530.zip"
   startTime := Seconds()

   curl := curl_easy_init()
   IF curl!= Nil
      curl_easy_setopt(curl, CURLOPT_URL, url)
      // curl_easy_setopt(curl, CURLOPT_NOBODY, 1) // solo obtener headers
      res := curl_easy_perform(curl)
      endTime := Seconds()
      IF res == 0
         speed := (endTime - startTime) / 60 // segundos a minutos
        ? "Velocidad de descarga:", speed * 1024, " KB/s"
      ELSE
        ? "curl_easy_perform() failed:", res, curl_easy_strerror(res)
      ENDIF
      curl_easy_cleanup(curl)
   ENDIF
   curl_global_cleanup()
RETURN

regards, saludos

Antonio Linares
www.fivetechsoft.com

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Velocidad de Internet.
Posted: Wed Jun 05, 2024 10:36 AM

Garbi wrote:Hola,
No he podido investigar mucho, pero para otras cosas como descargar ficheros, yo lo hago por comandos.
Te pongo una URL donde te explica como hacerlo, supongo que si buscas un poco en la ayuda podrás saber como obtener el dato de la velocidad.

https://www.youtube.com/watch?v=NU15yYT2pwk

Ya nos dices si te ha servido.

Gracias GARBI, agradecido por tu apoyo. Todas las ideas son bienvenidas.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Velocidad de Internet.
Posted: Wed Jun 05, 2024 10:53 AM

Antonio Linares wrote:Este código debería funcionar pero algo le falla aún:

Code (fw): Select all Collapse

#include 'hbcurl.ch'

#define CURLOPT_URL    10002
#define CURLOPT_NOBODY 10013

PROCEDURE Main()
   LOCAL curl, res, url, startTime, endTime
   LOCAL speed

   url := "https://github.com/FiveTechSoft/harbour_and_xharbour_builds/raw/master/harbour_msvc2022_64_20240530.zip"
   startTime := Seconds()

   curl := curl_easy_init()
   IF curl!= Nil
      curl_easy_setopt(curl, CURLOPT_URL, url)
      // curl_easy_setopt(curl, CURLOPT_NOBODY, 1) // solo obtener headers
      res := curl_easy_perform(curl)
      endTime := Seconds()
      IF res == 0
         speed := (endTime - startTime) / 60 // segundos a minutos
        ? "Velocidad de descarga:", speed * 1024, " KB/s"
      ELSE
        ? "curl_easy_perform() failed:", res, curl_easy_strerror(res)
      ENDIF
      curl_easy_cleanup(curl)
   ENDIF
   curl_global_cleanup()
RETURN

Perfecto master, haré las pruebas con este código y estaré comentando.

La idea con este dato es hacer lo mismo que muchas aplicaciones android que detectan la velocidad y avisan al usuario "su conexión a internet es débil", "su conexión presenta problemas" o "su conexión a internet es lenta".

De esta manera, estarán informados que la lentitud se debe a una mala calidad de su internet y no a mi aplicación.

Con la empresa y el plan de hosting que tengo contratado mi aplicación funciona al 100% con muy pero muy poco retardo en dar respuesta. Pero a veces la velocidad de internet varía, y algunos usuarios piensan que es por causa de la aplicación. Por eso es importante para mi que mi sistema les informe sobre el status de su conexión.

Se que en la mayoría de paises el servicio de internet funciona siempre de manera estable manteniendo la velocidad ofrecida por el proveedor, pero acá en Venezuela es una verdadera montaña rusa, literalmente.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: Velocidad de Internet.
Posted: Wed Jun 05, 2024 02:35 PM

hi.

there is a SPEED TEST AT Google
https://fiber.google.com/speedtest/

greeting,

Jimmy

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Velocidad de Internet.
Posted: Wed Jun 05, 2024 03:02 PM

Tks, Jimmy.

Code (fw): Select all Collapse

// C:\FWH\SAMPLES\INTSPEED.PRG

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL cURL := "https://fiber.google.com/speedtest/"

   /* comprobamos si tenemos conexion a internet */
   IF .NOT. IsInternet()

      // MsgAlert( "Verifique Sua Internet.", "Internet Fora do Ar?" )
      MsgAlert( "Revise su Internet.", "¿Internet caído?")

      RETURN NIL

   ENDIF

   CursorWait()

   // Funcion modificada para que funcione con Windows 7
   ShellExecute( , "open", cURL )

   CursorArrow()

RETURN NIL

// FIN / END

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Velocidad de Internet.
Posted: Wed Jun 05, 2024 08:06 PM

Antonio Linares wrote:Este código debería funcionar pero algo le falla aún:

Code (fw): Select all Collapse

#include 'hbcurl.ch'

#define CURLOPT_URL    10002
#define CURLOPT_NOBODY 10013

PROCEDURE Main()
   LOCAL curl, res, url, startTime, endTime
   LOCAL speed

   url := "https://github.com/FiveTechSoft/harbour_and_xharbour_builds/raw/master/harbour_msvc2022_64_20240530.zip"
   startTime := Seconds()

   curl := curl_easy_init()
   IF curl!= Nil
      curl_easy_setopt(curl, CURLOPT_URL, url)
      // curl_easy_setopt(curl, CURLOPT_NOBODY, 1) // solo obtener headers
      res := curl_easy_perform(curl)
      endTime := Seconds()
      IF res == 0
         speed := (endTime - startTime) / 60 // segundos a minutos
        ? "Velocidad de descarga:", speed * 1024, " KB/s"
      ELSE
        ? "curl_easy_perform() failed:", res, curl_easy_strerror(res)
      ENDIF
      curl_easy_cleanup(curl)
   ENDIF
   curl_global_cleanup()
RETURN

Master Antonio,

no encuentro ninguna de las funciones que comienzan por curl_

enlace las lib hbcurl y hbcurls pero no aparecen al compilar.

donde estan?

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

Lailton

Posts: 231

Joined: Fri Jul 20, 2012 01:49 AM

Re: Velocidad de Internet.
Posted: Thu Jun 06, 2024 12:25 AM

Jose,

Las funciones curl_* es parte da library CURL.

https://curl.se/download.html

Se utiliza vcpkg pode instalar lo package curl con lo comando

Code (fw): Select all Collapse

vcpkg install curl

Regards,

Lailton Fernando Mariano

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Velocidad de Internet.
Posted: Thu Jun 06, 2024 06:15 AM

Funcionando bien gracias a Carles Aubia! :-)

Code (fw): Select all Collapse

#include 'hbcurl.ch'

#define CURLOPT_NOBODY 10013

function speed()
        
    local hCurl, nRet, uValue, hRows
    local lError        := .f.
    local cUrl          := "https://github.com/FiveTechSoft/harbour_and_xharbour_builds/raw/master/harbour_msvc2022_64_20240530.zip"
    
    
    if ! empty( hCurl := curl_easy_init() )
      
        curl_easy_setopt( hCurl, HB_CURLOPT_DOWNLOAD )
        curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl )     
        
        curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYPEER, .f. )
        curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYHOST, .f. )
        curl_easy_setopt( hCurl, HB_CURLOPT_FOLLOWLOCATION )        // Necesario para aquellos sitios que nos redirigen a otros

        curl_easy_setopt( hCurl, HB_CURLOPT_FILETIME, 1)
        
        //curl_easy_setopt(hCurl, CURLOPT_NOBODY, 1) // solo obtener headers
        curl_easy_setopt( hCurl, HB_CURLOPT_DL_FILE_SETUP, 'c:\temp\z.zip' )
        curl_easy_setopt( hCurl, HB_CURLOPT_NOPROGRESS, .t. )
        curl_easy_setopt( hCurl, HB_CURLOPT_VERBOSE, .f. )   
        curl_easy_setopt( hCurl, HB_CURLOPT_FAILONERROR , .t. )  // Change cUrl Dummy       
        
        nRet := curl_easy_perform( hCurl )
    
    
        if nRet == HB_CURLE_OK  //  HB_CURLE_OK == 0                    
          
            ? 'Size Download: ' +  ltrim(str(curl_easy_getinfo( hCurl, HB_CURLINFO_SIZE_DOWNLOAD ))) 
            ? 'Time: ' +  ltrim(str(curl_easy_getinfo( hCurl, HB_CURLINFO_TOTAL_TIME ))) + ' sec.'      //  receive the total time in seconds for the previous transfer, including name resolving, TCP connect etc.
            ? 'Bytes/sec: ' + ltrim(str(curl_easy_getinfo( hCurl, HB_CURLINFO_SPEED_DOWNLOAD )))     //  bytes/sec   
            ? 'Mb. Sec: ' + ltrim(str(curl_easy_getinfo( hCurl, HB_CURLINFO_SPEED_DOWNLOAD ) / 1024 /1024)) 
        
        else            
           lError := .t.
           ? 'Error: ' + curl_easy_strerror( nRet ) 
        endif             

        curl_easy_cleanup(hCurl)    
    
    endif
    
retu ! lError

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums