source: oup/releases/0.17a/Unit2_functions.pas@ 728

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