2
0
woollybah 7 жил өмнө
parent
commit
3e3f798223

+ 7 - 5
httpstream.mod/httpstream.bmx

@@ -1,24 +1,26 @@
 
 
-Strict
+SuperStrict
 
 
 Module BRL.HTTPStream
 Module BRL.HTTPStream
 
 
-ModuleInfo "Version: 1.02"
+ModuleInfo "Version: 1.03"
 ModuleInfo "Author: Mark Sibly"
 ModuleInfo "Author: Mark Sibly"
 ModuleInfo "License: zlib/libpng"
 ModuleInfo "License: zlib/libpng"
 ModuleInfo "Copyright: Blitz Research Ltd"
 ModuleInfo "Copyright: Blitz Research Ltd"
 ModuleInfo "Modserver: BRL"
 ModuleInfo "Modserver: BRL"
 
 
+ModuleInfo "History: 1.03"
+ModuleInfo "History: Module is now SuperStrict"
 ModuleInfo "History: 1.02 Release"
 ModuleInfo "History: 1.02 Release"
 
 
 Import BRL.SocketStream
 Import BRL.SocketStream
 
 
 Type THTTPStreamFactory Extends TStreamFactory
 Type THTTPStreamFactory Extends TStreamFactory
 
 
-	Method CreateStream:TStream( url:Object,proto$,path$,readable,writeable )
+	Method CreateStream:TStream( url:Object,proto$,path$,readable:Int,writeable:Int )
 		If proto="http"
 		If proto="http"
 
 
-			Local i=path.Find( "/",0 ),server$,file$
+			Local i:Int=path.Find( "/",0 ),server$,file$
 			If i<>-1
 			If i<>-1
 				server=path[..i]
 				server=path[..i]
 				file=path[i..]
 				file=path[i..]
@@ -28,7 +30,7 @@ Type THTTPStreamFactory Extends TStreamFactory
 			EndIf
 			EndIf
 			
 			
 			Local stream:TStream=TSocketStream.CreateClient( server,80 )
 			Local stream:TStream=TSocketStream.CreateClient( server,80 )
-			If Not stream Return
+			If Not stream Return Null
 
 
 			stream.WriteLine "GET "+file+" HTTP/1.0"
 			stream.WriteLine "GET "+file+" HTTP/1.0"
 			stream.WriteLine "Host: "+server
 			stream.WriteLine "Host: "+server