Function LoadOnlineImage(server$,datei$,port=80)
	Local tcp=OpenTCPStream(server$,port),li$,size,file,image,filename$
	If tcp=0 Then 
		Select(Lower$(Left$(server$,4)))
			Case("http")
				server$=Right$(server$,Len(server$)-7)
				tcp=OpenTCPStream(server$,port)
				If tcp=0 Then Return 0
			Default
				Return 0
		End Select
	EndIf
	WriteLine(tcp,"GET "+datei$+" HTTP/1.0")
	WriteLine(tcp,"HOST: "+server$)
	WriteLine(tcp,"")
	Repeat
		li$=ReadLine$(tcp)
		Select li$ 
			Case "" 
			Default
				Select li$
				Case "HTTP/1.1 200"
					Exit
				Case "HTTP/1.1 200 OK"
					Exit
				Case "HTTP/1.0 200"
					Exit
				Case "HTTP/1.0 200 OK"
					Exit
				Case "HTTP/1.1 404 Not Found"
					Return(-2)
				Case "HTTP/1.1 404"
					Return(-2)
				Case "HTTP/1.0 404 Not Found"
					Return(-2)
				Case "HTTP/1.0 404"
					Return(-2)
				Default
					Return 0
			End Select
	End Select
Forever
Repeat
	li$=ReadLine$(tcp)
	If Left$(li$,15) = "Content-Length:" Then
		size=Right$(li$,Len(li$)-15)
	EndIf
	If li$ = "" Then Exit
Forever
If size=0 Then Return(-1)
Select Lower$(Right$(datei$,3))
	Case "png"
		file=WriteFile("tmp.png")
		filename="tmp.png"
	Case "jpg"
		file=WriteFile("tmp.jpg")
		filename="tmp.jpg"
	Case "bmp"
		file=WriteFile("tmp.bmp")
		filename="tmp.bmp"
	Case "tga"
		file=WriteFile("tmp.tga")
		filename="tmp.tga"
	Default 
		Return(-1)
End Select
Local bank=CreateBank(size)
ReadBytes(bank,tcp,0,size)
WriteBytes(bank,file,0,size)
CloseFile(file)
CloseTCPStream(tcp)
image = LoadImage(filename)
DeleteFile(filename)
Return(image)
End Function