current/DataAccess/Access_OniSplitArchive.pas

unit Access_OniSplitArchive;
interface

uses DataAccess, Classes, TypeDefs;

type
  TAccess_OniSplitArchive = class(TDataAccess)
  private
    Fdat_file:           TFileStream;
    Fdat_files:          TFiles;
    Fdat_extensionsmap:  TExtensionsMap;
    FRawStart:           Integer;
  protected
  public
    constructor Create(DatFilename: String; ConnectionID: Integer; var Msg: TStatusMessages); override;
    procedure Close; override;

    function GetFileInfo(FileID: Integer): TFileInfo; override;
    function GetFilesList(Ext: String; Pattern: String;
      NoEmptyFiles: Boolean; SortType: TSortType): TStrings; override;
    function GetFileCount: Integer; override;
    function GetExtensionsList(ExtListFormat: TExtensionFormat): TStrings; override;

    procedure LoadDatFile(FileID: Integer; var Target: TStream); overload; override;
    procedure UpdateDatFile(FileID: Integer; Src: TStream); overload; override;
    procedure LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TStream); overload; override;
    procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream); overload; override;

    function GetDatLinks(FileID: Integer): TDatLinkList; override;
    function GetDatLink(FileID, DatOffset: Integer): TDatLink; override;
    function GetRawList(FileID: Integer): TRawDataList; override;
    function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; override;
    function GetRawsForType(RawType: String): TRawDataList; override;

    procedure LoadRawOffset(LocSep: Boolean; RawAddr, Size: Integer; var target: TStream); overload;
    procedure LoadRawOffset(LocSep: Boolean; RawAddr, Size: Integer; target: Pointer); overload;
    procedure LoadRawFile(FileID, DatOffset: Integer; var Target: TStream); overload; override;
    procedure UpdateRawFile(FileID, DatOffset: Integer; Src: TStream); overload; override;
    procedure LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; var Target: TStream); overload; override;
    procedure UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: TStream); overload; override;

    function AppendRawFile(LocSep: Boolean; Src: TStream): Integer; overload; override;
  published
  end;

implementation

uses
  SysUtils, StrUtils, Data, Functions, RawList, DatLinks, Math;


(*
================================================================================
                      Implementation of  TOniDataDat
*)


constructor TAccess_OniSplitArchive.Create(DatFilename: String; ConnectionID: Integer; var Msg: TStatusMessages);
var
  i: Integer;
  header_pc, header_mac, header_macbeta: Boolean;
  Fdat_header:   THeader;
  Fdat_filesmap: TFilesMap;
  Fdat_namedfilesmap: TNamedFilesMap;
const
  HeaderGlobalIdent: TDatGlobalIdent = ($DF, $BC, $03, $00, $32, $33, $52, $56,
                                        $40, $00, $14, $00, $10, $00, $08, $00);
