URL_Fetcher examples

Are there any examples on how to use the URL_Fetcher Module?

It only ever seems to return a status of 0 – which isn’t valid, so I must be doing it wrong. eg.

DIM data% 16
!data%=0
SYS "URL_Register" TO ,S%
SYS "URL_GetURL", 0, S%, 1, "http://a.valid.www/url", data%, 2, 0 TO status%
WHILE (status% AND %1111111)=0
  SYS "URL_Status", 0, S% TO status%
ENDWHILE

EDIT: Example code to download a file

ON ERROR REPORT:PRINT " line ";ERL:SYS "URL_Deregister", 0, S%:END

*RMEnsure URL_Fetcher 0.58 RMLoad System:Modules.Network.URL.URL
*RMEnsure AcornHTTP 1.01 RMLoad System:Modules.Network.URL.AcornHTTP
*RMEnsure AcornSSL 1.05 RMLoad System:Modules.Network.URL.AcornSSL

URL$="https://a.valid.www/url"
FILE$="$.downloaded.file"

buffer_size%=8*1024
DIM data% 1024, buffer% buffer_size%

PROCdownload(URL$, FILE$)
END


DEF PROCdownload(URL$, FILE$)
  LOCAL A%
  SYS "URL_Register", 0 TO ,S%
  !data%=0
  SYS "URL_GetURL", %00, S%, 1, URL$+CHR$0, data%, 2, 0 TO A%
  
  PROCread_header
  PROCread_contents(FILE$)
  
  SYS "URL_Deregister", 0, S%
ENDPROC


DEF PROCread_header
  LOCAL response%

  response%=FNread_data(0)
ENDPROC


DEF PROCread_contents(F$)
  LOCAL F%, response%

  SYS "OS_Find", &83, F$ TO F%
  REPEAT UNTIL (FNread_data(F%) AND (%11<<5))>0
  SYS "OS_Find", 0, F%
ENDPROC


DEF FNread_data(F%)
  LOCAL now%, A%, C%, L%

  now%=TIME
  REPEAT
    SYS "URL_ReadData", 0, S%, buffer%, buffer_size% TO A%,,,,C%,L%
    IF TIME>now%+100 THEN now%=TIME:PRINT "Waiting for response ";L%;" bytes remaining"
    IF (A% AND (1<<4))>0 AND C%>0 THEN
      PRINT "Received data ("+STR$ C%+" bytes)"
      IF F%<>0 THEN SYS "OS_GBPB", 2, F%, buffer%, C%
    ENDIF
    IF C%=0 THEN REPEAT:WAIT:UNTIL TIME>now%+20
  UNTIL C%>0 OR L%=0
=A%

You need to call URL_ReadData before it’ll actually return anything. URL_GetURL only starts off the process.

You need to call URL_ReadData

I’m doing that, but as stated above it only returns zero, which is why I’m after a code example.

From the documentation, my snippet above looks correct in that it should eventually return a status to say it’s connected. Once connection is established, you then read the data via URL_ReadData.

I haven’t tried using the module from BASIC. I’m happy to share the C source to HTTPLib if you like, although it’s not exactly a simple example :)

I’m happy to share the C source to HTTPLib

Yes please, as you’re doing exactly what I’m trying to do but in BASIC.

I’ve put the source on my site, under HTTPLib.

I’ve put the source here.

Thanks. Shame that isn’t in a Module so it can be used from BASIC as you’ve already coded exactly what I’m trying to code.

Turns out I was doing it correctly, but URL_GetURL doesn’t appear to actually do anything, so calling URL_Status after it and waiting for connection confirmation was never going to work.

Has anybody got any examples of code written in BASIC

I’ve put my example code in the OP. I’m not sure why Textile has completely knackered the formatting, I’ll sort it out later.