mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 01:50:25 +00:00
Comment out Download function from IDE code
Method is no longer used in this version, due to changes in qb64.org
This commit is contained in:
parent
e70fb238f6
commit
f64c882bc6
|
@ -19815,54 +19815,54 @@ FUNCTION GetBytes$(__value$, numberOfBytes&)
|
||||||
getBytesPosition& = getBytesPosition& + numberOfBytes&
|
getBytesPosition& = getBytesPosition& + numberOfBytes&
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
FUNCTION Download$ (url$, outputVar$, lookFor$, timelimit) STATIC
|
'FUNCTION Download$ (url$, outputVar$, lookFor$, timelimit) STATIC
|
||||||
'as seen on http://www.qb64.org/wiki/Downloading_Files
|
' 'as seen on http://www.qb64.org/wiki/Downloading_Files
|
||||||
'adapted for use in the IDE
|
' 'adapted for use in the IDE
|
||||||
|
|
||||||
DIM theClient AS LONG, l AS LONG
|
' DIM theClient AS LONG, l AS LONG
|
||||||
DIM prevUrl$, prevUrl2$, url2$, x AS LONG
|
' DIM prevUrl$, prevUrl2$, url2$, x AS LONG
|
||||||
DIM e$, url3$, x$, t!, a2$, a$, i AS LONG
|
' DIM e$, url3$, x$, t!, a2$, a$, i AS LONG
|
||||||
DIM i2 AS LONG, i3 AS LONG, d$, fh AS LONG
|
' DIM i2 AS LONG, i3 AS LONG, d$, fh AS LONG
|
||||||
|
|
||||||
IF url$ <> prevUrl$ OR url$ = "" THEN
|
' IF url$ <> prevUrl$ OR url$ = "" THEN
|
||||||
prevUrl$ = url$
|
' prevUrl$ = url$
|
||||||
IF url$ = "" THEN
|
' IF url$ = "" THEN
|
||||||
prevUrl2$ = ""
|
' prevUrl2$ = ""
|
||||||
IF theClient THEN CLOSE theClient: theClient = 0
|
' IF theClient THEN CLOSE theClient: theClient = 0
|
||||||
EXIT FUNCTION
|
' EXIT FUNCTION
|
||||||
END IF
|
' END IF
|
||||||
url2$ = url$
|
' url2$ = url$
|
||||||
x = INSTR(url2$, "/")
|
' x = INSTR(url2$, "/")
|
||||||
IF x THEN url2$ = LEFT$(url$, x - 1)
|
' IF x THEN url2$ = LEFT$(url$, x - 1)
|
||||||
IF url2$ <> prevUrl2$ THEN
|
' IF url2$ <> prevUrl2$ THEN
|
||||||
prevUrl2$ = url2$
|
' prevUrl2$ = url2$
|
||||||
IF theClient THEN CLOSE theClient: theClient = 0
|
' IF theClient THEN CLOSE theClient: theClient = 0
|
||||||
theClient = _OPENCLIENT("TCP/IP:80:" + url2$)
|
' theClient = _OPENCLIENT("TCP/IP:80:" + url2$)
|
||||||
IF theClient = 0 THEN Download = MKI$(2): prevUrl$ = "": EXIT FUNCTION
|
' IF theClient = 0 THEN Download = MKI$(2): prevUrl$ = "": EXIT FUNCTION
|
||||||
END IF
|
' END IF
|
||||||
e$ = CHR$(13) + CHR$(10) ' end of line characters
|
' e$ = CHR$(13) + CHR$(10) ' end of line characters
|
||||||
url3$ = RIGHT$(url$, LEN(url$) - x + 1)
|
' url3$ = RIGHT$(url$, LEN(url$) - x + 1)
|
||||||
x$ = "GET " + url3$ + " HTTP/1.1" + e$
|
' x$ = "GET " + url3$ + " HTTP/1.1" + e$
|
||||||
x$ = x$ + "Host: " + url2$ + e$ + e$
|
' x$ = x$ + "Host: " + url2$ + e$ + e$
|
||||||
PUT #theClient, , x$
|
' PUT #theClient, , x$
|
||||||
t! = TIMER ' start time
|
' t! = TIMER ' start time
|
||||||
END IF
|
' END IF
|
||||||
|
|
||||||
GET #theClient, , a2$
|
' GET #theClient, , a2$
|
||||||
a$ = a$ + a2$
|
' a$ = a$ + a2$
|
||||||
i = INSTR(a$, lookFor$)
|
' i = INSTR(a$, lookFor$)
|
||||||
IF i THEN
|
' IF i THEN
|
||||||
outputVar$ = a$
|
' outputVar$ = a$
|
||||||
Download = MKI$(1) + MKL$(i) 'indicates download was successful
|
' Download = MKI$(1) + MKL$(i) 'indicates download was successful
|
||||||
prevUrl$ = ""
|
' prevUrl$ = ""
|
||||||
prevUrl2$ = ""
|
' prevUrl2$ = ""
|
||||||
a$ = ""
|
' a$ = ""
|
||||||
CLOSE theClient
|
' CLOSE theClient
|
||||||
theClient = 0
|
' theClient = 0
|
||||||
EXIT FUNCTION
|
' EXIT FUNCTION
|
||||||
END IF ' i
|
' END IF ' i
|
||||||
IF TIMER > t! + timelimit THEN CLOSE theClient: theClient = 0: Download = MKI$(3): prevUrl$ = "": EXIT FUNCTION
|
' IF TIMER > t! + timelimit THEN CLOSE theClient: theClient = 0: Download = MKI$(3): prevUrl$ = "": EXIT FUNCTION
|
||||||
Download = MKI$(0) 'still working
|
' Download = MKI$(0) 'still working
|
||||||
END FUNCTION
|
'END FUNCTION
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue