Print dateilesen("J:/testtext.txt")



Function dateilesen:Int(path:String)

	Local buffersize:Float  = 64
	Local bytesGesamt:Float  = FileSize(path)
	Local prozent:Float = 0
	Local prozentTemp:Float = buffersize / (bytesGesamt / 100)	
	Local durchgang:Int = 0
	
	Local fileStream:TStream = OpenStream(path$, True, False)


	Local buffer:Byte Ptr = MemAlloc(bufferSize)  
		
	
	Repeat   
	
		Local bytesRead:Int = fileStream.Read(buffer, bufferSize)		

		Print "Datenpaket " + durchgang + ": " + String.FromBytes(fileStream, bufferSize)
		
		durchgang = durchgang + 1
		
	Until fileStream.Eof()	
	
End Function