Type TStreamFactoryWWW Extends TStreamFactory
	Method CreateStream:TStream( url:Object,proto$,path$,readable,writeable )
		If proto = "www"
			Local stream:TStream = ReadStream("http::"+path)
			If Not stream Then Return Null
			Local temp:TStream = WriteStream("temp")
			Repeat
				temp.WriteByte(stream.ReadByte())
			Until stream.Eof()
			stream.Close()
			temp.Close()
			Return ReadStream("temp")
		End If
	End Method
End Type
New TStreamFactoryWWW