begin
  Msg := SM_UnknownError;
  if not FileExists(DatFilename) then
  begin
    Msg := SM_FileNotFound;
    Exit;
  end;
  FFileName := DatFilename;
  Fdat_file := TFileStream.Create(FFileName, fmOpenReadWrite);
  Fdat_file.Read(Fdat_header, SizeOf(Fdat_header));
  header_pc  := True;
  header_mac := True;
  header_macbeta := True;
  for i := 0 to High(Fdat_header.GlobalIdent) do
    if Fdat_header.GlobalIdent[i] <> HeaderGlobalIdent[i] then
    begin
      Msg := SM_IncompatibleFile;
      Exit;
    end;

  for i := 0 to High(Fdat_header.OSIdent) do
  begin
    if Fdat_header.OSIdent[i] <> HeaderOSIdentWin[i] then
      header_pc := False;
    if Fdat_header.OSIdent[i] <> HeaderOSIdentMac[i] then
      header_mac := False;
    if Fdat_header.OSIdent[i] <> HeaderOSIdentMacBeta[i] then
      header_macbeta := False;
  end;
  if not (header_pc xor header_mac xor header_macbeta) then
  begin
    Msg := SM_IncompatibleFile;
    Exit;
  end
  else
  begin
    if (header_pc and not header_mac and not header_macbeta) then
      FDataOS := DOS_WIN
    else if (not header_pc and header_mac and not header_macbeta) then
      FDataOS := DOS_MAC
    else if (not header_pc and not header_mac and header_macbeta) then
      FDataOS := DOS_MACBETA;
  end;
  SetLength(Fdat_filesmap, Fdat_header.Files);
  SetLength(Fdat_files, Fdat_header.Files);
  for i := 0 to Fdat_header.Files - 1 do
    Fdat_file.Read(Fdat_filesmap[i], SizeOf(Fdat_filesmap[i]));
  for i := 0 to Fdat_header.Files - 1 do
  begin
    Fdat_files[i].ID := i;
    Fdat_files[i].Extension := Fdat_filesmap[i].Extension;
    Fdat_files[i].Extension := ReverseString(Fdat_files[i].Extension);
    Fdat_files[i].Size      := Fdat_filesmap[i].FileSize;
    Fdat_files[i].FileType  := Fdat_filesmap[i].FileType;
    Fdat_files[i].DatAddr   := Fdat_filesmap[i].DataAddr - 8 + Fdat_header.DataAddr;
    if (Fdat_filesmap[i].FileType and $01) = 0 then
    begin
      Fdat_file.Seek(Fdat_filesmap[i].NameAddr + Fdat_header.NamesAddr, soFromBeginning);
      SetLength(Fdat_files[i].Name, 100);
      Fdat_file.Read(Fdat_files[i].Name[1], 100);
      Fdat_files[i].Name := MidStr(Fdat_files[i].Name, 1 + 4, Pos(
        #0, Fdat_files[i].Name) - 1 - 4);
    end
    else
    begin
      Fdat_files[i].Name := '';
    end;
  end;
  Fdat_file.Seek($40 + Fdat_header.Files * $14, soFromBeginning);
  SetLength(Fdat_namedfilesmap, Fdat_header.NamedFiles);
  for i := 0 to Fdat_header.NamedFiles - 1 do
    Fdat_file.Read(Fdat_namedfilesmap[i], SizeOf(Fdat_namedfilesmap[i]));

  Fdat_file.Seek($40 + Fdat_header.Files * $14 + Fdat_header.NamedFiles * $8, soFromBeginning);
  SetLength(Fdat_extensionsmap, Fdat_header.Extensions);
  for i := 0 to Fdat_header.Extensions - 1 do
    Fdat_file.Read(Fdat_extensionsmap[i], SizeOf(Fdat_extensionsmap[i]));

  Fdat_file.Seek(Fdat_files[0].DatAddr + 7, soFromBeginning);
  Fdat_file.Read(FLevelNumber, 1);
  FLevelNumber := FLevelNumber div 2;

  with Fdat_header do
    FRawStart := Ident2[0] + Ident2[1]*256 + Ident2[2]*256*256 + Ident2[3]*256*256*256;

  Msg := SM_OK;
  FBackend := DB_ONISPLIT;
  FConnectionID := ConnectionID;
  FChangeRights := [CR_EditDat, CR_EditRaw, CR_AppendRaw];

  inherited;
end;


procedure TAccess_OniSplitArchive.Close;
begin
  if Assigned(Fdat_file) then
    Fdat_file.Free;
  Self.Free;
end;


function TAccess_OniSplitArchive.GetFileInfo(fileid: Integer): TFileInfo;
begin
  if fileid = -1 then
  begin
    Result := inherited GetFileInfo(fileid);
    Exit;
  end;
  if fileid < Self.GetFileCount then
    Result    := Fdat_files[fileid]
  else
    Result.ID := -1;
end;


function TAccess_OniSplitArchive.GetFilesList(ext: String; pattern: String;
  NoEmptyFiles: Boolean; SortType: TSortType): TStrings;
var
  i:      Integer;
  list:   TStringList;
  id, name, extension: String;
  fields: TStrings;

  procedure getfields;
  begin
    fields.CommaText := StringReplace(AnsiQuotedStr(list.Strings[i], '"'), ';', '","', [rfReplaceAll]);
    if SortType in [ST_IDAsc, ST_IDDesc] then
    begin
      id := fields.Strings[0];
      name := fields.Strings[1];
      extension := fields.Strings[2];
    end;
    if SortType in [ST_NameAsc, ST_NameDesc] then
    begin
      id := fields.Strings[1];
      name := fields.Strings[0];
      extension := fields.Strings[2];
    end;
    if SortType in [ST_ExtAsc, ST_ExtDesc] then
    begin
      id := fields.Strings[1];
      name := fields.Strings[2];
      extension := fields.Strings[0];
    end;
    if SortType in [ST_ExtNameAsc, ST_ExtNameDesc] then
    begin
      id := fields.Strings[2];
      name := fields.Strings[1];
      extension := fields.Strings[0];
    end;
  end;

begin
  list := TStringList.Create;
  list.Sorted := True;
  if ext = '*' then
    ext := '';
  for i := 0 to GetFileCount - 1 do
  begin
    if ((Length(ext) = 0) or (Pos(Fdat_files[i].Extension, ext) > 0)) and
      ((Length(pattern) = 0) or
      (Pos(UpperCase(pattern), UpperCase(Fdat_files[i].Name)) > 0)) then
    begin
      if (NoEmptyFiles = False) or ((Fdat_files[i].FileType and $02) = 0) then
      begin
        id := FormatNumber(Fdat_files[i].ID, 5, '0');
        name := Fdat_files[i].Name;
        extension := Fdat_files[i].Extension;

        case SortType of
          ST_IDAsc, ST_IDDesc:     list.Add(id + ';' + name + ';' + extension);
          ST_NameAsc, ST_NameDesc: list.Add(name + ';' + id + ';' + extension);
          ST_ExtAsc, ST_ExtDesc:   list.Add(extension + ';' + id + ';' + name);
          ST_ExtNameAsc, ST_ExtNameDesc: list.Add(name + ';' + extension + ';' + id);
        end;
      end;
    end;
  end;
  if not Assigned(Result) then
    Result := TStringList.Create;
  if list.Count > 0 then
  begin
    fields := TStringList.Create;
    if SortType in [ST_IDAsc, ST_NameAsc, ST_ExtAsc, ST_ExtNameAsc] then
      for i := 0 to list.Count - 1 do
      begin
        getfields;
        Result.Add(id + '-' + name + '.' + extension);
      end
    else
      for i := list.Count - 1 downto 0 do
      begin
        getfields;
        Result.Add(id + '-' + name + '.' + extension);
      end;
    fields.Free;
  end;
  list.Free;
end;


function TAccess_OniSplitArchive.GetFileCount: Integer;
begin
  Result := Length(Fdat_files);
end;


function TAccess_OniSplitArchive.GetExtensionsList(ExtListFormat: TExtensionFormat): TStrings;
var
  i: Integer;
begin
  if not Assigned(Result) then
    Result := TStringList.Create;
  if Result is TStringList then
    TStringList(Result).Sorted := True;
  for i := 0 to Length(Fdat_extensionsmap) - 1 do
  begin
    with Fdat_extensionsmap[i] do
    begin
      case ExtListFormat of
        EF_ExtOnly:
          Result.Add(Extension[3] + Extension[2] + Extension[1] + Extension[0]);
        EF_ExtCount:
          Result.Add(Extension[3] + Extension[2] + Extension[1] + Extension[0] +
                ' (' + IntToStr(ExtCount) + ')');
      end;
    end;
  end;
end;


procedure TAccess_OniSplitArchive.LoadDatFile(FileID: Integer; var Target: TStream);
var
  streampos: Integer;
begin
  if fileid < GetFileCount then
  begin
    if not Assigned(Target) then
      Target := TMemoryStream.Create;
    if GetFileInfo(FileID).Size > 0 then
    begin
      Fdat_file.Seek(Fdat_files[fileid].DatAddr, soFromBeginning);
      streampos := Target.Position;
      Target.CopyFrom(Fdat_file, Fdat_files[fileid].Size);
      Target.Seek(streampos, soFromBeginning);
    end;
  end;
end;

procedure TAccess_OniSplitArchive.UpdateDatFile(FileID: Integer; Src: TStream);
begin
  if fileid < GetFileCount then
  begin
    Fdat_file.Seek(Fdat_files[fileid].DatAddr, soFromBeginning);
    Fdat_file.CopyFrom(Src, Fdat_files[fileid].Size);
  end;
end;

procedure TAccess_OniSplitArchive.LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TStream);
var
  streampos: Integer;
begin
  if fileid < GetFileCount then
  begin
    if not Assigned(Target) then
      Target := TMemoryStream.Create;
    Fdat_file.Seek(Fdat_files[fileid].DatAddr + offset, soFromBeginning);
    streampos := Target.Position;
    Target.CopyFrom(Fdat_file, size);
    Target.Seek(streampos, soFromBeginning);
  end;
end;

procedure TAccess_OniSplitArchive.UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream);
begin
  if fileid < GetFileCount then
  begin
    Fdat_file.Seek(Fdat_files[fileid].DatAddr + offset, soFromBeginning);
    Fdat_file.CopyFrom(Src, Size);
  end;
