index 89b242a5958dd719999dc26328a5cba00dd06d2d..efed1250499e8047dadb1a04f18988219a47be32 100644 (file)
implementation
- uses sfs, xstreams, utils, Classes;
+ uses sfs, utils, Classes;
procedure g_ReadResource (wad, section, name: String; out data: PByte; out len: Integer);
var
stream.Destroy
end
end;
+ SFSGCCollect
end;
procedure g_ReadSubResource (wad, section0, name0, section1, name1: String; out data: PByte; out len: Integer);
var
stream0, stream1: TStream;
str0, str1: String;
- xdata: Pointer;
- i, xlen: Integer;
+ i: Integer;
begin
data := nil;
len := 0;
if SFSAddSubDataFile(wad + '\' + str0, stream0, TRUE) then
begin
str1 := SFSGetLastVirtualName(section1 + '\' + name1);
- stream1 := SFSFileOpenEx(wad + '\' + str0 + '::' + str1);
+ stream1 := SFSFileOpen(wad + '\' + str0 + '::' + str1);
if stream1 <> nil then
begin
len := stream1.Size;
begin
stream0.Destroy
end
- end
+ end;
+ SFSGCCollect
end;
end.