Curiosity has overtaken me

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|574\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Curiosity has overtaken me
Page : 1 Prev 2 Next
Sat, 28 Apr 2007, 14:56
Paul	yup, it can A little tip, do .jpg last, I've heard it's the most difficult to do.
Sat, 28 Apr 2007, 14:58
Blitz3Dman	ARG my head hurts... can the demo version load .png? -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sat, 28 Apr 2007, 15:09
bram32	No, the demo can't load images. In the manual it says: The demo version of Blitz Basic supports BMP files; the full retail version of Blitz Basic supports JPG and PNG format as well However, this host: imageho.st/ allows for .bmp
Sat, 28 Apr 2007, 15:11
Blitz3Dman	How about B3D?
Sat, 28 Apr 2007, 15:14
bram32	Ow .. ah, I didn't see that .. I have b3d, so I suppose they mean that.
Sat, 28 Apr 2007, 15:57
Blitz3Dman	Oh... well, I suppose sownloading them, storing in a file that it's been downloaded so it doesn't continue to do it each execution would be interesting. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 29 Apr 2007, 04:56
Paul	This doesn't solve the original problem with downloading the files though. If anyone has any ideas on how to make get the downloading to work then i'd like to know... please
Sun, 29 Apr 2007, 05:54
Blitz3Dman	If anybody can find webpages that specifically are for file structure of images and are easy to understand and will tell me they are saved as a byte, a short, a long (which hopefully not cause I'd also need to write a function for blitz to read and write longs ), an integer, a string, or a float, or somthing mysterious that's not any of those, and has an English explanation of what it does, I'll try and work on the program to read that image format. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 29 Apr 2007, 07:32
bram32	@Paul, try the BlitzGet function. I seem to be able to download the file with it. The link is in the second post of this thread. @Blitz3Dman, maybe I don't understand the problem correctly, but if you upload a bitmap to that page, right-click on the picture, choose properties and copy the url, you can download the file as a .bmp. If you want to download the file directly into memory: the data in a BMP file can be read as bytes. If you save it as a 24-bit bitmap, each byte is one color channel (RGB). However, you would need to skip the header information first. You can look up the size of the BMP header in google. Another approach would be taking a look at BlitzGet. It works in the same manner as the above code, but it strips the TCP header information to read the size of the file, and it is capable of downloading the BMP onto disk without modifying the code. With the command 'FileType' you can check if the file is downloaded allready. I have to go now, but if you still have trouble with it I could maybe help later on.
Sun, 29 Apr 2007, 07:37
Blitz3Dman	Hmm... what I mean is, I want to make a command exactly the same as loadimage, and then loadanimimage which, instead of checking for the file on your disk, it finds it online and stores it in memory. Not on your computer but for example, loadimage reads an image once and then you can do whatever with it. I want this command to grab an online image so people can make small games with no images in the file because they uploaded them to the internet, take, for example, using the {img} tag. It finds the online data and constructs an image from it. THat's exactly what I want to do, except in Blitz. In fact, if Jayenkai doesn't mind, I think I'd like to have a peek at the web code used to do that. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 29 Apr 2007, 10:04
Paul	Ill have a look at the glitzget and get back when(and if) i get anything working \|edit\| yay, got it to work, don't see the reason to use anything else since this seems to work better than anything I could do.
Sun, 29 Apr 2007, 13:54
bram32	Here, this is what I got so far .. it downloads a .bmp from somewhere (files from imageho.st didn't work ) and draws it onto the screen with writepixelfast: ; ID: 24 ; Author: BlitzSupport ; Date: 2001-09-03 00:34:48 ; Title: BlitzGet Deluxe ; Description: Downloads given HTTP (www) file to disk ; ----------------------------------------------------------------------------- ; BlitzGet Deluxe -- based on Mark Sibly's HTTPGet code... ; ----------------------------------------------------------------------------- ; WARNING: WILL OVERWRITE EXISTING FILES OF THE SAME NAME! ; ----------------------------------------------------------------------------- ; ----------------------------------------------------------------------------- ; To do: ; ----------------------------------------------------------------------------- ; ; NEED TO CHECK FOR CUTOFFS and... gulp... RESUME? Currently keeps d/l'ing ; nothing if the download is aborted by the server, until the full byte-count ; has been "downloaded"... maybe I'll just say "d/l bombed out" for now...! :) ; ; Parse headers for: ; 404 ; ; More to come... ; ; ----------------------------------------------------------------------------- ; ----------------------------------------------------------------------------- ; Quick demo... downloads to your Windows "Temp" folder ; ----------------------------------------------------------------------------- AppTitle "BlitzGet Deluxe" Graphics 800, 600, 0, 2 ;SetBuffer BackBuffer () BlitzGetImage ("https://www.hannekegroenteman.nl/images/klaas_kan.bmp_copy.bmp");https://www.d10.karoo.net/ruby/quiz/50/duck.bmp") ;Flip Print "pressakey" WaitKey() End Global header$ Global bytesToRead Global date$ Global server$ Global contentType$ Global initialReply$ ; ----------------------------------------------------------------------------- ; File download function ; ----------------------------------------------------------------------------- ; webFile$ -- file to download ; ----------------------------------------------------------------------------- ; Note that if you just provide a web server address, the document downloaded will ; be named "Unknown file.txt" ; ----------------------------------------------------------------------------- Function BlitzGetImage (webFile$) ; ------------------------------------------------------------------------- ; Strip "https://" if provided ; ------------------------------------------------------------------------- If Left (webFile$, 7) = "https://" Then webFile$ = Right (webFile$, Len (webFile$) - 7) ; ------------------------------------------------------------------------- ; Split into hostname and path/filename to download ; ------------------------------------------------------------------------- slash = Instr (webFile$, "/") If slash webHost$ = Left (webFile$, slash - 1) webFile$ = Right (webFile$, Len (webFile$) - slash + 1) Else webHost$ = webFile$ webFile$ = "/" EndIf www = OpenTCPStream (webHost$, 80) If www WriteLine www, "GET " + webFile$ + " HTTP/1.1" ; GET / gets default page... WriteLine www, "Host: " + webHost$ WriteLine www, "User-Agent: BlitzGet Deluxe" WriteLine www, "Accept: /" WriteLine www, "" ; --------------------------------------------------------------------- ; Find blank line after header data, where the action begins... ; --------------------------------------------------------------------- x = 0 y = 0 LockBuffer() Repeat Cls header$ = ReadLine (www) reply$ = "" pos = Instr (header$, ": ") If pos reply$ = Left (header$, pos + 1) EndIf Select Lower (reply$) Case "content-length: " bytesToRead = ReplyContent (header$, reply$) Case "date: " date$ = ReplyContent (header$, reply$) Case "server: " server$ = ReplyContent (header$, reply$) Case "content-type: " contentType$ = ReplyContent (header$, reply$) Default If gotReply = 0 Then initialReply$ = header$: gotReply = 1 End Select DisplayResponse () Flip Until header$ = "" Or (Eof (www)) If bytesToRead = 0 Then Goto skipDownLoad ; --------------------------------------------------------------------- ; Incredibly complex download-to-file routine... ; --------------------------------------------------------------------- For readWebFile = 1 To bytesToRead If Not Eof (www) Then R = ReadByte (www) G = ReadByte (www) B = ReadByte (www) WritePixelFast x, y, R Shl 16 + G Shl 8 + B x = x + 1 If x = 800 Then x = 0 y = y + 1 End If End If Next ; Fully downloaded? If (readWebFile - 1) = bytesToRead success = 1 EndIf ; Final update (so it's not rounded to nearest 100 bytes!) BytesReceived (bytesToRead, bytesToRead) .skipDownload CloseTCPStream www Else RuntimeError "Failed to connect" EndIf UnlockBuffer() Return success End Function ; ----------------------------------------------------------------------------- ; User-defined update function, called every 100 bytes of download -- alter to suit! ; ----------------------------------------------------------------------------- ; TIP: Pass a user-defined type instead, with all data (this stuff plus URL, local filename, etc) ; ----------------------------------------------------------------------------- Function BytesReceived (posByte, totalBytes) ; Example update code... Cls Text 0, 10, "Downloading file -- please wait..." Text 0, 30, "Received: " + posByte + "/" + totalBytes + " bytes (" + Percent (posByte, totalBytes) + "%)" DisplayResponse () Flip End Function ; ----------------------------------------------------------------------------- ; Handy percentage function ; ----------------------------------------------------------------------------- Function Percent (part#, total#) Return Int (100 * (part / total)) End Function Function ReplyContent$ (header$, reply$) Return Right (header$, Len (header$) - Len (reply$)) End Function ; Temporary, for quick results... Function DisplayResponse () Text 0, 80, "Header: " + initialReply$ Text 0, 100, "Date: " + date$ Text 0, 120, "Server: " + server$ Text 0, 140, "Content-Type: " + contentType$ Text 0, 160, "Content-Length: " + bytesToRead End Function --v
Sun, 29 Apr 2007, 14:02
Blitz3Dman	Alright, there's .bmp! except, it didn't seem to be detecting the imageheight and width bytes... -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 29 Apr 2007, 14:18
Blitz3Dman	Ok, I've done some tests and concluded that image width and height are stored as shorts in bytes 20&21 and bytes 24&25, respectively. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 29 Apr 2007, 14:19
bram32	(edit) Ah .. okay .. you solved it .. Nice work !
Sun, 29 Apr 2007, 14:25
Blitz3Dman	Wait, hold on I think it uses bytes if it's under 256 wide or high, lemme do some more tests... \|edit\| no, I think I had it right. now to find out what the other 20 or so bytes are for :/ \|edit\| -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 29 Apr 2007, 14:36
Blitz3Dman	Aha! Thank you, wikipedia! they are stored as integers in bytes 18,19,20,21 and 22,23,24,25. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 29 Apr 2007, 15:27
Blitz3Dman	ALRIGHT! WOOHOO! Ok, the .bmp file format has been done. this reads an image on the drive. I'm implementing it into the online function now. Global file=ReadFile("screenshot.bmp") If Not Chr (ReadByte(file))="B" Then RuntimeError"File does not have the signature of a .bmp" If Not Chr (ReadByte(file))="M" Then RuntimeError"File does not have the signature of a .bmp" For worthlessjunk=1 To 16 dumpdata=ReadByte(file) Next iw=ReadInt(file):DebugLog"Image width is: "+iw ih=ReadInt(file):DebugLog"Image height is: "+ih worthless=ReadShort(file) worthless=ReadShort(file) useful=ReadShort(file) If useful<>0 Then RuntimeError("Sorry, but this bmp format is not supported.") For dump=1 To 22 garbage=ReadByte(file) Next Repeat If KeyHit(1) Then Stop For rgb=1 To 3 Select rgb Case 1:r=ReadByte(file):cout(r) Case 2:g=ReadByte(file):cout(g) Case 3:b=ReadByte(file):cout(b):Color r,g,b:Plot x,y:x=x+1:If x=iw Then x=0:y=y+1 End Select Next Until Eof(file) WaitKey End Function cout(num) DebugLog "("+(100*FilePos(file))/FileSize("screenshot.bmp")+"%)byte "+FilePos(file)+" of "+FileSize("screenshot.bmp")+": "+num End Function --v And this is the online code and it is great! (and the image is supposed to be upside down like that, right?) Graphics 800,600,0,1 SetBuffer BackBuffer() wwwimg=LoadWebImage("https://www.d10.karoo.net/ruby/quiz/50/duck.bmp") Repeat Cls DrawImage wwwimg,0,0 If KeyDown(1) Then End Flip Forever Function LoadWebImage(url$) Local tcp,file=0,pos=7,server$="" Local bmp=1:png=2:jpg=3:gif=4 Repeat pos=pos+1 found=1 If Mid(url$,pos,1)<>"/" Then found=0:server$=server$+Mid(url$,pos,1) DebugLog"Finding server..." Until found=1 DebugLog"Server detected at: "+server ;connect DebugLog"Connecting to server..." tcp=OpenTCPStream(server$,80) ;ok? If tcp Then DebugLog"Connection to server successful." ;request file DebugLog"Requesting file..." WriteLine tcp,"GET "+url$ WriteLine tcp,Chr$(10) DebugLog"File retrieved." If ReadByte(tcp)=Asc("B") And ReadByte(tcp)=Asc("M") Then DebugLog"Image is a .bmp":file=bmp If file=0 Then SeekFile tcp,0 If ReadByte(tcp)=137 And ReadByte(tcp)=80 And ReadByte(tcp)=78 And ReadByte(tcp)=71 And ReadByte(tcp)=13 And ReadByte(tcp)=10 And ReadByte(tcp)=26 And ReadByte(tcp)=10 Then DebugLog"Image is a .png":file=1 EndIf EndIf If file=0 Then RuntimeError"Online data is not a supported image file format." If file=bmp Then For worthlessjunk=1 To 16 dumpdata=ReadByte(tcp) Next ms=MilliSecs() iw=ReadInt(tcp):DebugLog"Image width is: "+iw ih=ReadInt(tcp):DebugLog"Image height is: "+ih ;make output image img=CreateImage(iw,ih) SetBuffer ImageBuffer(img) worthless=ReadShort(tcp) worthless=ReadShort(tcp) useful=ReadShort(tcp) If useful<>0 Then RuntimeError("Sorry, but this bmp format is not supported.") For dump=1 To 22 garbage=ReadByte(tcp) Next Repeat If KeyHit(1) Then Stop For rgb=1 To 3 Select rgb Case 1:r=ReadByte(tcp) Case 2:g=ReadByte(tcp) Case 3:b=ReadByte(tcp):Color r,g,b:Plot x,y:x=x+1:If x=iw Then x=0:y=y+1 End Select Next Until Eof(tcp) EndIf ;ok SetBuffer BackBuffer():DebugLog"Download successful!":Return img Else DebugLog"Connection to server failed." EndIf End Function WaitKey() End --v -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Sun, 29 Apr 2007, 18:36
bram32	nice .. you can flip the image using: ScaleImage wwwimg, 1, -1 HandleImage wwwimg, 0, 0 Also, I think the r,b and g are reversed somehow. But, it seems to work, so good job! Now all you need is a host for the picutres, right? Maybe you could try using ifastnet.com ? It is free and has no banners. It is possible to upload your images onto it.
Sun, 29 Apr 2007, 20:36
JL235	It's probably upside down because the lines in a .bmp are stored in reverse order. The data in the line itself is not stored in reverse order (I think it's like that), just the order of the lines. So the first line you read is actually the last, and the last is actually the first. I'd also recommend that you draw the image correctly, rather then use scale image to flip it. Using scale image may cause artifacts in the image, and it will be slower.
Mon, 30 Apr 2007, 05:06
Blitz3Dman	Yea, I just found that out. And imageho.st does work! the values are stored bgr and from top to bottom. \|edit\| bottom to top, I mean \|edit\| Graphics 800,600,0,2 SetBuffer BackBuffer() wwwimg=LoadWebImage("https://www.d10.karoo.net/ruby/quiz/50/duck.bmp") Repeat Cls DrawImage wwwimg,0,0 If KeyDown(1) Then End Flip Forever Function LoadWebImage(url$) Local tcp,file=0,pos=7,server$="" Local bmp=1:png=2:jpg=3:gif=4 DebugLog"Finding server..." Repeat pos=pos+1 found=1 If Mid(url$,pos,1)<>"/" Then found=0:server$=server$+Mid(url$,pos,1) Until found=1 DebugLog"Server detected at: "+server ;connect DebugLog"Connecting to server..." tcp=OpenTCPStream(server$,80) ;ok? If tcp Then DebugLog"Connection to server successful." ;request file DebugLog"Requesting file..." WriteLine tcp,"GET "+url$ WriteLine tcp,Chr$(10) DebugLog"File retrieved." If ReadByte(tcp)=Asc("B") And ReadByte(tcp)=Asc("M") Then DebugLog"Image is a .bmp":file=bmp If file=0 Then SeekFile tcp,0 If ReadByte(tcp)=137 And ReadByte(tcp)=80 And ReadByte(tcp)=78 And ReadByte(tcp)=71 And ReadByte(tcp)=13 And ReadByte(tcp)=10 And ReadByte(tcp)=26 And ReadByte(tcp)=10 Then DebugLog"Image is a .png":file=1 EndIf EndIf If file=0 Then RuntimeError"Online data is not a supported image file format." If file=bmp Then For worthlessjunk=1 To 16 dumpdata=ReadByte(tcp) Next ms=MilliSecs() iw=ReadInt(tcp):DebugLog"Image width is: "+iw ih=ReadInt(tcp):DebugLog"Image height is: "+ih ;make output image img=CreateImage(iw,ih) SetBuffer ImageBuffer(img) worthless=ReadShort(tcp) worthless=ReadShort(tcp) useful=ReadShort(tcp) If useful<>0 Then RuntimeError("Sorry, but this bmp format is not supported.") For dump=1 To 22 garbage=ReadByte(tcp) Next Repeat If KeyHit(1) Then End For rgb=1 To 3 Select rgb Case 1:b=ReadByte(tcp) Case 2:g=ReadByte(tcp) Case 3:r=ReadByte(tcp):Color r,g,b:Plot x,ih-y-1:x=x+1:If x=iw Then x=0:y=y+1 End Select Next Until Eof(tcp) EndIf ;ok SetBuffer BackBuffer():DebugLog"Download successful!":Return img Else DebugLog"Connection to server failed." EndIf End Function WaitKey() End --v \|edit\| I was using imageheight instead of width when subtracting to draw bottom to top. I've fixed that now. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Mon, 30 Apr 2007, 05:26
Paul	Nice, Works perfectly here
Mon, 30 Apr 2007, 06:17
Jayenkai	Lately we've learned that the speed some things run is ludicrously different, depending on the system. But.. Is that program really supposed to take that long? Graphics 800,600,0,2 SetBuffer BackBuffer() wwwimg=LoadWebImage("https://www.d10.karoo.net/ruby/quiz/50/duck.bmp") Repeat Cls DrawImage wwwimg,0,0 ;Text 1,1,"WTF?" If KeyDown(1) Then End Flip Forever Function LoadWebImage(url$) Local tcp,file=0,pos=7,server$="" Local bmp=1:png=2:jpg=3:gif=4 DebugLog"Finding server..." Repeat pos=pos+1 found=1 If Mid(url$,pos,1)<>"/" Then found=0:server$=server$+Mid(url$,pos,1) Until found=1 DebugLog"Server detected at: "+server ;connect DebugLog"Connecting to server..." tcp=OpenTCPStream(server$,80) ;ok? If tcp Then DebugLog"Connection to server successful." ;request file DebugLog"Requesting file..." WriteLine tcp,"GET "+url$ WriteLine tcp,Chr$(10) DebugLog"File retrieved." If ReadByte(tcp)=Asc("B") And ReadByte(tcp)=Asc("M") Then DebugLog"Image is a .bmp":file=bmp If file=0 Then SeekFile tcp,0 If ReadByte(tcp)=137 And ReadByte(tcp)=80 And ReadByte(tcp)=78 And ReadByte(tcp)=71 And ReadByte(tcp)=13 And ReadByte(tcp)=10 And ReadByte(tcp)=26 And ReadByte(tcp)=10 Then DebugLog"Image is a .png":file=1 EndIf EndIf If file=0 Then RuntimeError"Online data is not a supported image file format." If file=bmp Then For worthlessjunk=1 To 16 dumpdata=ReadByte(tcp) Next ms=MilliSecs() iw=ReadInt(tcp):DebugLog"Image width is: "+iw ih=ReadInt(tcp):DebugLog"Image height is: "+ih ;make output image img=CreateImage(iw,ih) ; SetBuffer ImageBuffer(img) worthless=ReadShort(tcp) worthless=ReadShort(tcp) useful=ReadShort(tcp) If useful<>0 Then RuntimeError("Sorry, but this bmp format is not supported.") For dump=1 To 22 garbage=ReadByte(tcp) Next Repeat ImgData$="" t=0 Repeat If KeyHit(1) Then End For n=1 To 3 t=t+1 imgdata$=imgdata$+Chr$(ReadByte(tcp)) Next Until ((t>2500) Or Eof(tcp)) at=0 LockBuffer ImageBuffer(img) Repeat If KeyHit(1) Then End For rgb=1 To 3 at=at+1 Select rgb Case 1:b=Asc(Mid$(imgdata$,at,1)) Case 2:g=Asc(Mid$(imgdata$,at,1)) Case 3:r=Asc(Mid$(imgdata$,at,1)):WritePixelFast x,ih-y-1,(255 Shl 24)+(r Shl 16)+(g Shl 8)+b,ImageBuffer(img):x=x+1:If x=iw Then x=0:y=y+1 End Select Next Until at=Len(ImgData$) UnlockBuffer ImageBuffer(img) DrawImage img,0,0 Flip False Until Eof(tcp) EndIf ;ok SetBuffer BackBuffer():DebugLog"Download successful!":Return img Else DebugLog"Connection to server failed." EndIf End Function WaitKey() End --v Things are quicker if you Bulk-Read, so I re-wrote a little section to buffer 2500 * 3's, then draw, then repeat. (Hope you don't mind) -=-=- ''Load, Next List!''
Mon, 30 Apr 2007, 06:24
Blitz3Dman	Yes, I know it's that slow , and I was going to speed it up a bit after I finished my WW entry. -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Mon, 30 Apr 2007, 06:32
Jayenkai	That's good to know.. I was worried my PC might be doing odd things, but at least it's not drawing 30 seconds after it's meant to have finished -=-=- ''Load, Next List!''
Mon, 30 Apr 2007, 13:49
Blitz3Dman	Watch the debuglug, it tells you what's happening -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Page : 1 Prev 2 Next