RottNet - Streaming files?

Blitz3D Forums/Blitz3D Programming/RottNet - Streaming files?

Guy Fawkes

(Posted 2012) [#1]

Hello all. Ive been messing with Rottnet. A WONDERFUL plugin I must say indeed.. Now I have a simple question... How do I stream anything like music and 3d models from the server, to the client?

Here's my code so far:

Server.bb:

; RottNet example server by Rob W (rottbott@...), August 2004

Include "RottNet.bb"

Print("Starting server...")
Host = RN_StartHost(5000, "MyGameData", 10, "Server.txt", False)
If Host = 0 Then RuntimeError("Couldn't open UDP port 25000!")
Print("Server started!")

RN_CreateGroup(Host, "Tom")
RN_CreateGroup(Host, "Dick")
RN_CreateGroup(Host, "Harry")

While Not KeyDown(1)

	Delay(10)
	RN_Update()

	For M.RN_Message = Each RN_Message
		Select M\MessageType
			Case 1
				Print M\MessageData$
			Case RN_NewPlayer
				Print("New player joined: " + RN_PlayerName$(Host, M\FromID) + ", " + RN_PlayerData$(Host, M\FromID))
				PlaySound(music%)
		End Select
		Delete(M)
	Next
	
	

Wend

Client.bb:

; RottNet example server by Rob W (rottbott@...), August 2004

Cls

Text GraphicsWidth()/2, GraphicsHeight()/2, "Checking Connection...", 1, 1

Delay 1000

Cls

Text GraphicsWidth()/2, GraphicsHeight()/2, "Please Wait...", 1, 1

Delay 1000

Cls

Flip

Graphics3D 800, 600, 0, 2

Global camera = CreateCamera()

Include "RottNet.bb"
Global Client = RN_Connect("98.227.253.56", 5000, 5001, "Rottbott", "MyData", "Client.txt", False)
Select Client
	Case RN_ConnectionInUse : RuntimeError("Somebody is already connected from this IP!")
	Case RN_PortInUse :       RuntimeError("Could not open a valid UDP port")
	Case RN_HostNotFound :    RuntimeError("Invalid host name")
	Case RN_TimedOut :        RuntimeError("No response from host")
	Case RN_ServerFull :      RuntimeError("Too many players already connected")
End Select

Print "Game data: " + RN_GameData$(Client)
Print "Number of groups: " + RN_CountGroups(Client)
Print
For i = 1 To RN_CountGroups(Client)
	Print "Group " + Str$(i) + ": " + RN_GroupName$(Client, i)
Next
Print 

T = MilliSecs()

Global music%

While Not KeyDown(1)
	
	
	
		; Update network
	RN_Update()
	
	
	
	If Client%<>-3
		
		; Send a hello message now and then
		If MilliSecs() - T > 2000
			
			RN_Send(Client, RN_Host, 1, "Hello there Mr Server!", True)
			
			
			music% = ReadFile("Miku - Paparazzi (Japanese Version).mp3")
			
			
			While Not Eof(music%)
				
			
				RN_Send(Client, RN_Host, 1, music%, True)
				
				
			Wend
			
			Print "Said hello to the server!"
			T = MilliSecs()
			
			;ALSO send a connection request
			RN_Send(Client, RN_Host, 1, Client, True)
			Print "Said "+Client%+" To the server!"
			T = MilliSecs()
			
		EndIf
		
		
	EndIf
	
	
	
	; Process incoming messages
	For M.RN_Message = Each RN_Message
		Select M\MessageType
			; Disconnected from host
			Case RN_HostHasLeft
				RN_Disconnect(Client)
				Text GraphicsWidth()/2, GraphicsHeight()/2, "The host left the game!", 1, 1
				Flip
		End Select
		Delete(M)
	Next
	
	
	
	Flip
	
	
	
Wend

Thank You for all your help! :)

Adam Novagen

