help needed, i want to make a simple web browser from raw dbpro, i am unfortunately a newb at programming and i need some assistance
gosub setup
gosub Vars
gosub EnterUrl
do
gosub drawtext
gosub Info
loop
setup:
set window on:set display mode 800,600,32
color backdrop rgb(255,255,255):backdrop on
ink rgbforevalue,rgbbackvalue
return
Vars:
http$="http://"
url$=""
fulladress$=http$+url$
enterbutton$="enter"
rem ********************
BrowserBG=1
rgbforevalue=rgb(0,0,0)
rbgbackvalue=rgb(0,0,0)
rem ********************
currentfile=1
currentfile$=""
currentfilestore$=""
return
EnterUrl:
rem set cursor 0,450
print "hello user!"
print
input "enter a url-_"
input currentfile$
LoadFile(currentfile$)
gosub DrawText
return
function LoadFile(currentfile$)
open to read currentfile,currentfile$
while file end(currentfile)=0
repeat
read string currentfile,currentfilestore$
until file end(currentfile)=1
close file currentfile
endwhile
endfunction
remstart
function parser(parseme$,"/")
dim currentfile$(999)
endfunction
remend
DrawText:
rem parser(parseme$,"/")
rem set cursor 0,0
print currentfilestore$
line 400,0,400,400
return
Info:
rem set cursor 0,400
print currentfile$
return
my goal is to use d3d or ogl and to move most of the processing onto my graphics,but one step at a time. currently all i want is to read my index.html file, will research how to parse or interpret later, just want to dump the raw html into a string and display it.
guess what