end;


function TAccess_OniSplitArchive.GetDatLink(FileID, DatOffset: Integer): TDatLink;
var
  link: Integer;
begin
  Result := DatLinksManager.GetDatLink(FConnectionID, FileID, DatOffset);
  LoadDatFilePart(fileid, Result.SrcOffset, 4, @link);
  if link > 0 then
    Result.DestID := link div 256
  else
    Result.DestID := -1;
end;


function TAccess_OniSplitArchive.GetDatLinks(FileID: Integer): TDatLinkList;
var
  i: Integer;
  link: Integer;
begin
  Result := DatLinksManager.GetDatLinks(FConnectionID, FileID);
  if Length(Result) > 0 then
  begin
    for i := 0 to High(Result) do
    begin
      LoadDatFilePart(fileid, Result[i].SrcOffset, 4, @link);
      if link > 0 then
        Result[i].DestID := link div 256
      else
        Result[i].DestID := -1;
    end;
  end;
end;


function TAccess_OniSplitArchive.GetRawList(FileID: Integer): TRawDataList;
begin
  Result := RawLists.GetRawList(FConnectionID, FileID);
end;


function TAccess_OniSplitArchive.GetRawsForType(RawType: String): TRawDataList;
var
  i, j: Integer;
  dats: TStrings;
  list: TRawDataList;
begin
  dats := nil;
  dats := GetFilesList(MidStr(RawType, 1, 4), '', True, ST_IDAsc);
  for i := 0 to dats.Count - 1 do
  begin
    list := GetRawList(StrToInt(MidStr(dats.Strings[i], 1, 5)));
    for j := 0 to Length(list) - 1 do
    begin
      if (list[j].RawType = RawType) and (list[j].RawSize > 0) then
      begin
        SetLength(Result, Length(Result)+1);
        Result[High(Result)] := list[j];
      end;
    end;
  end;
