releases/0.16a/Unit2_functions.pas

UNIT Unit2_functions;
INTERFACE
USES Classes, SysUtils, StrUtils, Math, SQLiteTable3, Unit3_data, Unit4_Exporters;

FUNCTION LoadDatInfos(filename:String):Boolean;
FUNCTION LoadDatFile(fileid:LongWord):Tdata;
PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
FUNCTION FormatFileSize(size:LongWord):String;
FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
FUNCTION GetExtractPath:String;


IMPLEMENTATION


FUNCTION LoadDatInfos(filename:String):Boolean;
  VAR i:LongWord;
    dat_file:TFileStream;
  BEGIN
    Result:=True;
    dat_filename:=filename;
    raw_filename:=MidStr(filename,1,Length(filename)-3)+'raw';
    dat_file:=TFileStream.Create(filename, fmOpenRead);
    dat_file.Read(dat_header,SizeOf(dat_header));
    FOR i:=0 TO High(dat_header.Ident) DO
      IF dat_header.Ident[i]<>header_ident1[i] THEN BEGIN
        Result:=False;
        Exit;
      END;
{    FOR i:=0 TO High(dat_header.Ident2) DO
      IF dat_header.Ident2[i]<>header_ident2[i] THEN BEGIN
        Result:=False;
        Exit;
     END;
}
    SetLength(dat_filesmap,dat_header.Files);
    SetLength(dat_files,dat_header.Files);
    FOR i:=0 TO dat_header.Files-1 DO dat_file.Read(dat_filesmap[i],SizeOf(dat_filesmap[i]));
    FOR i:=0 TO dat_header.Files-1 DO BEGIN
      dat_files[i].Extension:=dat_filesmap[i].Extension;
      dat_files[i].Extension:=ReverseString(dat_files[i].Extension);
      dat_files[i].Size:=dat_filesmap[i].FileSize;
      dat_files[i].FileType:=dat_filesmap[i].FileType;
      dat_files[i].DatAddr:=dat_filesmap[i].DataAddr-8+dat_header.DataAddr;
      IF (dat_filesmap[i].FileType AND $01)=0 THEN BEGIN
        dat_file.Seek(dat_filesmap[i].NameAddr+dat_header.NamesAddr,soFromBeginning);
        SetLength(dat_files[i].Name,100);
        dat_file.Read(dat_files[i].Name[1],100);
        dat_files[i].Name:=MidStr(dat_files[i].Name,1+4,Pos(#0,dat_files[i].Name)-1-4);
      END ELSE BEGIN
        dat_files[i].Name:='';
      END;
      dat_files[i].FileName:=FormatNumber(i,5,'0')+'-'+dat_files[i].Name+'.'+dat_files[i].Extension;
    END;
    dat_file.Seek($40+dat_header.Files*$14,soFromBeginning);
    SetLength(dat_namedfilesmap,dat_header.NamedFiles);
    FOR i:=0 TO dat_header.NamedFiles-1 DO dat_file.Read(dat_namedfilesmap[i],SizeOf(dat_namedfilesmap[i]));

    dat_file.Seek($40+dat_header.Files*$14+dat_header.NamedFiles*$8,soFromBeginning);
    SetLength(dat_extensionsmap,dat_header.Extensions);
    FOR i:=0 TO dat_header.Extensions-1 DO dat_file.Read(dat_extensionsmap[i],SizeOf(dat_extensionsmap[i]));

    dat_file.Free;
  END;


FUNCTION LoadDatFile(fileid:LongWord):Tdata;
  VAR dat_file:TFileStream;
  BEGIN
    dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
    dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
    SetLength(Result,dat_files[fileid].Size);
    dat_file.Read(Result[0],dat_files[fileid].Size);
    dat_file.Free;
  END;


PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
  VAR dat_file:TFileStream;
  BEGIN
    dat_file:=TFileStream.Create(dat_filename, fmOpenReadWrite);
    dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
    dat_file.Write(data[0],Length(data));
    dat_file.Free;
  END;


FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
  VAR dat_file:TFileStream;
  BEGIN
    dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
    Result:=True;
    dat_file.Seek(dat_files[fileid].DatAddr+offset,soFromBeginning);
    dat_file.Read(target^,size);
    dat_file.Free;
  END;


FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
  VAR
    filestream:TFileStream;
  BEGIN
    Result:=True;
    filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.raw'),fmOpenRead);
    filestream.Seek(address,soFromBeginning);
    filestream.Read(target^,size);
    filestream.Free;
  END;


FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
  BEGIN
    Result:=AnsiReplaceStr(Format('%'+IntToStr(width)+'u',[value]),' ',leadingzeros);
  END;


FUNCTION FormatFileSize(size:LongWord):String;
  BEGIN
    IF size>=1024*1024*1024 THEN BEGIN
      Result:=FloatToStrF(size/1024/1024/1024,ffFixed,5,1)+' GB';
    END ELSE BEGIN
      IF size>=1024*1024 THEN BEGIN
        Result:=FloatToStrF(size/1024/1024,ffFixed,5,1)+' MB';
      END ELSE BEGIN
        IF size>=1024 THEN BEGIN
          Result:=FloatToStrF(size/1024,ffFixed,5,1)+' KB';
        END ELSE BEGIN
          Result:=IntToStr(size)+' B';
        END;
      END;
    END;
  END;


FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
  VAR
    string_build,ascii_version:String;
    i:LongWord;
  BEGIN
    string_build:='';
    ascii_version:='';
    FOR i:=0 TO High(data) DO BEGIN
      IF NOT HexOnly THEN
        IF (i MOD 16)=0 THEN
          string_build:=string_build+'0x'+IntToHex(i,6)+'  ';
      string_build:=string_build+IntToHex(data[i],2);
      IF NOT HexOnly THEN BEGIN
        IF data[i]>=32 THEN ascii_version:=ascii_version+Chr(data[i])
        ELSE ascii_version:=ascii_version+'.';
        IF ((i+1) MOD 2)=0 THEN string_build:=string_build+#32;
        IF ((i+1) MOD 16)=0 THEN BEGIN
          string_build:=string_build+#32+ascii_version+CrLf;
          ascii_version:='';
        END;
      END;
    END;
    Result:=string_build;
  END;


FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
  VAR
    i:Byte;
  BEGIN
    Result:=export_noerror;

    //ExportDefFileHeader(fileid);

    IF (dat_files[fileid].FileType AND $02)=0 THEN BEGIN
      //ExportDatFile(fileid);

      FOR i:=1 TO Length(ExportHandlers)+1 DO BEGIN
        IF i<=Length(ExportHandlers) THEN BEGIN
          IF ExportHandlers[i].Ext=dat_files[fileid].Extension THEN BEGIN
            IF ExportHandlers[i].needed THEN BEGIN
              CASE ExportHandlers[i].Handler(fileid,convert) OF
                0: Result:=0;
              ELSE
                Result:=export_handlererror;
              END;
            END;
            Break;
          END;
        END ELSE BEGIN
          Result:=export_nohandler;
        END;
      END;
    END;
  END;


FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
  VAR
    name:String;
  BEGIN
    name:=dat_files[fileid].Name;
    name:=AnsiReplaceStr(name,'\','__');
    name:=AnsiReplaceStr(name,'/','__');
    name:=AnsiReplaceStr(name,'>','__');
    name:=AnsiReplaceStr(name,'<','__');
    Result:=FormatNumber(fileid,5,'0')+'-'+name+'.'+substring+'.'+dat_files[fileid].Extension;
  END;

FUNCTION GetExtractPath:String;
  BEGIN
    Result:=ExtractFilePath(dat_filename)+'\extracted_'+ExtractFileName(dat_filename);
  END;


END.
Revision:	21
Committed:	Sat Aug 26 19:11:49 2006 UTC (19 years, 1 month ago) by alloc
Content type:	text/x-pascal
File size:	7228 byte(s)
Log Message:
#	Content
1	UNIT Unit2_functions;
2	INTERFACE
3	USES Classes, SysUtils, StrUtils, Math, SQLiteTable3, Unit3_data, Unit4_Exporters;
4
5	FUNCTION LoadDatInfos(filename:String):Boolean;
6	FUNCTION LoadDatFile(fileid:LongWord):Tdata;
7	PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
8	FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
9	FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
10	FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
11	FUNCTION FormatFileSize(size:LongWord):String;
12	FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
13	FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
14	FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
15	FUNCTION GetExtractPath:String;
16
17
18
19	IMPLEMENTATION
20
21
22	FUNCTION LoadDatInfos(filename:String):Boolean;
23	VAR i:LongWord;
24	dat_file:TFileStream;
25	BEGIN
26	Result:=True;
27	dat_filename:=filename;
28	raw_filename:=MidStr(filename,1,Length(filename)-3)+'raw';
29	dat_file:=TFileStream.Create(filename, fmOpenRead);
30	dat_file.Read(dat_header,SizeOf(dat_header));
31	FOR i:=0 TO High(dat_header.Ident) DO
32	IF dat_header.Ident[i]<>header_ident1[i] THEN BEGIN
33	Result:=False;
34	Exit;
35	END;
36	{ FOR i:=0 TO High(dat_header.Ident2) DO
37	IF dat_header.Ident2[i]<>header_ident2[i] THEN BEGIN
38	Result:=False;
39	Exit;
40	END;
41	}
42	SetLength(dat_filesmap,dat_header.Files);
43	SetLength(dat_files,dat_header.Files);
44	FOR i:=0 TO dat_header.Files-1 DO dat_file.Read(dat_filesmap[i],SizeOf(dat_filesmap[i]));
45	FOR i:=0 TO dat_header.Files-1 DO BEGIN
46	dat_files[i].Extension:=dat_filesmap[i].Extension;
47	dat_files[i].Extension:=ReverseString(dat_files[i].Extension);
48	dat_files[i].Size:=dat_filesmap[i].FileSize;
49	dat_files[i].FileType:=dat_filesmap[i].FileType;
50	dat_files[i].DatAddr:=dat_filesmap[i].DataAddr-8+dat_header.DataAddr;
51	IF (dat_filesmap[i].FileType AND $01)=0 THEN BEGIN
52	dat_file.Seek(dat_filesmap[i].NameAddr+dat_header.NamesAddr,soFromBeginning);
53	SetLength(dat_files[i].Name,100);
54	dat_file.Read(dat_files[i].Name[1],100);
55	dat_files[i].Name:=MidStr(dat_files[i].Name,1+4,Pos(#0,dat_files[i].Name)-1-4);
56	END ELSE BEGIN
57	dat_files[i].Name:='';
58	END;
59	dat_files[i].FileName:=FormatNumber(i,5,'0')+'-'+dat_files[i].Name+'.'+dat_files[i].Extension;
60	END;
61	dat_file.Seek($40+dat_header.Files*$14,soFromBeginning);
62	SetLength(dat_namedfilesmap,dat_header.NamedFiles);
63	FOR i:=0 TO dat_header.NamedFiles-1 DO dat_file.Read(dat_namedfilesmap[i],SizeOf(dat_namedfilesmap[i]));
64
65	dat_file.Seek($40+dat_header.Files$14+dat_header.NamedFiles$8,soFromBeginning);
66	SetLength(dat_extensionsmap,dat_header.Extensions);
67	FOR i:=0 TO dat_header.Extensions-1 DO dat_file.Read(dat_extensionsmap[i],SizeOf(dat_extensionsmap[i]));
68
69	dat_file.Free;
70	END;
71
72
73	FUNCTION LoadDatFile(fileid:LongWord):Tdata;
74	VAR dat_file:TFileStream;
75	BEGIN
76	dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
77	dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
78	SetLength(Result,dat_files[fileid].Size);
79	dat_file.Read(Result[0],dat_files[fileid].Size);
80	dat_file.Free;
81	END;
82
83
84	PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
85	VAR dat_file:TFileStream;
86	BEGIN
87	dat_file:=TFileStream.Create(dat_filename, fmOpenReadWrite);
88	dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
89	dat_file.Write(data[0],Length(data));
90	dat_file.Free;
91	END;
92
93
94	FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
95	VAR dat_file:TFileStream;
96	BEGIN
97	dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
98	Result:=True;
99	dat_file.Seek(dat_files[fileid].DatAddr+offset,soFromBeginning);
100	dat_file.Read(target^,size);
101	dat_file.Free;
102	END;
103
104
105	FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
106	VAR
107	filestream:TFileStream;
108	BEGIN
109	Result:=True;
110	filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.raw'),fmOpenRead);
111	filestream.Seek(address,soFromBeginning);
112	filestream.Read(target^,size);
113	filestream.Free;
114	END;
115
116
117	FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
118	BEGIN
119	Result:=AnsiReplaceStr(Format('%'+IntToStr(width)+'u',[value]),' ',leadingzeros);
120	END;
121
122
123	FUNCTION FormatFileSize(size:LongWord):String;
124	BEGIN
125	IF size>=102410241024 THEN BEGIN
126	Result:=FloatToStrF(size/1024/1024/1024,ffFixed,5,1)+' GB';
127	END ELSE BEGIN
128	IF size>=1024*1024 THEN BEGIN
129	Result:=FloatToStrF(size/1024/1024,ffFixed,5,1)+' MB';
130	END ELSE BEGIN
131	IF size>=1024 THEN BEGIN
132	Result:=FloatToStrF(size/1024,ffFixed,5,1)+' KB';
133	END ELSE BEGIN
134	Result:=IntToStr(size)+' B';
135	END;
136	END;
137	END;
138	END;
139
140
141	FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
142	VAR
143	string_build,ascii_version:String;
144	i:LongWord;
145	BEGIN
146	string_build:='';
147	ascii_version:='';
148	FOR i:=0 TO High(data) DO BEGIN
149	IF NOT HexOnly THEN
150	IF (i MOD 16)=0 THEN
151	string_build:=string_build+'0x'+IntToHex(i,6)+' ';
152	string_build:=string_build+IntToHex(data[i],2);
153	IF NOT HexOnly THEN BEGIN
154	IF data[i]>=32 THEN ascii_version:=ascii_version+Chr(data[i])
155	ELSE ascii_version:=ascii_version+'.';
156	IF ((i+1) MOD 2)=0 THEN string_build:=string_build+#32;
157	IF ((i+1) MOD 16)=0 THEN BEGIN
158	string_build:=string_build+#32+ascii_version+CrLf;
159	ascii_version:='';
160	END;
161	END;
162	END;
163	Result:=string_build;
164	END;
165
166
167	FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
168	VAR
169	i:Byte;
170	BEGIN
171	Result:=export_noerror;
172
173	//ExportDefFileHeader(fileid);
174
175	IF (dat_files[fileid].FileType AND $02)=0 THEN BEGIN
176	//ExportDatFile(fileid);
177
178	FOR i:=1 TO Length(ExportHandlers)+1 DO BEGIN
179	IF i<=Length(ExportHandlers) THEN BEGIN
180	IF ExportHandlers[i].Ext=dat_files[fileid].Extension THEN BEGIN
181	IF ExportHandlers[i].needed THEN BEGIN
182	CASE ExportHandlers[i].Handler(fileid,convert) OF
183	0: Result:=0;
184	ELSE
185	Result:=export_handlererror;
186	END;
187	END;
188	Break;
189	END;
190	END ELSE BEGIN
191	Result:=export_nohandler;
192	END;
193	END;
194	END;
195	END;
196
197
198	FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
199	VAR
200	name:String;
201	BEGIN
202	name:=dat_files[fileid].Name;
203	name:=AnsiReplaceStr(name,'\','__');
204	name:=AnsiReplaceStr(name,'/','__');
205	name:=AnsiReplaceStr(name,'>','__');
206	name:=AnsiReplaceStr(name,'<','__');
207	Result:=FormatNumber(fileid,5,'0')+'-'+name+'.'+substring+'.'+dat_files[fileid].Extension;
208	END;
209
210	FUNCTION GetExtractPath:String;
211	BEGIN
212	Result:=ExtractFilePath(dat_filename)+'\extracted_'+ExtractFileName(dat_filename);
213	END;
214
215
216	END.