1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 03:49:56 +00:00

Add Option _ExplicitArray to sources

This commit is contained in:
Samuel Gomes 2022-10-16 20:28:00 +05:30
parent 2719b4801a
commit 72368e2ca2
7 changed files with 103 additions and 92 deletions

View file

@ -1,4 +1,5 @@
Option _Explicit Option _Explicit
Option _ExplicitArray
$ExeIcon:'.\resources\InForm.ico' $ExeIcon:'.\resources\InForm.ico'
@ -5352,3 +5353,4 @@ Function OutsideQuotes%% (text$, position As Long)
End Function End Function
'$include:'InForm.ui' '$include:'InForm.ui'

View file

@ -1,4 +1,5 @@
Option _Explicit Option _Explicit
Option _ExplicitArray
Dim Shared UiEditorPID As Long, ExeIcon As Long Dim Shared UiEditorPID As Long, ExeIcon As Long
Dim Shared AutoNameControls As _Byte Dim Shared AutoNameControls As _Byte
@ -3990,3 +3991,4 @@ Function LoadEditorImage& (FileName$)
End Function End Function
'$include:'InForm.ui' '$include:'InForm.ui'

View file

@ -1,63 +1,63 @@
FUNCTION Download$ (url$, file$, timelimit) STATIC Function Download$ (url$, file$, 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 with InForm 'adapted for use with InForm
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
IF theClient THEN CLOSE theClient: theClient = 0 If theClient Then Close theClient: theClient = 0
EXIT SUB 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$, "Content-Length:") i = InStr(a$, "Content-Length:")
IF i THEN If i Then
i2 = INSTR(i, a$, e$) i2 = InStr(i, a$, e$)
IF i2 THEN If i2 Then
l = VAL(MID$(a$, i + 15, i2 - i - 14)) l = Val(Mid$(a$, i + 15, i2 - i - 14))
i3 = INSTR(i2, a$, e$ + e$) i3 = InStr(i2, a$, e$ + e$)
IF i3 THEN If i3 Then
i3 = i3 + 4 'move i3 to start of data i3 = i3 + 4 'move i3 to start of data
IF (LEN(a$) - i3 + 1) = l THEN If (Len(a$) - i3 + 1) = l Then
d$ = MID$(a$, i3, l) d$ = Mid$(a$, i3, l)
fh = FREEFILE fh = FreeFile
OPEN file$ FOR OUTPUT AS #fh: CLOSE #fh 'Warning! Clears data from existing file Open file$ For Output As #fh: Close #fh 'Warning! Clears data from existing file
OPEN file$ FOR BINARY AS #fh Open file$ For Binary As #fh
PUT #fh, , d$ Put #fh, , d$
CLOSE #fh Close #fh
Download = MKI$(1) + MKL$(l) 'indicates download was successful Download = MKI$(1) + MKL$(l) 'indicates download was successful
prevUrl$ = "" prevUrl$ = ""
prevUrl2$ = "" prevUrl2$ = ""
a$ = "" a$ = ""
CLOSE theClient Close theClient
theClient = 0 theClient = 0
EXIT FUNCTION Exit Function
END IF ' availabledata = l End If ' availabledata = l
END IF ' i3 End If ' i3
END IF ' i2 End If ' i2
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

View file

@ -5,10 +5,10 @@
'----------------------------------------------------------- '-----------------------------------------------------------
': Controls' IDs: ------------------------------------------------------------------ ': Controls' IDs: ------------------------------------------------------------------
DIM SHARED gifplaySample AS LONG Dim Shared gifplaySample As Long
DIM SHARED PictureBox1 AS LONG Dim Shared PictureBox1 As Long
DIM SHARED LoadBT AS LONG Dim Shared LoadBT As Long
DIM SHARED PlayBT AS LONG Dim Shared PlayBT As Long
': External modules: --------------------------------------------------------------- ': External modules: ---------------------------------------------------------------
'$INCLUDE:'gifplay.bi' '$INCLUDE:'gifplay.bi'
@ -95,3 +95,4 @@ SUB __UI_FormResized
END SUB END SUB
'$INCLUDE:'..\InForm.ui' '$INCLUDE:'..\InForm.ui'

View file