end;


function TAccess_OniSplitArchive.GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo;
begin
  Result := RawLists.GetRawInfo(FConnectionID, FileID, DatOffset);
end;


procedure TAccess_OniSplitArchive.LoadRawOffset(LocSep: Boolean; RawAddr, Size: Integer; var target: TStream);
begin
  if not Assigned(Target) then
    Target := TMemoryStream.Create;
  if FRawStart + RawAddr <= Fdat_file.Size then
  begin
    Fdat_file.Seek(FRawStart + RawAddr, soFromBeginning);
    Target.CopyFrom(Fdat_file, size);
    Target.Seek(0, soFromBeginning);
  end;
end;

procedure TAccess_OniSplitArchive.LoadRawOffset(LocSep: Boolean; RawAddr, Size: Integer; target: Pointer);
var
  data: TStream;
begin
  data := nil;
  LoadRawOffset(LocSep, RawAddr, Size, data);
  data.Read(Target^, Size);
  data.Free;
end;

procedure TAccess_OniSplitArchive.LoadRawFile(FileID, DatOffset: Integer; var Target: TStream);
var
  raw_info: TRawDataInfo;
  streampos: Integer;
begin
  if not Assigned(Target) then
    Target := TMemoryStream.Create;
  if fileid < GetFileCount then
  begin
    raw_info := Self.GetRawInfo(FileID, DatOffset);

    Fdat_file.Seek(FRawStart + raw_info.RawAddr, soFromBeginning);
    streampos := Target.Position;
    Target.CopyFrom(Fdat_file, raw_info.RawSize);
    Target.Seek(streampos, soFromBeginning);
  end;
end;

procedure TAccess_OniSplitArchive.UpdateRawFile(FileID, DatOffset: Integer; Src: TStream);
var
  raw_info: TRawDataInfo;
begin
  if fileid < GetFileCount then
  begin
    raw_info := GetRawInfo(FileID, DatOffset);

    Fdat_file.Seek(FRawStart + raw_info.RawAddr, soFromBeginning);
    Fdat_file.CopyFrom(Src, Min(raw_info.RawSize, Src.Size));
  end;
end;

procedure TAccess_OniSplitArchive.LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; var Target: TStream);
var
  Data: TStream;
  streampos: Integer;
begin
  if not Assigned(Target) then
    Target := TMemoryStream.Create;
  if fileid < Self.GetFileCount then
  begin
    data := nil;
    LoadRawFile(FileID, DatOffset, Data);
    Data.Seek(Offset, soFromBeginning);
    streampos := Target.Position;
    Target.CopyFrom(Data, Size);
    Target.Seek(streampos, soFromBeginning);
  end;
end;


procedure TAccess_OniSplitArchive.UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: TStream);
var
  raw_info: TRawDataInfo;
begin
  if fileid < GetFileCount then
  begin
    raw_info := GetRawInfo(FileID, DatOffset);

    Fdat_file.Seek(FRawStart + raw_info.RawAddr + Offset, soFromBeginning);
    Fdat_file.CopyFrom(Src, Size);
  end;
end;

function TAccess_OniSplitArchive.AppendRawFile(LocSep: Boolean; Src: TStream): Integer;
const
  EmptyBytes: Array[0..31] of Byte = (
      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 );
begin
  if (Fdat_file.Size mod 32) > 0 then
    Fdat_file.Write(EmptyBytes[0], 32 - (Fdat_file.Size mod 32));
  Result := Fdat_file.Size - FRawStart;
  Fdat_file.Seek(0, soFromEnd);
  Fdat_file.CopyFrom(Src, Src.Size);
  if (Fdat_file.Size mod 32) > 0 then
    Fdat_file.Write(EmptyBytes[0], 32 - (Fdat_file.Size mod 32));
end;

