System.setHigh()
 
oldpad = Controls.read()
 
White = Color.new(255, 255, 255)
Red = Color.new(255, 0, 0)
Yellow = Color.new(255, 255, 0)
Teal = Color.new(0, 255, 255)
Green = Color.new(0, 255, 0)
Black = Color.new(0, 0, 0)
Brown = Color.new(127, 63, 0)
Blue = Color.new(0, 0, 255)
DarkBlue = Color.new(0, 0, 127)
 
function PrintTextOutline(PositionX,  PositionY,  Text,  TextColor,  OutlineColor)
 
	if PositionX == "Center" then
		PositionX = 240 - string.len(Text) * 5
	end
 
	screen:print(PositionX + 1, PositionY, Text, OutlineColor)
	screen:print(PositionX + 1, PositionY + 1, Text, OutlineColor)
	screen:print(PositionX, PositionY + 1, Text, OutlineColor)
	screen:print(PositionX - 1, PositionY, Text, OutlineColor)
	screen:print(PositionX - 1, PositionY - 1, Text, OutlineColor)
	screen:print(PositionX, PositionY - 1, Text, OutlineColor)
	screen:print(PositionX + 1, PositionY - 1, Text, OutlineColor)
	screen:print(PositionX - 1, PositionY + 1, Text, OutlineColor)
 
	screen:print(PositionX, PositionY, Text, TextColor)
 
end
 
function PrintTextShadow(PositionX,  PositionY,  Text,  TextColor,  ShadowColor, ShadowDistance)
 
	screen:print(PositionX + ShadowDistance, PositionY + ShadowDistance, Text, ShadowColor)
	screen:print(PositionX, PositionY, Text, TextColor)
 
end
 
function PrintFont(PositionX, PositionY, Text, TextColor, Size, CustomFont) 
 
	CustomFont:setPixelSizes(Size, Size)
	screen:fontPrint(CustomFont, PositionX, PositionY, Text, TextColor)
 
end
 
function Rafraichir()
 
screen.flip()
screen:waitVblankStart()
 
end
 
function Blit(PositionX, PositionY, Image)
 
screen:blit(PositionX, PositionY, Image);
 
end
 
function FindFirstSlash(String)
 
SlashPosition = 0
 
for i = 1, string.len(String) do
 
if string.sub(String, i, i) == '/' then SlashPosition = i break end
 
end
 
return SlashPosition
 
end
 
function FindLastSlash(String)
 
SlashPosition = 0
 
for i = 1, string.len(String) do
 
if string.sub(String, i, i) == '/' then SlashPosition = i end
 
end
 
return SlashPosition
 
end
 
function Download(Server, File, Path, Name) 
 
	Wlan.init()
 
	local socket , error , bytesSent , header , a , b , len , pos ,file 
 
	socket, error = Socket.connect(Server, 80)
 
	while not socket:isConnected() do System.sleep(20) end
 
	Rafraichir()
 
	System.sleep(200)
 
	bytesSent = socket:send("GET /"..File.." HTTP/1.0\r\n")
	bytesSent = socket:send("host: "..Server.."\r\n\r\n")
 
	file = io.open(Path.."/"..Name,"w")
	header = ""
 
 
	while not string.find(header, "\r\n\r") do
      header = header .. socket:recv(2)
      screen.waitVblankStart()
    end
    if not string.find(header, "\r\n\r\n") then
      header = header .. socket:recv(1)
      screen.waitVblankStart()
    end
    a,b,len = string.find(header, "Content%-Length: (%d+)\r\n")
    a = nil;b = nil
    len = tonumber(len)
	fin = ""
	while fin == "" do
		pos = file:seek("cur")
		file:write(socket:recv(2624))
		file:flush()
		if System.getFileSize(Path..Name) >= len then
			file:close()
			Rafraichir()
			System.sleep(200) 
			fin = "ok" 
		end
			Rafraichir()
	end
	socket:close()
	return fin
 
end
 
function DoDatabase()
 
dofile(Root.."database.db")
 
NumberFile = table.getn(File);
 
for i = 1, NumberFile do
 
File[i].host = string.sub(File[i].link, 0, FindFirstSlash(File[i].link) - 1)
File[i].page = string.sub(File[i].link, FindFirstSlash(File[i].link) + 1, string.len(File[i].link))
File[i].fname = string.sub(File[i].link, FindLastSlash(File[i].link) + 1, string.len(File[i].link))
 
end
 
NumberPage = math.ceil(NumberFile / 5);
 
end

Download("servidor", "archivo", "lugar a descargar", "nombre archivo")
-- EJ Download("www.j3r3miedev.e3b.org", "xDownloader/database.db", Root, "database.db")