Spltting files

[Captain Jack]

Dear all,

 

Let's say I am streaming a video file on a local http port. I would like to split the file when it reaches say 2Gb in length. I've managed to start saving the file but for the life of me I cannot find anything regarding creating a new file when the original one reaches a certain size.

 

I've taken this code from an example I've found on this forums:

 

Dim FileStreamer As New FileStream(Application.StartupPath & "\" & Filename & "(" & fileSplitNumber.ToString & ").mpg", FileMode.Create)

 

 

fileSplitNumber is an integer that would increment with every split. What I don't understand is how to "ReDim" the FileStreamer object to create a new file and continue streaming to it where it left off from the old one. I use FileStreamer.Length to check how much has been streamed.

 

Any help (code!) would be greatly appreciated :D

 

Thanks

 

CJ

[Joe Mamma]

i think this pseudo code is an effective procedure:

 

 

fileSize = z 
readSize = x
BytesRead = 0
TotalBytes = 0
Create array[x]
i = 0

while Socket.Available <> 0 
begin
if (TotalBytes=0) then 
begin
	create filestream(filename_i)
	create binaryWriter(filestream)
end 
TotalBytes += BytesRead = Socket.Receive(array)
binarywriter.write(array,0, BytesRead)
if (Socket.Available = 0) or (TotalBytes>=filesize) then 
begin
	binarywriter.close
	filestream.close
	TotalBytes = 0
	i++
end 
end

[Captain Jack]

Thanks for the reply. The pseudo code I understand perfectly, but I don't understand how to create a new file after closing the file streamer.

 

Dim FileStreamer As New FileStream(Filename & i, FileMode.Create)

 

This is what I do at the start of the function. But once I reach the max file size, how do I create a new file and continue writing to it? ReDim statement doesn't seem to work. And it doesn't let me do FileStreamer = FileStream(...) either as types cannot be used in expressions. And if at all possible without losing any data in the process so I can join them later?

 

Thanks

Edited May 16, 2004 by Captain Jack

[PlausiblyDamp]

FileStreamer = New FileStream(Application.StartupPath & "\" & Filename & "(" & fileSplitNumber.ToString & ").mpg", FileMode.Create)

just make sure you've closed the previous file before executing the above line of code.

[Captain Jack]

FileStreamer = New FileStream(Application.StartupPath & "\" & Filename & "(" & fileSplitNumber.ToString & ").mpg", FileMode.Create)

just make sure you've closed the previous file before executing the above line of code.

 

Yay! Thanks for that.. Seems to work OK, although still not completely seemless. Some bytes get lost in the process.

 

OK another question, when it's writing to the disk, the program seems to freeze. I have Application.DoEvents within the loop and this does seem to help although, still not perfect. Could it be it's waiting for more data when it freezes?

[mooman_fl]

It could be listening for more data...I would say that it is also possible that it is freezing because of the writing to disk. Defrag and see if the freezing time reduces.

[Captain Jack]

Yes, looks like it's waiting for data while "frozen" as the byte counter goes up when it's receiving data. I assume there's no way of making it more "fluent"?

[Joe Mamma]

Yes' date=' looks like it's waiting for data while "frozen" as the byte counter goes up when it's receiving data. I assume there's no way of making it more "fluent"?[/quote']

yes. . . Do some research on blocking/non-blocking and asynchronisity with regards to sockets.

 

someone probably has a link at the ready.

[Captain Jack]

Thanks for the help peeps! Will look further into it.