end.
Revision:	254
Committed:	Tue Dec 18 20:33:47 2007 UTC (17 years, 10 months ago) by alloc
Content type:	text/x-pascal
File size:	16410 byte(s)
Log Message:
#	Content
1	unit Access_OniSplitArchive;
2	interface
3
4	uses DataAccess, Classes, TypeDefs;
5
6	type
7	TAccess_OniSplitArchive = class(TDataAccess)
8	private
9	Fdat_file: TFileStream;
10	Fdat_files: TFiles;
11	Fdat_extensionsmap: TExtensionsMap;
12	FRawStart: Integer;
13	protected
14	public
15	constructor Create(DatFilename: String; ConnectionID: Integer; var Msg: TStatusMessages); override;
16	procedure Close; override;
17
18	function GetFileInfo(FileID: Integer): TFileInfo; override;
19	function GetFilesList(Ext: String; Pattern: String;
20	NoEmptyFiles: Boolean; SortType: TSortType): TStrings; override;
21	function GetFileCount: Integer; override;
22	function GetExtensionsList(ExtListFormat: TExtensionFormat): TStrings; override;
23
24	procedure LoadDatFile(FileID: Integer; var Target: TStream); overload; override;
25	procedure UpdateDatFile(FileID: Integer; Src: TStream); overload; override;
26	procedure LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TStream); overload; override;
27	procedure UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream); overload; override;
28
29	function GetDatLinks(FileID: Integer): TDatLinkList; override;
30	function GetDatLink(FileID, DatOffset: Integer): TDatLink; override;
31	function GetRawList(FileID: Integer): TRawDataList; override;
32	function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; override;
33	function GetRawsForType(RawType: String): TRawDataList; override;
34
35	procedure LoadRawOffset(LocSep: Boolean; RawAddr, Size: Integer; var target: TStream); overload;
36	procedure LoadRawOffset(LocSep: Boolean; RawAddr, Size: Integer; target: Pointer); overload;
37	procedure LoadRawFile(FileID, DatOffset: Integer; var Target: TStream); overload; override;
38	procedure UpdateRawFile(FileID, DatOffset: Integer; Src: TStream); overload; override;
39	procedure LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; var Target: TStream); overload; override;
40	procedure UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: TStream); overload; override;
41
42	function AppendRawFile(LocSep: Boolean; Src: TStream): Integer; overload; override;
43	published
44	end;
45
46	implementation
47
48	uses
49	SysUtils, StrUtils, Data, Functions, RawList, DatLinks, Math;
50
51
52	(*
53	================================================================================
54	Implementation of TOniDataDat
55	*)
56
57
58	constructor TAccess_OniSplitArchive.Create(DatFilename: String; ConnectionID: Integer; var Msg: TStatusMessages);
59	var
60	i: Integer;
61	header_pc, header_mac, header_macbeta: Boolean;
62	Fdat_header: THeader;
63	Fdat_filesmap: TFilesMap;
64	Fdat_namedfilesmap: TNamedFilesMap;
65	const
66	HeaderGlobalIdent: TDatGlobalIdent = ($DF, $BC, $03, $00, $32, $33, $52, $56,
67	$40, $00, $14, $00, $10, $00, $08, $00);
68	begin
69	Msg := SM_UnknownError;
70	if not FileExists(DatFilename) then
71	begin
72	Msg := SM_FileNotFound;
73	Exit;
74	end;
75	FFileName := DatFilename;
76	Fdat_file := TFileStream.Create(FFileName, fmOpenReadWrite);
77	Fdat_file.Read(Fdat_header, SizeOf(Fdat_header));
78	header_pc := True;
79	header_mac := True;
80	header_macbeta := True;
81	for i := 0 to High(Fdat_header.GlobalIdent) do
82	if Fdat_header.GlobalIdent[i] <> HeaderGlobalIdent[i] then
83	begin
84	Msg := SM_IncompatibleFile;
85	Exit;
86	end;
87
88	for i := 0 to High(Fdat_header.OSIdent) do
89	begin
90	if Fdat_header.OSIdent[i] <> HeaderOSIdentWin[i] then
91	header_pc := False;
92	if Fdat_header.OSIdent[i] <> HeaderOSIdentMac[i] then
93	header_mac := False;
94	if Fdat_header.OSIdent[i] <> HeaderOSIdentMacBeta[i] then
95	header_macbeta := False;
96	end;
97	if not (header_pc xor header_mac xor header_macbeta) then
98	begin
99	Msg := SM_IncompatibleFile;
100	Exit;
101	end
102	else
103	begin
104	if (header_pc and not header_mac and not header_macbeta) then
105	FDataOS := DOS_WIN
106	else if (not header_pc and header_mac and not header_macbeta) then
107	FDataOS := DOS_MAC
108	else if (not header_pc and not header_mac and header_macbeta) then
109	FDataOS := DOS_MACBETA;
110	end;
111	SetLength(Fdat_filesmap, Fdat_header.Files);
112	SetLength(Fdat_files, Fdat_header.Files);
113	for i := 0 to Fdat_header.Files - 1 do
114	Fdat_file.Read(Fdat_filesmap[i], SizeOf(Fdat_filesmap[i]));
115	for i := 0 to Fdat_header.Files - 1 do
116	begin
117	Fdat_files[i].ID := i;
118	Fdat_files[i].Extension := Fdat_filesmap[i].Extension;
119	Fdat_files[i].Extension := ReverseString(Fdat_files[i].Extension);
120	Fdat_files[i].Size := Fdat_filesmap[i].FileSize;
121	Fdat_files[i].FileType := Fdat_filesmap[i].FileType;
122	Fdat_files[i].DatAddr := Fdat_filesmap[i].DataAddr - 8 + Fdat_header.DataAddr;
123	if (Fdat_filesmap[i].FileType and $01) = 0 then
124	begin
125	Fdat_file.Seek(Fdat_filesmap[i].NameAddr + Fdat_header.NamesAddr, soFromBeginning);
126	SetLength(Fdat_files[i].Name, 100);
127	Fdat_file.Read(Fdat_files[i].Name[1], 100);
128	Fdat_files[i].Name := MidStr(Fdat_files[i].Name, 1 + 4, Pos(
129	#0, Fdat_files[i].Name) - 1 - 4);
130	end
131	else
132	begin
133	Fdat_files[i].Name := '';
134	end;
135	end;
136	Fdat_file.Seek($40 + Fdat_header.Files * $14, soFromBeginning);
137	SetLength(Fdat_namedfilesmap, Fdat_header.NamedFiles);
138	for i := 0 to Fdat_header.NamedFiles - 1 do
139	Fdat_file.Read(Fdat_namedfilesmap[i], SizeOf(Fdat_namedfilesmap[i]));
140
141	Fdat_file.Seek($40 + Fdat_header.Files * $14 + Fdat_header.NamedFiles * $8, soFromBeginning);
142	SetLength(Fdat_extensionsmap, Fdat_header.Extensions);
143	for i := 0 to Fdat_header.Extensions - 1 do
144	Fdat_file.Read(Fdat_extensionsmap[i], SizeOf(Fdat_extensionsmap[i]));
145
146	Fdat_file.Seek(Fdat_files[0].DatAddr + 7, soFromBeginning);
147	Fdat_file.Read(FLevelNumber, 1);
148	FLevelNumber := FLevelNumber div 2;
149
150	with Fdat_header do
151	FRawStart := Ident2[0] + Ident2[1]256 + Ident2[2]256256 + Ident2[3]256256256;
152
153	Msg := SM_OK;
154	FBackend := DB_ONISPLIT;
155	FConnectionID := ConnectionID;
156	FChangeRights := [CR_EditDat, CR_EditRaw, CR_AppendRaw];
157
158	inherited;
159	end;
160
161
162
163
164	procedure TAccess_OniSplitArchive.Close;
165	begin
166	if Assigned(Fdat_file) then
167	Fdat_file.Free;
168	Self.Free;
169	end;
170
171
172
173
174	function TAccess_OniSplitArchive.GetFileInfo(fileid: Integer): TFileInfo;
175	begin
176	if fileid = -1 then
177	begin
178	Result := inherited GetFileInfo(fileid);
179	Exit;
180	end;
181	if fileid < Self.GetFileCount then
182	Result := Fdat_files[fileid]
183	else
184	Result.ID := -1;
185	end;
186
187
188
189
190	function TAccess_OniSplitArchive.GetFilesList(ext: String; pattern: String;
191	NoEmptyFiles: Boolean; SortType: TSortType): TStrings;
192	var
193	i: Integer;
194	list: TStringList;
195	id, name, extension: String;
196	fields: TStrings;
197
198	procedure getfields;
199	begin
200	fields.CommaText := StringReplace(AnsiQuotedStr(list.Strings[i], '"'), ';', '","', [rfReplaceAll]);
201	if SortType in [ST_IDAsc, ST_IDDesc] then
202	begin
203	id := fields.Strings[0];
204	name := fields.Strings[1];
205	extension := fields.Strings[2];
206	end;
207	if SortType in [ST_NameAsc, ST_NameDesc] then
208	begin
209	id := fields.Strings[1];
210	name := fields.Strings[0];
211	extension := fields.Strings[2];
212	end;
213	if SortType in [ST_ExtAsc, ST_ExtDesc] then
214	begin
215	id := fields.Strings[1];
216	name := fields.Strings[2];
217	extension := fields.Strings[0];
218	end;
219	if SortType in [ST_ExtNameAsc, ST_ExtNameDesc] then
220	begin
221	id := fields.Strings[2];
222	name := fields.Strings[1];
223	extension := fields.Strings[0];
224	end;
225	end;
226
227	begin
228	list := TStringList.Create;
229	list.Sorted := True;
230	if ext = '*' then
231	ext := '';
232	for i := 0 to GetFileCount - 1 do
233	begin
234	if ((Length(ext) = 0) or (Pos(Fdat_files[i].Extension, ext) > 0)) and
235	((Length(pattern) = 0) or
236	(Pos(UpperCase(pattern), UpperCase(Fdat_files[i].Name)) > 0)) then
237	begin
238	if (NoEmptyFiles = False) or ((Fdat_files[i].FileType and $02) = 0) then
239	begin
240	id := FormatNumber(Fdat_files[i].ID, 5, '0');
241	name := Fdat_files[i].Name;
242	extension := Fdat_files[i].Extension;
243
244	case SortType of
245	ST_IDAsc, ST_IDDesc: list.Add(id + ';' + name + ';' + extension);
246	ST_NameAsc, ST_NameDesc: list.Add(name + ';' + id + ';' + extension);
247	ST_ExtAsc, ST_ExtDesc: list.Add(extension + ';' + id + ';' + name);
248	ST_ExtNameAsc, ST_ExtNameDesc: list.Add(name + ';' + extension + ';' + id);
249	end;
250	end;
251	end;
252	end;
253	if not Assigned(Result) then
254	Result := TStringList.Create;
255	if list.Count > 0 then
256	begin
257	fields := TStringList.Create;
258	if SortType in [ST_IDAsc, ST_NameAsc, ST_ExtAsc, ST_ExtNameAsc] then
259	for i := 0 to list.Count - 1 do
260	begin
261	getfields;
262	Result.Add(id + '-' + name + '.' + extension);
263	end
264	else
265	for i := list.Count - 1 downto 0 do
266	begin
267	getfields;
268	Result.Add(id + '-' + name + '.' + extension);
269	end;
270	fields.Free;
271	end;
272	list.Free;
273	end;
274
275
276
277
278	function TAccess_OniSplitArchive.GetFileCount: Integer;
279	begin
280	Result := Length(Fdat_files);
281	end;
282
283
284
285
286	function TAccess_OniSplitArchive.GetExtensionsList(ExtListFormat: TExtensionFormat): TStrings;
287	var
288	i: Integer;
289	begin
290	if not Assigned(Result) then
291	Result := TStringList.Create;
292	if Result is TStringList then
293	TStringList(Result).Sorted := True;
294	for i := 0 to Length(Fdat_extensionsmap) - 1 do
295	begin
296	with Fdat_extensionsmap[i] do
297	begin
298	case ExtListFormat of
299	EF_ExtOnly:
300	Result.Add(Extension[3] + Extension[2] + Extension[1] + Extension[0]);
301	EF_ExtCount:
302	Result.Add(Extension[3] + Extension[2] + Extension[1] + Extension[0] +
303	' (' + IntToStr(ExtCount) + ')');
304	end;
305	end;
306	end;
307	end;
308
309
310
311	procedure TAccess_OniSplitArchive.LoadDatFile(FileID: Integer; var Target: TStream);
312	var
313	streampos: Integer;
314	begin
315	if fileid < GetFileCount then
316	begin
317	if not Assigned(Target) then
318	Target := TMemoryStream.Create;
319	if GetFileInfo(FileID).Size > 0 then
320	begin
321	Fdat_file.Seek(Fdat_files[fileid].DatAddr, soFromBeginning);
322	streampos := Target.Position;
323	Target.CopyFrom(Fdat_file, Fdat_files[fileid].Size);
324	Target.Seek(streampos, soFromBeginning);
325	end;
326	end;
327	end;
328
329	procedure TAccess_OniSplitArchive.UpdateDatFile(FileID: Integer; Src: TStream);
330	begin
331	if fileid < GetFileCount then
332	begin
333	Fdat_file.Seek(Fdat_files[fileid].DatAddr, soFromBeginning);
334	Fdat_file.CopyFrom(Src, Fdat_files[fileid].Size);
335	end;
336	end;
337
338	procedure TAccess_OniSplitArchive.LoadDatFilePart(FileID, Offset, Size: Integer; var Target: TStream);
339	var
340	streampos: Integer;
341	begin
342	if fileid < GetFileCount then
343	begin
344	if not Assigned(Target) then
345	Target := TMemoryStream.Create;
346	Fdat_file.Seek(Fdat_files[fileid].DatAddr + offset, soFromBeginning);
347	streampos := Target.Position;
348	Target.CopyFrom(Fdat_file, size);
349	Target.Seek(streampos, soFromBeginning);
350	end;
351	end;
352
353	procedure TAccess_OniSplitArchive.UpdateDatFilePart(FileID, Offset, Size: Integer; Src: TStream);
354	begin
355	if fileid < GetFileCount then
356	begin
357	Fdat_file.Seek(Fdat_files[fileid].DatAddr + offset, soFromBeginning);
358	Fdat_file.CopyFrom(Src, Size);
359	end;
360	end;
361
362
363
364	function TAccess_OniSplitArchive.GetDatLink(FileID, DatOffset: Integer): TDatLink;
365	var
366	link: Integer;
367	begin
368	Result := DatLinksManager.GetDatLink(FConnectionID, FileID, DatOffset);
369	LoadDatFilePart(fileid, Result.SrcOffset, 4, @link);
370	if link > 0 then
371	Result.DestID := link div 256
372	else
373	Result.DestID := -1;
374	end;
375
376
377	function TAccess_OniSplitArchive.GetDatLinks(FileID: Integer): TDatLinkList;
378	var
379	i: Integer;
380	link: Integer;
381	begin
382	Result := DatLinksManager.GetDatLinks(FConnectionID, FileID);
383	if Length(Result) > 0 then
384	begin
385	for i := 0 to High(Result) do
386	begin
387	LoadDatFilePart(fileid, Result[i].SrcOffset, 4, @link);
388	if link > 0 then
389	Result[i].DestID := link div 256
390	else
391	Result[i].DestID := -1;
392	end;
393	end;
394	end;
395
396
397	function TAccess_OniSplitArchive.GetRawList(FileID: Integer): TRawDataList;
398	begin
399	Result := RawLists.GetRawList(FConnectionID, FileID);
400	end;
401
402
403	function TAccess_OniSplitArchive.GetRawsForType(RawType: String): TRawDataList;
404	var
405	i, j: Integer;
406	dats: TStrings;
407	list: TRawDataList;
408	begin
409	dats := nil;
410	dats := GetFilesList(MidStr(RawType, 1, 4), '', True, ST_IDAsc);
411	for i := 0 to dats.Count - 1 do
412	begin
413	list := GetRawList(StrToInt(MidStr(dats.Strings[i], 1, 5)));
414	for j := 0 to Length(list) - 1 do
415	begin
416	if (list[j].RawType = RawType) and (list[j].RawSize > 0) then
417	begin
418	SetLength(Result, Length(Result)+1);
419	Result[High(Result)] := list[j];
420	end;
421	end;
422	end;
423	end;
424
425
426	function TAccess_OniSplitArchive.GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo;
427	begin
428	Result := RawLists.GetRawInfo(FConnectionID, FileID, DatOffset);
429	end;
430
431
432
433	procedure TAccess_OniSplitArchive.LoadRawOffset(LocSep: Boolean; RawAddr, Size: Integer; var target: TStream);
434	begin
435	if not Assigned(Target) then
436	Target := TMemoryStream.Create;
437	if FRawStart + RawAddr <= Fdat_file.Size then
438	begin
439	Fdat_file.Seek(FRawStart + RawAddr, soFromBeginning);
440	Target.CopyFrom(Fdat_file, size);
441	Target.Seek(0, soFromBeginning);
442	end;
443	end;
444
445	procedure TAccess_OniSplitArchive.LoadRawOffset(LocSep: Boolean; RawAddr, Size: Integer; target: Pointer);
446	var
447	data: TStream;
448	begin
449	data := nil;
450	LoadRawOffset(LocSep, RawAddr, Size, data);
451	data.Read(Target^, Size);
452	data.Free;
453	end;
454
455	procedure TAccess_OniSplitArchive.LoadRawFile(FileID, DatOffset: Integer; var Target: TStream);
456	var
457	raw_info: TRawDataInfo;
458	streampos: Integer;
459	begin
460	if not Assigned(Target) then
461	Target := TMemoryStream.Create;
462	if fileid < GetFileCount then
463	begin
464	raw_info := Self.GetRawInfo(FileID, DatOffset);
465
466	Fdat_file.Seek(FRawStart + raw_info.RawAddr, soFromBeginning);
467	streampos := Target.Position;
468	Target.CopyFrom(Fdat_file, raw_info.RawSize);
469	Target.Seek(streampos, soFromBeginning);
470	end;
471	end;
472
473	procedure TAccess_OniSplitArchive.UpdateRawFile(FileID, DatOffset: Integer; Src: TStream);
474	var
475	raw_info: TRawDataInfo;
476	begin
477	if fileid < GetFileCount then
478	begin
479	raw_info := GetRawInfo(FileID, DatOffset);
480
481	Fdat_file.Seek(FRawStart + raw_info.RawAddr, soFromBeginning);
482	Fdat_file.CopyFrom(Src, Min(raw_info.RawSize, Src.Size));
483	end;
484	end;
485
486	procedure TAccess_OniSplitArchive.LoadRawFilePart(FileID, DatOffset, Offset, Size: Integer; var Target: TStream);
487	var
488	Data: TStream;
489	streampos: Integer;
490	begin
491	if not Assigned(Target) then
492	Target := TMemoryStream.Create;
493	if fileid < Self.GetFileCount then
494	begin
495	data := nil;
496	LoadRawFile(FileID, DatOffset, Data);
497	Data.Seek(Offset, soFromBeginning);
498	streampos := Target.Position;
499	Target.CopyFrom(Data, Size);
500	Target.Seek(streampos, soFromBeginning);
501	end;
502	end;
503
504
505	procedure TAccess_OniSplitArchive.UpdateRawFilePart(FileID, DatOffset, Offset, Size: Integer; Src: TStream);
506	var
507	raw_info: TRawDataInfo;
508	begin
509	if fileid < GetFileCount then
510	begin
511	raw_info := GetRawInfo(FileID, DatOffset);
512
513	Fdat_file.Seek(FRawStart + raw_info.RawAddr + Offset, soFromBeginning);
514	Fdat_file.CopyFrom(Src, Size);
515	end;
516	end;
517
518	function TAccess_OniSplitArchive.AppendRawFile(LocSep: Boolean; Src: TStream): Integer;
519	const
520	EmptyBytes: Array[0..31] of Byte = (
521	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 );
522	begin
523	if (Fdat_file.Size mod 32) > 0 then
524	Fdat_file.Write(EmptyBytes[0], 32 - (Fdat_file.Size mod 32));
525	Result := Fdat_file.Size - FRawStart;
526	Fdat_file.Seek(0, soFromEnd);
527	Fdat_file.CopyFrom(Src, Src.Size);
528	if (Fdat_file.Size mod 32) > 0 then
529	Fdat_file.Write(EmptyBytes[0], 32 - (Fdat_file.Size mod 32));
530	end;
531
532	end.