QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-01 02:10:38 +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&
END FUNCTION
FUNCTION Download$ (url$, outputVar$, lookFor$, timelimit) STATIC
'as seen on http://www.qb64.org/wiki/Downloading_Files
'adapted for use in the IDE
'FUNCTION Download$ (url$, outputVar$, lookFor$, timelimit) STATIC
' 'as seen on http://www.qb64.org/wiki/Downloading_Files
' 'adapted for use in the IDE
DIM theClient AS LONG, l AS LONG
DIM prevUrl$, prevUrl2$, url2$, x AS LONG
DIM e$, url3$, x$, t!, a2$, a$, i AS LONG
DIM i2 AS LONG, i3 AS LONG, d$, fh AS LONG
' DIM theClient AS LONG, l AS LONG
' DIM prevUrl$, prevUrl2$, url2$, x AS LONG
' DIM e$, url3$, x$, t!, a2$, a$, i AS LONG
' DIM i2 AS LONG, i3 AS LONG, d$, fh AS LONG
IF url$ <> prevUrl$ OR url$ = "" THEN
prevUrl$ = url$
IF url$ = "" THEN
prevUrl2$ = ""
IF theClient THEN CLOSE theClient: theClient = 0
EXIT FUNCTION
END IF
url2$ = url$
x = INSTR(url2$, "/")
IF x THEN url2$ = LEFT$(url$, x - 1)
IF url2$ <> prevUrl2$ THEN
prevUrl2$ = url2$
IF theClient THEN CLOSE theClient: theClient = 0
theClient = _OPENCLIENT("TCP/IP:80:" + url2$)
IF theClient = 0 THEN Download = MKI$(2): prevUrl$ = "": EXIT FUNCTION
END IF
e$ = CHR$(13) + CHR$(10) ' end of line characters
url3$ = RIGHT$(url$, LEN(url$) - x + 1)
x$ = "GET " + url3$ + " HTTP/1.1" + e$
x$ = x$ + "Host: " + url2$ + e$ + e$
PUT #theClient, , x$
t! = TIMER ' start time
END IF
' IF url$ <> prevUrl$ OR url$ = "" THEN
' prevUrl$ = url$
' IF url$ = "" THEN
' prevUrl2$ = ""
' IF theClient THEN CLOSE theClient: theClient = 0
' EXIT FUNCTION
' END IF
' url2$ = url$
' x = INSTR(url2$, "/")
' IF x THEN url2$ = LEFT$(url$, x - 1)
' IF url2$ <> prevUrl2$ THEN
' prevUrl2$ = url2$
' IF theClient THEN CLOSE theClient: theClient = 0
' theClient = _OPENCLIENT("TCP/IP:80:" + url2$)
' IF theClient = 0 THEN Download = MKI$(2): prevUrl$ = "": EXIT FUNCTION
' END IF
' e$ = CHR$(13) + CHR$(10) ' end of line characters
' url3$ = RIGHT$(url$, LEN(url$) - x + 1)
' x$ = "GET " + url3$ + " HTTP/1.1" + e$
' x$ = x$ + "Host: " + url2$ + e$ + e$
' PUT #theClient, , x$
' t! = TIMER ' start time
' END IF
GET #theClient, , a2$
a$ = a$ + a2$
i = INSTR(a$, lookFor$)
IF i THEN
outputVar$ = a$
Download = MKI$(1) + MKL$(i) 'indicates download was successful
prevUrl$ = ""
prevUrl2$ = ""
a$ = ""
CLOSE theClient
theClient = 0
EXIT FUNCTION
END IF ' i
IF TIMER > t! + timelimit THEN CLOSE theClient: theClient = 0: Download = MKI$(3): prevUrl$ = "": EXIT FUNCTION
Download = MKI$(0) 'still working
END FUNCTION
' GET #theClient, , a2$
' a$ = a$ + a2$
' i = INSTR(a$, lookFor$)
' IF i THEN
' outputVar$ = a$
' Download = MKI$(1) + MKL$(i) 'indicates download was successful
' prevUrl$ = ""
' prevUrl2$ = ""
' a$ = ""
' CLOSE theClient
' theClient = 0
' EXIT FUNCTION
' END IF ' i
' IF TIMER > t! + timelimit THEN CLOSE theClient: theClient = 0: Download = MKI$(3): prevUrl$ = "": EXIT FUNCTION
' Download = MKI$(0) 'still working
'END FUNCTION