*SOLVED* HTTP GET request in HiSoft Basic

[robv]

As I am probably the only one using HiSoft Basic, this is basically a 'note to self'.
Finally figured out how to do a HTTP GET request. The trick was to add two empty lines, as the server expects four lines. I post it here so I can look it up in case I forget how it works.

Code: Select all

' # --------------------------------
' # HTTP GET example in HiSoft Basic
' # api call to openweathermap.org
' # --------------------------------

' include HiSoft Networld lib; REM is NOT a remark but part of the call!
' requires STiK
REM $include networld.bas

' my details
server$="api.openweathermap.org"
city$="Cuijk,NL"
appid$="blahblah"

' create request
getme$="/data/2.5/find?q="+city$+"&units=metric&mode=xml&appid="+appid$
crlf$=CHR$(13)+CHR$(10)
request$="GET "+getme$+" HTTP/1.1"+crlf$+"Host: "+server$+crlf$+crlf$+crlf$

' connect to server at port 80
PRINT "Connecting..."
cn=tcp_connect(server$,80,tos,2000)
wait(0.5)       'needs some time, might be less than 0.5

' send request
x=tcpsend(cn,request$)
wait(0.5)       'again needs some time

' get reply from server and print to screen
c=cnbyte_count(cn)
IF c>0 THEN
  FOR f=1 TO c
    d=cnget_char (cn)
    PRINT CHR$(d);
  NEXT
END IF

' close connection
x=tcp_close(cn,20)

' wait routine
SUB wait(sec!)
    STATIC starttime!, waiting!
    waiting! = 0
    starttime! = TIMER
    WHILE waiting! <= sec!
        waiting! = TIMER - starttime!  
    WEND
END SUB

So now that I can do this, all I need to do is add a few lines to turn it into a modern browser. Or am I underestimating something?

[LaceySnr]

Something something https something

Nice work though, that's cool to have available!

[christos]

Nice! There are two problems, it's next to impossible to find http APIs (not Https) and most of them return JSON so you'd need a JSON parser. It's really cool though.
I wonder if there's something similar for GFA. I ll have to dig a bit...

[charles]

truely amazing

hocus pocus that really works

cool stuff!!