Aviso que el servidor de SQL esta caído

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 04:41 AM

AIDA wrote:

AIDA wrote:Ya encontré lo que atora al programa es esto que uso para sacar la IP

ippub:= PublicIP()

si quito el PublicIP() ya no se atora

por que pasara esto y como remediarlo?

sera culpa del windos 11

Code (fw): Select all Collapse

//**************************************************************
Function PublicIP()
Local cBuffer, cRequest, cResponse, nBytes, pSocket

 INetInit()
  pSocket := INetConnect( "checkip.dyndns.org", 80 )

  IF INetErrorCode( pSocket ) <> 0
   ? "Socket error:", INetErrorDesc( pSocket )
   INetCleanUp()
   QUIT
  ENDIF

  nBytes   := INetSend( pSocket, "GET / HTTP/1.1" + CRLF + "Host: checkip.dyndns.org" + CRLF + "User-Agent: HTTP-Test-Program" + CRLF + CRLF )
  cBuffer  := Space(512)
  cResponse:= ""

  WHILE ( nBytes > 0 )
   nBytes    := INetRecv( pSocket, @cBuffer )
   cResponse += Left( cBuffer, nBytes )
   cBuffer   := Space(512)
  ENDDO

  INetClose( pSocket )
 INetCleanUp()

Return( allTrim( substr( substr( cResponse, rat( "<body>", cResponse ) + 26 ), 1, At( "<", substr( cResponse, rat( "<body>", cResponse ) + 26 ) ) - 1 ) ) )

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 05:00 AM

el problema sera lo que comenta Rick Lipkin :?:

Una respuesta un poco remota... muchas aplicaciones en la nube, Att.net, Google.cm... consideran ciertas aplicaciones como "menos seguras" y tienes que generar una contraseña segura especial antes de que tu aplicación se conecte...

https://support.google.com/accounts/ans ... 0255?hl=es

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 05:16 AM

Hello Rick Lipkin

I did what you recommended and if you were right I generated a key with the name of my application and it finally works correctly

but this will have to be done by each user who acquires my program

https://support.google.com/accounts/answer/185833?hl=es-419

Rick Lipkin wrote:Aida

Kinda a long shot answer ... many cloud applications, Att.net, Google.cm .. consider certain apps as "less secure" and you have to generate a special secure password before your application will connect ..

https://support.google.com/accounts/ans ... 0255?hl=en

Just my 2 cents worth ..

Rick Lipkin

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 07:39 AM

Aida,

Para obtener tu IP pública llama a esta URL:

https://www.fivetechsoft.com/getip.php

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 07:50 AM

En este ejemplo de mod_harbour tienes el código que necesitas. Posiblemente hay formas aún más sencillas de hacerlo

callphp.prg

Code (fw): Select all Collapse

#ifdef __PLATFORM__WINDOWS
   #include "c:\harbour\contrib\hbcurl\hbcurl.ch"
#else
   #include "/usr/include/harbour/hbcurl.ch"
#endif

function Main()

  curl_global_init()

  ? "Hello world"

  ? callPHP( "www.fivetechsoft.com/getip.php" ) 

   curl_global_cleanup()

return nil

function callPHP( cUrl )

   local hCurl, uValue

   if ! empty( hCurl := curl_easy_init() )
        curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl )
        curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )

        if curl_easy_perform( hCurl ) == 0
           uValue = curl_easy_dl_buff_get( hCurl )
        endif
   endif

return uValue

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 07:59 AM

Aida,

Más simple:

Code (fw): Select all Collapse

function Main()

   MsgInfo( WebPageContents( "http://www.fivetechsoft.com/getip.php" ) )

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 07:59 PM

Super

si funciona y el malvado

google ya no bloquea la aplicación

Code (fw): Select all Collapse

ippub:= WebPageContents( "http://www.fivetechsoft.com/getip.php" )

Muchas gracias

seguimos en contacto y dando lata

Saluditos

Antonio Linares wrote:Aida,

Más simple:
Code (fw): Select all Collapse
function Main()

   MsgInfo( WebPageContents( "http://www.fivetechsoft.com/getip.php" ) )

return nil

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 08:35 PM

Code (fw): Select all Collapse

function FW_PublicIP()

return WebPageContents( "http://www.fivetechsoft.com/getip.php" )

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Aviso que el servidor de SQL esta caído
Posted: Tue Jan 18, 2022 11:57 PM

Code (fw): Select all Collapse

function GetWebIp
   local cReturn
   local xmlhttp
   xmlhttp := win_oleCreateObject( "MSXML2.ServerXMLHTTP" )
   xmlhttp:Open( "GET", "http://dynupdate.no-ip.com/ip.php", .F. )
Try
      xmlhttp:Send()
      cReturn := xmlhttp:responseBody
Catch
      cReturn := "0.0.0.0"
End
   xmlhttp := nil
return cReturn

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

FiveTech Support Forums

Continue the discussion