@ -5,38 +5,38 @@
'----------------------------------------------------------- '-----------------------------------------------------------
': Controls' IDs: ------------------------------------------------------------------ ': Controls' IDs: ------------------------------------------------------------------
DIM SHARED InFormSetup AS LONG Dim Shared InFormSetup As Long
DIM SHARED PictureBox2 AS LONG Dim Shared PictureBox2 As Long
DIM SHARED InFormresourcesApplicationicon128PX AS LONG Dim Shared InFormresourcesApplicationicon128PX As Long
DIM SHARED InFormLB AS LONG Dim Shared InFormLB As Long
DIM SHARED forQB64LB AS LONG Dim Shared forQB64LB As Long
DIM SHARED ListBox1 AS LONG Dim Shared ListBox1 As Long
DIM SHARED RetryBT AS LONG Dim Shared RetryBT As Long
DIM SHARED CancelBT AS LONG Dim Shared CancelBT As Long
DIM SHARED ActivityIndicator AS LONG Dim Shared ActivityIndicator As Long
$VERSIONINFO:FILEVERSION#=0,0,0,1 $VersionInfo:FILEVERSION#=0,0,0,1
$VERSIONINFO:PRODUCTVERSION#=0,0,0,7 $VersionInfo:PRODUCTVERSION#=0,0,0,7
$VERSIONINFO:CompanyName=Fellippe Heitor $VersionInfo:CompanyName=Fellippe Heitor
$VERSIONINFO:FileDescription=InForm - GUI library for QB64 $VersionInfo:FileDescription=InForm - GUI library for QB64
$VERSIONINFO:FileVersion=v0.1 $VersionInfo:FileVersion=v0.1
$VERSIONINFO:InternalName=InFormSetup.bas $VersionInfo:InternalName=InFormSetup.bas
$VERSIONINFO:LegalCopyright=Open source $VersionInfo:LegalCopyright=Open source
$VERSIONINFO:OriginalFilename=InFormSetup.exe $VersionInfo:OriginalFilename=InFormSetup.exe
$VERSIONINFO:ProductName=InForm Setup $VersionInfo:ProductName=InForm Setup
$VERSIONINFO:ProductVersion=v0.7 $VersionInfo:ProductVersion=v0.7
$VERSIONINFO:Comments=Requires the latest build of QB64 $VersionInfo:Comments=Requires the latest build of QB64
$VERSIONINFO:Web=www.qb64.org/inform $VersionInfo:Web=www.qb64.org/inform
DIM SHARED binaryExtension$, pathAppend$ Dim Shared binaryExtension$, pathAppend$
$IF WIN THEN $If WIN Then
binaryExtension$ = ".exe" binaryExtension$ = ".exe"
pathAppend$ = "" pathAppend$ = ""
$ELSE $Else
binaryExtension$ = "" binaryExtension$ = ""
pathAppend$ = "./" pathAppend$ = "./"
$END IF $End If
': External modules: --------------------------------------------------------------- ': External modules: ---------------------------------------------------------------
'$INCLUDE:'../InForm.bi' '$INCLUDE:'../InForm.bi'
@ -1941,3 +1941,4 @@ FUNCTION IconData$
END FUNCTION END FUNCTION
'$INCLUDE:'../InForm.ui' '$INCLUDE:'../InForm.ui'

View file

@ -5,26 +5,26 @@
'----------------------------------------------------------- '-----------------------------------------------------------
': Controls' IDs: ------------------------------------------------------------------ ': Controls' IDs: ------------------------------------------------------------------
DIM SHARED InFormUpdater AS LONG Dim Shared InFormUpdater As Long
DIM SHARED PictureBox2 AS LONG Dim Shared PictureBox2 As Long
DIM SHARED InFormresourcesApplicationicon128PX AS LONG Dim Shared InFormresourcesApplicationicon128PX As Long
DIM SHARED InFormLB AS LONG Dim Shared InFormLB As Long
DIM SHARED forQB64LB AS LONG Dim Shared forQB64LB As Long
DIM SHARED ListBox1 AS LONG Dim Shared ListBox1 As Long
DIM SHARED RetryBT AS LONG Dim Shared RetryBT As Long
DIM SHARED CancelBT AS LONG Dim Shared CancelBT As Long
DIM SHARED ActivityIndicator AS LONG Dim Shared ActivityIndicator As Long
DIM SHARED binaryExtension$, pathAppend$ Dim Shared binaryExtension$, pathAppend$
DIM SHARED CheckDevUpdates AS _BYTE Dim Shared CheckDevUpdates As _Byte
$IF WIN THEN $If WIN Then
binaryExtension$ = ".exe" binaryExtension$ = ".exe"
pathAppend$ = "" pathAppend$ = ""
$ELSE $Else
binaryExtension$ = "" binaryExtension$ = ""
pathAppend$ = "./" pathAppend$ = "./"
$END IF $End If
': External modules: --------------------------------------------------------------- ': External modules: ---------------------------------------------------------------
'$INCLUDE:'../InForm.bi' '$INCLUDE:'../InForm.bi'
@ -418,3 +418,4 @@ SUB __UI_FormResized
END SUB END SUB
'$INCLUDE:'../InForm.ui' '$INCLUDE:'../InForm.ui'

View file

@ -1,4 +1,8 @@
Option _Explicit Option _Explicit
Option _ExplicitArray
$Console:Only
_Dest _Console
'$INCLUDE:'InFormVersion.bas' '$INCLUDE:'InFormVersion.bas'