(Posted 2012) [#2]

How do I stream anything like music and 3d models from the server, to the client?

One byte at a time.

And while there's a bit of cheek in that remark, no, I really do mean one byte at a time; it pretty much comes down to that. HOWEVER, I believe that - advanced programmers please correct me on this - UDP should not be used for actual media downloads like models and sounds. Literal streaming is like YouTube, it means that it downloads some audio/video data, then plays what it's downloaded so far while it downloads the rest. For this, reliability is not a huge concern, whereas speed is key.

For getting actual game resources, though, TCP should be used. It's slower per small packet of data, but the slow speed is caused by the fact that it's sent reliably and in order. When you want an "error-free" one-shot download, TCP is the protocol you want, not UDP. I'm assuming that this is what you need here, because you can't actually "stream" a 3D model.

I may live to regret this, but here's a completely successful HTTP download program, that grabs the "german.gif" flag icon from the top-left corner of this website, and saves it in the program's folder. The code can be (relatively) easily adapted to suit any file on the internet. See what you can make of it.

; OpenTCPStream/CloseTCPStream Example

Print "Connecting..."
tcp=OpenTCPStream( "www.blitzbasic.com",80 )

If Not tcp Print "Failed.":WaitKey:End

Print "Connected! Sending request..."

WriteLine tcp,"GET <img src="http://www.blitzbasic.com/img/german.gif"> HTTP/1.0"
WriteLine tcp,Chr$(10)

If Eof(tcp) Print "Failed.":WaitKey:End

Print "Request sent! Waiting for reply..."

file = WriteFile("german.gif")

Local DataBegin = False

While Not Eof(tcp)
	If DataBegin
		WriteByte file,ReadByte(tcp)
	Else
		; THIS IS THE IMPORTANT LINE.
		; When you get a file using an HTTP transfer protocol, there are several
		; lines of header data, followed by a blank line, and then the actual file
		; data. WHEN YOU REACH THE BLANK LINE, THE FILE DATA CAN BE WRITTEN BYTE BY BYTE.
		If ReadLine(tcp) = "" Then DataBegin = True
	EndIf
Wend

CloseFile file

If Eof(tcp)=1 Then Print "Success!" Else Print "Error!"

CloseTCPStream tcp

WaitKey
End

Guy Fawkes

(Posted 2012) [#3]

Thanks. I just tried this, however.. for some reason, the downloaded file was corrupt. I couldnt open it...

Also, can this download huge files as well?

Guy Fawkes

(Posted 2012) [#4]

Better yet.... I found a working code... sort of.... Its saying that the file german.gif does not exist, when it clearly does when it loads... why is that?

Graphics 640, 480, 0, 2
SetBuffer BackBuffer ()

Global download$	 = "http://www.blitzbasic.com/img/german.gif"
; SAVE LOCATION: Windows Temp folder:
Global downloadDir$ = CurrentDir() 

If BlitzGet (download$, downloadDir$, "")
	Flip
	WaitKey()
Else
	RuntimeError"Download error!"
EndIf

Global TESTIMAGE=LoadImage(downloadDir$+"german.gif")
;api_messagebox(0, downloadDir$+"german.gif", downloadDir$+"german.gif", 0)
;api_messagebox(0, TESTIMAGE, TESTIMAGE, 0)

While Not KeyHit(1)
	
	
	Cls
	
	DrawImage TESTIMAGE,0,0
	
	Flip
	
	
Wend

; Temporary, For quick results...

Global header$
Global bytesToRead
Global date$
Global server$
Global contentType$
Global initialReply$

; -----------------------------------------------------------------------------
; File download function
; -----------------------------------------------------------------------------
; webFile$  -- file to download
; saveDir$  -- directory to download into
; saveFile$ -- filename to save as (use "" to use name of downloaded file automatically)
; -----------------------------------------------------------------------------
; Note that if you just provide a web server address, the document downloaded will
; be named "Unknown file.txt"
; -----------------------------------------------------------------------------

Function BlitzGet (webFile$, saveDir$, saveFile$)
	
	.requestfile; NEW/MODIFIED 2009 (re-direct support)
	
	; RE-OPEN STREAM!
	
	DebugLog webFile$
	
	; -------------------------------------------------------------------------
	; Strip "http://" if provided
	; -------------------------------------------------------------------------
	If Left (webFile$, 7) = "http://" 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
	
	DebugLog webHost$
	DebugLog webFile$
	
	If Not www ; NEW/MODIFIED 2009 (re-direct support)
		
		; -------------------------------------------------------------------------
		; Add trailing slash to download dir if not given
		; -------------------------------------------------------------------------
		If Right (saveDir$, 1) <> "\" Then saveDir$ = saveDir$ + "\"
		
		; -------------------------------------------------------------------------
		; Save filename -- get from webFile$ if not provided
		; -------------------------------------------------------------------------
		If saveFile$ = ""
			If webFile = "/"
				saveFile$ = "Unknown file.txt"
			Else
				For findSlash = Len (webFile$) To 1 Step - 1
					testForSlash$ = Mid (webFile$, findSlash, 1)
					If testForSlash$ = "/"
						saveFile$ = Right (webFile$, Len (webFile$) - findSlash)
						Exit
					EndIf
				Next
				If saveFile$ = "" Then saveFile$ = "Unknown file.txt"
			EndIf
		EndIf
		
	EndIf
	
	; DEBUG
	; RuntimeError "Web host: " + webHost$ + Chr (10) + "Web file: " + webFile$ + Chr (10) + "Save dir: " + saveDir$ + Chr (10) + "Save file: " + saveFile$
	
	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, ""
		
		; ---------------------------------------------------------------------
		; NEW/MODIFIED 2009 (re-direct support)
		; ---------------------------------------------------------------------
		; Get HTTP response (200 = OK, 404 = not found, etc)...
		; ---------------------------------------------------------------------
		
		response$ = ReadLine (www)
		
		DebugLog "Server response: " + response$
		
		If Left (response$, 5) = "HTTP/"
			pos = Instr (response$, " ")
			replycode$ = Mid (response$, pos + 1, 3)
		EndIf
		
		; ---------------------------------------------------------------------
		; Find blank line after header data, where the action begins...
		; ---------------------------------------------------------------------
		
		; Store various information along the way...
		
		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$)
				Case "location: " ; NEW/MODIFIED 2009 (re-direct support)
					location$ = ReplyContent (header$, reply$) ; NEW/MODIFIED 2009 (re-direct support)
				Default
					If gotReply = 0 Then initialReply$ = header$: gotReply = 1
			End Select
			
			DisplayResponse ()
			
			Flip
			
		Until header$ = "" Or (Eof (www))
		
		; ---------------------------------------------------------------------
		; NEW/MODIFIED 2009 (re-direct support)
		; ---------------------------------------------------------------------
		
		downloadfile = 0
		
		Select replycode$
				
			Case "200" ; File found...
				
				downloadfile = True
				
			Case "404" ; File not found...
				
				Goto skipDownload
				
			Case "301" ; File permanently moved...
				
				webFile$ = location$
				
				CloseTCPStream www
				www = 0 ; NEW/MODIFIED 2009 (re-direct support)
				
				Goto requestfile
				
			Case "302" ; File temporarily moved...
				
				webFile$ = location$
				
				CloseTCPStream www
				www = 0 ; NEW/MODIFIED 2009 (re-direct support)
				
				Goto requestfile
				
			Case "303" ; File moved...
				
				webFile$ = location$
				
				CloseTCPStream www
				www = 0 ; NEW/MODIFIED 2009 (re-direct support)
				
				Goto requestfile
				
			Case "307" ; Naughty...
				
				webFile$ = location$
				
				CloseTCPStream www
				www = 0 ; NEW/MODIFIED 2009 (re-direct support)
				
				Goto requestfile
				
		End Select
		
		; ---------------------------------------------------------------------
		
		If Not downloadfile Then Goto skipDownload ; NEW/MODIFIED 2009 (re-direct support)
		
		If bytesToRead = 0 Then Goto skipDownload
		
		; ---------------------------------------------------------------------
		; Create new file to write downloaded bytes into
		; ---------------------------------------------------------------------
		save = WriteFile (saveDir$ + saveFile$)
		If Not save Then Goto skipDownload
		
		; ---------------------------------------------------------------------
		; Incredibly complex download-to-file routine...
		; ---------------------------------------------------------------------
		
		For readWebFile = 1 To bytesToRead
			
			If Not Eof (www) Then WriteByte save, ReadByte (www)
			
			; Call BytesReceived with position and size every 100 bytes (slows down a LOT with smaller updates)
			
			tReadWebFile = readWebFile
			If tReadWebFile Mod 100 = 0 Then BytesReceived (readWebFile, bytesToRead)
			
		Next
		
		CloseFile save
		
		; Fully downloaded?
		If (readWebFile - 1) = bytesToRead
			success = 1
		EndIf
		
		; Final update (so it's not rounded to nearest 100 bytes!)
		BytesReceived (bytesToRead, bytesToRead)
		
		.skipDownload ; NEW/MODIFIED 2009 (re-direct support)
		CloseTCPStream www
		www = 0 ; NEW/MODIFIED 2009 (re-direct support)
		
	Else
		
		RuntimeError "Failed to connect"
		
	EndIf
	
	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

Guy Fawkes

(Posted 2012) [#5]

NVM. Problem solved :)

I used FreeImage :D

Guy Fawkes

(Posted 2012) [#6]

Is there any way that someone can modify this code to download files that look like this? : http://mywebsite.com/downloads2.php?download_file=MyGame.rar

Note: You need the FreeImage plugin to use this code, which you can get, here: http://www.blitzbasic.com/codearcs/codearcs.php?code=1732

Graphics 640, 480, 0, 2
SetBuffer BackBuffer ()

Include "FreeImage.bb"

Global download$	 = "http://mywebsite.com/downloads2.php?download_file=MyGame.rar"
; SAVE LOCATION: Current Folder:
Global downloadDir$ = CurrentDir() 

If BlitzGet (download$, downloadDir$, "")
	Flip
	WaitKey()
Else
	RuntimeError"Download error!"
EndIf


; Temporary, For quick results...

Global header$
Global bytesToRead
Global date$
Global server$
Global contentType$
Global initialReply$

; -----------------------------------------------------------------------------
; File download function
; -----------------------------------------------------------------------------
; webFile$  -- file to download
; saveDir$  -- directory to download into
; saveFile$ -- filename to save as (use "" to use name of downloaded file automatically)
; -----------------------------------------------------------------------------
; Note that if you just provide a web server address, the document downloaded will
; be named "Unknown file.txt"
; -----------------------------------------------------------------------------

Function BlitzGet (webFile$, saveDir$, saveFile$)
	
	.requestfile; NEW/MODIFIED 2009 (re-direct support)
	
	; RE-OPEN STREAM!
	
	DebugLog webFile$
	
	; -------------------------------------------------------------------------
	; Strip "http://" if provided
	; -------------------------------------------------------------------------
	If Left (webFile$, 7) = "http://" 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
	
	DebugLog webHost$
	DebugLog webFile$
	
	If Not www ; NEW/MODIFIED 2009 (re-direct support)
		
		; -------------------------------------------------------------------------
		; Add trailing slash to download dir if not given
		; -------------------------------------------------------------------------
		If Right (saveDir$, 1) <> "\" Then saveDir$ = saveDir$ + "\"
		
		; -------------------------------------------------------------------------
		; Save filename -- get from webFile$ if not provided
		; -------------------------------------------------------------------------
		If saveFile$ = ""
			If webFile = "/"
				saveFile$ = "Unknown file.txt"
			Else
				For findSlash = Len (webFile$) To 1 Step - 1
					testForSlash$ = Mid (webFile$, findSlash, 1)
					If testForSlash$ = "/"
						saveFile$ = Right (webFile$, Len (webFile$) - findSlash)
						Exit
					EndIf
				Next
				If saveFile$ = "" Then saveFile$ = "Unknown file.txt"
			EndIf
		EndIf
		
	EndIf
	
	; DEBUG
	; RuntimeError "Web host: " + webHost$ + Chr (10) + "Web file: " + webFile$ + Chr (10) + "Save dir: " + saveDir$ + Chr (10) + "Save file: " + saveFile$
	
	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, ""
		
		; ---------------------------------------------------------------------
		; NEW/MODIFIED 2009 (re-direct support)
		; ---------------------------------------------------------------------
		; Get HTTP response (200 = OK, 404 = not found, etc)...
		; ---------------------------------------------------------------------
		
		response$ = ReadLine (www)
		
		DebugLog "Server response: " + response$
		
		If Left (response$, 5) = "HTTP/"
			pos = Instr (response$, " ")
			replycode$ = Mid (response$, pos + 1, 3)
		EndIf
		
		; ---------------------------------------------------------------------
		; Find blank line after header data, where the action begins...
		; ---------------------------------------------------------------------
		
		; Store various information along the way...
		
		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$)
				Case "location: " ; NEW/MODIFIED 2009 (re-direct support)
					location$ = ReplyContent (header$, reply$) ; NEW/MODIFIED 2009 (re-direct support)
				Default
					If gotReply = 0 Then initialReply$ = header$: gotReply = 1
			End Select
			
			DisplayResponse ()
			
			Flip
			
		Until header$ = "" Or (Eof (www))
		
		; ---------------------------------------------------------------------
		; NEW/MODIFIED 2009 (re-direct support)
		; ---------------------------------------------------------------------
		
		downloadfile = 0
		
		Select replycode$
				
			Case "200" ; File found...
				
				downloadfile = True
				
			Case "404" ; File not found...
				
				Goto skipDownload
				
			Case "301" ; File permanently moved...
				
				webFile$ = location$
				
				CloseTCPStream www
				www = 0 ; NEW/MODIFIED 2009 (re-direct support)
				
				Goto requestfile
				
			Case "302" ; File temporarily moved...
				
				webFile$ = location$
				
				CloseTCPStream www
				www = 0 ; NEW/MODIFIED 2009 (re-direct support)
				
				Goto requestfile
				
			Case "303" ; File moved...
				
				webFile$ = location$
				
				CloseTCPStream www
				www = 0 ; NEW/MODIFIED 2009 (re-direct support)
				
				Goto requestfile
				
			Case "307" ; Naughty...
				
				webFile$ = location$
				
				CloseTCPStream www
				www = 0 ; NEW/MODIFIED 2009 (re-direct support)
				
				Goto requestfile
				
		End Select
		
		; ---------------------------------------------------------------------
		
		If Not downloadfile Then Goto skipDownload ; NEW/MODIFIED 2009 (re-direct support)
		
		If bytesToRead = 0 Then Goto skipDownload
		
		; ---------------------------------------------------------------------
		; Create new file to write downloaded bytes into
		; ---------------------------------------------------------------------
		save = WriteFile (saveDir$ + saveFile$)
		If Not save Then Goto skipDownload
		
		; ---------------------------------------------------------------------
		; Incredibly complex download-to-file routine...
		; ---------------------------------------------------------------------
		
		For readWebFile = 1 To bytesToRead
			
			If Not Eof (www) Then WriteByte save, ReadByte (www)
			
			; Call BytesReceived with position and size every 100 bytes (slows down a LOT with smaller updates)
			
			tReadWebFile = readWebFile
			If tReadWebFile Mod 100 = 0 Then BytesReceived (readWebFile, bytesToRead)
			
		Next
		
		CloseFile save
		
		; Fully downloaded?
		If (readWebFile - 1) = bytesToRead
			success = 1
		EndIf
		
		; Final update (so it's not rounded to nearest 100 bytes!)
		BytesReceived (bytesToRead, bytesToRead)
		
		.skipDownload ; NEW/MODIFIED 2009 (re-direct support)
		CloseTCPStream www
		www = 0 ; NEW/MODIFIED 2009 (re-direct support)
		
	Else
		
		RuntimeError "Failed to connect"
		
	EndIf
	
	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

Last edited 2012

Guy Fawkes

(Posted 2012) [#7]

Anyone? :/

Guy Fawkes

(Posted 2012) [#8]

Ok. Ive come up with a code that can stream content into blitz... Problem is... the content I need to stream from, is a file on the internet..

How do I make this code download HUGE files, and stream them to blitz? Im interested in finding out how to stream a file from the internet to blitz :)

Here's the code:

; OpenTCPStream/CloseTCPStream/ReadAvail Example

Print "Connecting..."
Flip

website1$ = "www.mywebsite.com/downloads/music.mp3"
website2$ = "http://"+website1$
ua$ = "MyAgent"

tcp=OpenTCPStream( website1$, 80 )

If Not tcp Print "Failed|tcp="+tcp:WaitKey:End
	
	Print "Connected! Sending request..."
	Flip
	
	;WriteLine tcp,"GET "+website2$+" HTTP/1.0"
	WriteLine tcp,"Content-Disposition: attachment; filename=http://mywebsite.com/downloads/music.mp3"
	WriteLine tcp,"HOST: "+website1$
	WriteLine tcp, "USER-AGENT: "+ua$
	WriteLine tcp,""
	
	If Eof(tcp) Print "Failed.":WaitKey:End
		
		Print "Request sent! Waiting for reply..."
		Flip
		
		While Not Eof(tcp)
			Print ReadLine$( tcp )
			Print "Bytes available:" + ReadAvail(tcp)
			Flip
		Wend
		
		If Eof(tcp)=1 Then Print "Success!" Else Print "Error!"
		
		CloseTCPStream tcp
		
		WaitKey

Thanks everyone for all your help! :)