- TestDataFile := TVirtualFileSystem.Create();
- TestDataFile.FileName := 'myfilesystem.dat';
- TestDataFile.Open;
What is a Virtual File System? See VFS
Thanks to a question of Brainer on the pgd forum ( http://www.pascalgamedevelopment.com/vi ... sc&start=0 ) i started writing a virtual file system in pascal. Things now become useable.
2008-12-29: Beta1 is Released. So it needs beta testers.
2008-12-21: Alpha9 is released. When a (virtual)file becomes smaller additional blocks are marked as deleted. Should work, but needs additional testing. If this goes ok it is almost time for an real beta version.
Alpha8 is here. ReadData and Write are now rewritten to use the TVirtualFileStream instead of writing blocks directly. Both routines are now only 4 lines long
Now it is alpha 7 time already. Now it is also possible to delete files. Deleted blocks are reused again.
This only works for tvirtualfilestream bases access to the tvirtualfilesystem. So writedata (and readdata) need to be rewritten to use a tvirtualfilestream. Besides making reusing deleted blocks work with those it save some double code.
With reusing deleted block the tvirtualfilesystem may end up to be defragmented. Hmm how to write such an thing?
Who are willing to give this alpha version a test run? It comes with an basic example i use for testing.
I still have to give the virtualfilesystem a proper name and i am out of ideas so suggestions are welcome.
Download: http://noeska.net/projects/files/2008/12/nvfs.zip
A short tutorial:
Opening a virtual file system.
Code:
Writing a tmemo (mTest) inside the virtual file system:
Code:
- MyStream:= TvfsFileStream.Create('test.txt', TestDataFile);
- mTest.Lines.SaveToStream(MyStream);
- MyStream.Free;
Reading a tmemo (mTest) from inside the virtual file system:
Code:
- MyStream:= TvfsFileStream.Create('test.txt', TestDataFile);
- mTest.Lines.LoadFromStream(MyStream);
- MyStream.Free;
Post your feedback and name suggestion here: viewtopic.php?t=7986