Hollywood forums

Code: Select all

 connection = OpenConnection(nil, server$, 80) 

Code: Select all

 debugprint(connection).

Code: Select all

Global base, data$, count, done
base = {}

Function base:DownloadFile(server$, url$, downloadpath$, filename$)
    
    Local connection
    
	connection = OpenConnection(nil, server$, 80)

	debugprint(connection)

	SendData(connection, "GET " .. url$ .. " HTTP/1.0\r\n\r\n")
	data$, count, done = ReceiveData(connection, #RECEIVEALL)

	; Redirect
	If FindStr(data$,"302 Found") > -1
	    CloseConnection(connection)
	    redirection$ = MidStr(data$,FindStr(data$,"Location: "),StrLen(data$))
	    redirection$ = MidStr(redirection$,10,FindStr(redirection$,"\n")-11)
	    
	    server$ = ReplaceStr(redirection$, "http://", "")
	    server$ = MidStr(server$,0,FindStr(server$,"/"))
	    
	    connection = OpenConnection(nil, server$, 80)
	    
	    SendData(connection, "GET " .. redirection$ .. " HTTP/1.0\r\n\r\n")
	    
		data$ = nil
	 
		; Skip HTTP Headers
	    While data$ = nil Or FindStr(data$,"Content-Type:") = -1
	    	data$, count, done = ReceiveData(connection, #RECEIVELINE)
	   	Wend
   	
	   	data$, count, done = ReceiveData(connection, #RECEIVELINE) ; Skip blank line
	   	
	    data$, count, done = ReceiveData(connection, #RECEIVEBYTES, 65536) ; Read file data
	    	    
	ElseIf FindStr(data,"200 OK") > -1   
	    	    
	EndIf

	; Not Found
	If FindStr(data$,"404 Found") > -1
	    Return(False)
	    
	; Found - Download it
	Else
		OpenFile(connection,downloadpath$ .. filename$, #MODE_WRITE)
	    Return(True)
	EndIf
EndFunction
    
success = base:DownloadFile("www.os4depot.net","http://www.os4depot.net/share/game/board/africa.lha","RAM:","africa.lha")

Function SaveToDisk(id)
   	WriteString(id,data$)
   	CloseConnection(id)
	CloseFile(id)
	End() 
Endfunction

Function base:BuildFile(msg)
    
	Local segment$
	segment$, count, done = ReceiveData(msg.id, #RECEIVEBYTES, 65536) ; Read file data
			
	data$ = data$ .. segment$
						
	If StrLen(data$) = 297517 Then SaveToDisk(msg.id)
EndFunction
    
Function base_BuildFile(msg) base:BuildFile(msg) EndFunction

InstallEventHandler({OnReceiveData = base_BuildFile})

Repeat
    WaitEvent()
Forever