Allows the loading and saving of files to and from a Quake II PAK file. If LZH is installed in Delphi then compression is possible. Once the Pak file has been loaded then files can be loaded and saved as though it were a local directory with no extra code. For example in the following code 'potato.smd' is loaded from the 'potato.pak' file :
var
Pak: TGLVfsPak;
begin
Pak.loadfromfile('potato.pak',fmOpenReadWrite or fmShareDenyWrite);
glfreeform1.loadfromfile('potato.smd');
end;
Important
TGLVfsPak properties and methods include:
procedure
loadfromfile(filename: string; Mode: word)
Loads the pak file. Mode is the stream flag specifying whether the pak file can be written to or accessed by other programs
function
fileexists(filename: string): boolean
Whether not a file exists in the pak file
function
getfile(filename: string):
TStream
Gets a file from the pak file as a stream. Useful when loading non GLScene files. For example to load a bitmap from a pak file:
bitmap.loadfromstream(pak.getfile('water2.bmp'));
files:
TStringlist
List of all the files in the pak file
procedure
addfromfile(filename, Path: string)
Adds a file to the pak file
Demo:
CVS/AdvDemos/PakEdit∞
Unit:
GLVfsPAK∞
Descends from
TComponent.
