QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-02 23:31:21 +00:00
Code Releases Wiki Activity

Comment out Download function from IDE code

Browse source 
Method is no longer used in this version, due to
changes in qb64.org
This commit is contained in:
FellippeHeitor 2022-01-20 19:55:58 -03:00
parent e70fb238f6
commit f64c882bc6
1 changed files with 46 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

92
source/ide/ide_methods.bas
View file

@ -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