source: oup/releases/0.19a/Unit2_functions.pas@ 598

Last change on this file since 598 was 21, checked in by alloc, 18 years ago
File size: 10.7 KB
RevLine 
[21]1UNIT Unit2_functions;
2INTERFACE
3USES Classes, Dialogs, SysUtils, StrUtils, Math, SQLiteTable3,
4 Unit3_data, Unit4_Exporters;
5
6FUNCTION GetFilesList(ext:String; pattern:String):TStringList;
7FUNCTION Decode_Int(buffer:Tdata):LongWord;
8FUNCTION Encode_Int(input:LongWord):Tdata;
9FUNCTION Decode_Float(buffer:Tdata):Single;
10FUNCTION Encode_Float(input:Single):Tdata;
11FUNCTION LoadDatInfos(filename:String):Boolean;
12FUNCTION LoadDatFile(fileid:LongWord):Tdata;
13PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
14FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
15FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
16FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
17FUNCTION FormatFileSize(size:LongWord):String;
18FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
19FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
20FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
21FUNCTION GetExtractPath:String;
22PROCEDURE OpenDatabase(FileName:String);
23
24
25IMPLEMENTATION
26
27TYPE
28 TValueSwitcher=Record
29 CASE IsFloat: Boolean OF
30 True: (ValueFloat:Single);
31 False: (ValueInt:LongWord);
32 END;
33
34
35FUNCTION Decode_Int(buffer:Tdata):LongWord;
36 BEGIN
37 Result:=buffer[0]+buffer[1]*256+buffer[2]*256*256+buffer[3]*256*256*256;
38 END;
39FUNCTION Encode_Int(input:LongWord):Tdata;
40 BEGIN
41 Result[0]:=input MOD 256;
42 input:=input DIV 256;
43 Result[1]:=input MOD 256;
44 input:=input DIV 256;
45 Result[2]:=input MOD 256;
46 input:=input DIV 256;
47 Result[3]:=input MOD 256;
48 END;
49FUNCTION Decode_Float(buffer:Tdata):Single;
50 VAR _valueswitcher:TValueSwitcher;
51 BEGIN
52 _valueswitcher.ValueInt:=Decode_Int(buffer);
53 Result:=_valueswitcher.ValueFloat;
54 END;
55FUNCTION Encode_Float(input:Single):Tdata;
56 VAR _valueswitcher:TValueSwitcher;
57 BEGIN
58 _valueswitcher.ValueFloat:=input;
59 Result:=Encode_Int(_valueswitcher.ValueInt);
60 END;
61
62
63FUNCTION GetFilesList(ext:String; pattern:String):TStringList;
64 VAR
65 i:LongWord;
66 BEGIN
67 SetLength(Result,0);
68 IF opened_state=opened_dat THEN BEGIN
69 FOR i:=0 TO dat_header.Files-1 DO BEGIN
70 IF (Length(ext)=0 OR dat_files[i].Extension=ext) AND
71 (Length(pattern)=0 OR Pos(pattern,dat_files[i].FileName)>0) THEN BEGIN
72 SetLength(Result,Length(Result)+1);
73 Result[High(Result)]:=dat_files[i].FileName;
74 END;
75 END;
76 END ELSE BEGIN
77 END;
78 END;
79
80FUNCTION LoadDatInfos(filename:String):Boolean;
81 VAR i:LongWord;
82 dat_file:TFileStream;
83 BEGIN
84 Result:=True;
85 opened_state:=opened_dat;
86 dat_filename:=filename;
87 raw_filename:=MidStr(filename,1,Length(filename)-3)+'raw';
88 dat_file:=TFileStream.Create(filename, fmOpenRead);
89 dat_file.Read(dat_header,SizeOf(dat_header));
90 FOR i:=0 TO High(dat_header.Ident) DO
91 IF dat_header.Ident[i]<>header_ident1[i] THEN BEGIN
92 Result:=False;
93 Exit;
94 END;
95{ FOR i:=0 TO High(dat_header.Ident2) DO
96 IF dat_header.Ident2[i]<>header_ident2[i] THEN BEGIN
97 Result:=False;
98 Exit;
99 END;
100}
101 SetLength(dat_filesmap,dat_header.Files);
102 SetLength(dat_files,dat_header.Files);
103 FOR i:=0 TO dat_header.Files-1 DO dat_file.Read(dat_filesmap[i],SizeOf(dat_filesmap[i]));
104 FOR i:=0 TO dat_header.Files-1 DO BEGIN
105 dat_files[i].Extension:=dat_filesmap[i].Extension;
106 dat_files[i].Extension:=ReverseString(dat_files[i].Extension);
107 dat_files[i].Size:=dat_filesmap[i].FileSize;
108 dat_files[i].FileType:=dat_filesmap[i].FileType;
109 dat_files[i].DatAddr:=dat_filesmap[i].DataAddr-8+dat_header.DataAddr;
110 IF (dat_filesmap[i].FileType AND $01)=0 THEN BEGIN
111 dat_file.Seek(dat_filesmap[i].NameAddr+dat_header.NamesAddr,soFromBeginning);
112 SetLength(dat_files[i].Name,100);
113 dat_file.Read(dat_files[i].Name[1],100);
114 dat_files[i].Name:=MidStr(dat_files[i].Name,1+4,Pos(#0,dat_files[i].Name)-1-4);
115 END ELSE BEGIN
116 dat_files[i].Name:='';
117 END;
118 dat_files[i].FileName:=FormatNumber(i,5,'0')+'-'+dat_files[i].Name+'.'+dat_files[i].Extension;
119 END;
120 dat_file.Seek($40+dat_header.Files*$14,soFromBeginning);
121 SetLength(dat_namedfilesmap,dat_header.NamedFiles);
122 FOR i:=0 TO dat_header.NamedFiles-1 DO dat_file.Read(dat_namedfilesmap[i],SizeOf(dat_namedfilesmap[i]));
123
124 dat_file.Seek($40+dat_header.Files*$14+dat_header.NamedFiles*$8,soFromBeginning);
125 SetLength(dat_extensionsmap,dat_header.Extensions);
126 FOR i:=0 TO dat_header.Extensions-1 DO dat_file.Read(dat_extensionsmap[i],SizeOf(dat_extensionsmap[i]));
127
128 dat_file.Free;
129 END;
130
131
132FUNCTION LoadDatFile(fileid:LongWord):Tdata;
133 VAR dat_file:TFileStream;
134 BEGIN
135 IF opened_state=opened_dat THEN BEGIN
136 dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
137 dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
138 SetLength(Result,dat_files[fileid].Size);
139 dat_file.Read(Result[0],dat_files[fileid].Size);
140 dat_file.Free;
141 END;
142 END;
143
144
145PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
146 VAR dat_file:TFileStream;
147 BEGIN
148 IF opened_state=opened_dat THEN BEGIN
149 dat_file:=TFileStream.Create(dat_filename, fmOpenReadWrite);
150 dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
151 dat_file.Write(data[0],Length(data));
152 dat_file.Free;
153 END;
154 END;
155
156
157FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
158 VAR dat_file:TFileStream;
159 BEGIN
160 IF opened_state=opened_dat THEN BEGIN
161 dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
162 Result:=True;
163 dat_file.Seek(dat_files[fileid].DatAddr+offset,soFromBeginning);
164 dat_file.Read(target^,size);
165 dat_file.Free;
166 END;
167 END;
168
169
170FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
171 VAR
172 filestream:TFileStream;
173 BEGIN
174 IF opened_state=opened_dat THEN BEGIN
175 Result:=True;
176 filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.raw'),fmOpenRead);
177 filestream.Seek(address,soFromBeginning);
178 filestream.Read(target^,size);
179 filestream.Free;
180 END;
181 END;
182
183
184FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
185 BEGIN
186 Result:=AnsiReplaceStr(Format('%'+IntToStr(width)+'u',[value]),' ',leadingzeros);
187 END;
188
189
190FUNCTION FormatFileSize(size:LongWord):String;
191 BEGIN
192 IF size>=1000*1024*1024 THEN BEGIN
193 Result:=FloatToStrF(size/1024/1024/1024,ffFixed,5,1)+' GB';
194 END ELSE BEGIN
195 IF size>=1000*1024 THEN BEGIN
196 Result:=FloatToStrF(size/1024/1024,ffFixed,5,1)+' MB';
197 END ELSE BEGIN
198 IF size>=1000 THEN BEGIN
199 Result:=FloatToStrF(size/1024,ffFixed,5,1)+' KB';
200 END ELSE BEGIN
201 Result:=IntToStr(size)+' B';
202 END;
203 END;
204 END;
205 END;
206
207
208FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
209 VAR
210 string_build,ascii_version:String;
211 i:LongWord;
212 BEGIN
213 string_build:='';
214 ascii_version:='';
215 FOR i:=0 TO High(data) DO BEGIN
216 IF NOT HexOnly THEN
217 IF (i MOD 16)=0 THEN
218 string_build:=string_build+'0x'+IntToHex(i,6)+' ';
219 string_build:=string_build+IntToHex(data[i],2);
220 IF NOT HexOnly THEN BEGIN
221 IF data[i]>=32 THEN ascii_version:=ascii_version+Chr(data[i])
222 ELSE ascii_version:=ascii_version+'.';
223 IF ((i+1) MOD 2)=0 THEN string_build:=string_build+#32;
224 IF ((i+1) MOD 16)=0 THEN BEGIN
225 string_build:=string_build+#32+ascii_version+CrLf;
226 ascii_version:='';
227 END;
228 END;
229 END;
230 Result:=string_build;
231 END;
232
233
234FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
235 VAR
236 i:Byte;
237 BEGIN
238 IF opened_state=opened_dat THEN BEGIN
239 Result:=export_noerror;
240 //ExportDefFileHeader(fileid);
241 IF (dat_files[fileid].FileType AND $02)=0 THEN BEGIN
242 //ExportDatFile(fileid);
243 FOR i:=1 TO Length(ExportHandlers)+1 DO BEGIN
244 IF i<=Length(ExportHandlers) THEN BEGIN
245 IF ExportHandlers[i].Ext=dat_files[fileid].Extension THEN BEGIN
246 IF ExportHandlers[i].needed THEN BEGIN
247 CASE ExportHandlers[i].Handler(fileid,convert) OF
248 0: Result:=0;
249 ELSE
250 Result:=export_handlererror;
251 END;
252 END;
253 Break;
254 END;
255 END ELSE BEGIN
256 Result:=export_nohandler;
257 END;
258 END;
259 END;
260 END;
261 END;
262
263
264FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
265 VAR
266 name:String;
267 BEGIN
268 name:=dat_files[fileid].Name;
269 name:=AnsiReplaceStr(name,'\','__');
270 name:=AnsiReplaceStr(name,'/','__');
271 name:=AnsiReplaceStr(name,'>','__');
272 name:=AnsiReplaceStr(name,'<','__');
273 Result:=FormatNumber(fileid,5,'0')+'-'+name+'.'+substring+'.'+dat_files[fileid].Extension;
274 END;
275
276FUNCTION GetExtractPath:String;
277 BEGIN
278 Result:=ExtractFilePath(dat_filename)+'\extracted_'+ExtractFileName(dat_filename);
279 END;
280
281
282PROCEDURE OpenDatabase(FileName:String);
283 VAR
284 i:Byte;
285 data:Tdata;
286 temps:String;
287 Tbl: TSQLiteTable;
288 BEGIN
289 IF NOT FileExists(FileName) THEN BEGIN
290 ShowMessage('File doesn''t exist!!!');
291 Exit;
292 END;
293 DB:=TSQLiteDatabase.Create(FileName);
294 Tbl:=DB.GetTable('SELECT name,value FROM globals ORDER BY name ASC');
295 REPEAT
296 IF Tbl.FieldAsString('name')='dbversion' THEN BEGIN
297 IF Tbl.FieldAsString('value')<>DBversion THEN BEGIN
298 ShowMessage('Database-file '+CrLf+'"'+FileName+'"'+CrLf+'has wrong version. (Required: '+DBversion+'; found: '+Tbl.FieldAsString('value')+')');
299 Exit;
300 END;
301 END;
302 IF Tbl.FieldAsString('name')='lvl' THEN BEGIN
303 database_level:=StrToInt(Tbl.FieldAsString('value'));
304 END;
305 IF Tbl.FieldAsString('name')='ident' THEN BEGIN
306 temps:=Tbl.FieldAsString('value');
307 FOR i:=0 TO High(database_ident) DO BEGIN
308 CASE temps[(i*2)+1+0] OF
309 '0'..'9': database_ident[i]:=Ord(temps[(i*2)+1+0])-48;
310 'A'..'F': database_ident[i]:=Ord(temps[(i*2)+1+0])-55;
311 END;
312 database_ident[i]:=database_ident[i]*16;
313 CASE temps[(i*2)+1+1] OF
314 '0'..'9': database_ident[i]:=database_ident[i]+Ord(temps[(i*2)+1+0])-48;
315 'A'..'F': database_ident[i]:=database_ident[i]+Ord(temps[(i*2)+1+0])-55;
316 END;
317 END;
318 END;
319 Tbl.Next;
320 UNTIL Tbl.EOF;
321 Tbl.Free;
322 opened_state:=opened_db;
323 END;
324
325
326
327
328END.
Note: See TracBrowser for help on using the repository browser.