Geolocation by IP address in Alaska

[Eugene Lutsenko]

There is a geolocation service: https://ip-api.com/#71.39.117.6 . How to pull information in curly brackets into a text variable?

[Auge_Ohr]

hi Eugene,

i have try ">> Logme.TXT" and " | CLIP " but both does not work when call from App ...

so i create a *.BAT and call that *.BAT

Code: Select all

   nHandle := FCREATE( cFile, FC_NORMAL )
   IF nHandle == - 1
      MsgInfo( "Error create File : " + cFile, STR( FERROR() ) )
      RETURN
   ELSE
      FWRITE( nHandle, cRun + cPara + cClip)
      FCLOSE( nHandle )
   ENDIF

   System.EmptyClipboard
   ShellExecute( 0, "open", cFile,,, SW_HIDE )

   DO WHILE EMPTY(System.Clipboard )
      hb_idleSleep( 0.1 )
   ENDDO
   cMemo := System.Clipboard

it is HMG Syntax but should be easy to translate to Xbase++

[Eugene Lutsenko]

Hi, Jimmy! I have a problem reading the site into a text variable without opening the browser. The rest is not a problem for me

hi Eugene,

i have try ">> Logme.TXT" and " | CLIP " but both does not work when call from App ...

so i create a *.BAT and call that *.BAT

Code: Select all

   nHandle := FCREATE( cFile, FC_NORMAL )
   IF nHandle == - 1
      MsgInfo( "Error create File : " + cFile, STR( FERROR() ) )
      RETURN
   ELSE
      FWRITE( nHandle, cRun + cPara + cClip)
      FCLOSE( nHandle )
   ENDIF

   System.EmptyClipboard
   ShellExecute( 0, "open", cFile,,, SW_HIDE )

   DO WHILE EMPTY(System.Clipboard )
      hb_idleSleep( 0.1 )
   ENDDO
   cMemo := System.Clipboard

it is HMG Syntax but should be easy to translate to Xbase++

[Auge_Ohr]

Hi, Jimmy! I have a problem reading the site into a text variable without opening the browser. The rest is not a problem for me

this is exact what i do

Code: Select all

PROCEDURE MAIN(cNewIP)
LOCAL cRun := "curl "
LOCAL cPara := "ip-api.com "
LOCAL cClip := " | CLIP "
LOCAL cFile := "GetIP.BAT"
LOCAL cMemo , nHandle

i do write "GetIP.BAT" from App and than call it and now " | CLIP" or ">> LogMe.TXT" can work

[Eugene Lutsenko]

"ip-api.com " - this is not a local program, but a website

[rdonnay]

I have a problem reading the site into a text variable without opening the browser.

You can do this with LoadFromURL().

[Eugene Lutsenko]

I have a problem reading the site into a text variable without opening the browser.

You can do this with LoadFromURL().

When I launch in the browser address bar http://ip-api.com/#71.39.117.6 I get: It suits me fine. But I would like to get the html code drawing this page in the browser. When I try to do this, it turns out that.

Code: Select all

cResponse := LoadFromURL( 'http://ip-api.com/#71.39.117.6' )
MsgBox(cResponse)

[Eugene Lutsenko]

Code: Select all

     cResponse := LoadFromURL( 'http://ip-api.com/#71.39.117.6' )
     MsgBox(cResponse)

     cResponse := LoadFromURL( 'http://ip-api.com/json/71.39.117.6' )
     MsgBox('json'+', '+cResponse)

     cResponse := LoadFromURL( 'http://ip-api.com/xml/71.39.117.6' )
     MsgBox('xml'+', '+cResponse)

     cResponse := LoadFromURL( 'http://ip-api.com/csv/71.39.117.6' )
     MsgBox('csv'+', '+cResponse)

     cResponse := LoadFromURL( 'http://ip-api.com/line/71.39.117.6' )
     MsgBox('line'+', '+cResponse)

     cResponse := LoadFromURL( 'http://ip-api.com/php/71.39.117.6' )
     MsgBox('php'+', '+cResponse)

It seems like everything I wanted turned out!

[Eugene Lutsenko]

I did everything. It turned out well. FUNCTION RecreateDB() here: http://lc.kubagro.ru/__AidosALL.txt
Thank you all very much!