1 | unit Helper_LevelDB; |
---|
2 | |
---|
3 | interface |
---|
4 | |
---|
5 | uses |
---|
6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
---|
7 | Dialogs, ComCtrls, StdCtrls, StrUtils; |
---|
8 | |
---|
9 | type |
---|
10 | TForm_LevelDB = class(TForm) |
---|
11 | group_progress: TGroupBox; |
---|
12 | progress: TProgressBar; |
---|
13 | lbl_progress: TLabel; |
---|
14 | btn_abortok: TButton; |
---|
15 | lbl_estimation: TLabel; |
---|
16 | procedure btn_abortokClick(Sender: TObject); |
---|
17 | private |
---|
18 | procedure HandleFile(ext: String; fileid: LongWord; dir_dat2db: Boolean); |
---|
19 | procedure stop_convert; |
---|
20 | public |
---|
21 | procedure CreateDatabase(Source, target: String); |
---|
22 | procedure CreateLevel(Source, target: String); |
---|
23 | end; |
---|
24 | |
---|
25 | |
---|
26 | var |
---|
27 | Form_LevelDB: TForm_LevelDB; |
---|
28 | |
---|
29 | implementation |
---|
30 | |
---|
31 | {$R *.dfm} |
---|
32 | |
---|
33 | uses ABSMain, ABSDecUtil, Main, Functions, Data, |
---|
34 | OniImgClass, DataStructures, OniDataClass; |
---|
35 | |
---|
36 | type |
---|
37 | THandler = procedure(fileid: LongWord; dir_dat2db: Boolean); |
---|
38 | |
---|
39 | TConvertHandlers = record |
---|
40 | Ext: String[4]; |
---|
41 | needed: Boolean; |
---|
42 | Handler: THandler; |
---|
43 | end; |
---|
44 | |
---|
45 | var |
---|
46 | ConvertHandlers: array of TConvertHandlers; |
---|
47 | loaded_filename: String; |
---|
48 | converting: Boolean = False; |
---|
49 | abort: Boolean = False; |
---|
50 | DataBase: TABSDatabase; |
---|
51 | Query: TABSQuery; |
---|
52 | MimeCoder: TStringFormat_MIME64; |
---|
53 | |
---|
54 | var |
---|
55 | DatHeader: THeader; |
---|
56 | FilesHeader: TFilesMap; |
---|
57 | NamedFilesHeader: TNamedFilesMap; |
---|
58 | ExtensionsHeader: TExtensionsMap; |
---|
59 | Stream_Body, Stream_Names: TMemoryStream; |
---|
60 | Stream_Dat, Stream_Raw, Stream_Sep: TFileStream; |
---|
61 | |
---|
62 | |
---|
63 | |
---|
64 | |
---|
65 | procedure TForm_LevelDB.CreateLevel(Source, target: String); |
---|
66 | var |
---|
67 | files: LongWord; |
---|
68 | |
---|
69 | i, j: LongWord; |
---|
70 | temps, temps2: String; |
---|
71 | Data, rawdata: Tdata; |
---|
72 | absolutebegintime, begintime: Double; |
---|
73 | step: Byte; |
---|
74 | rawlist: TRawList; |
---|
75 | extlist: TExtensionsMap; |
---|
76 | fileinfo: TFileInfo; |
---|
77 | datlinks: TDatLinks; |
---|
78 | OniImage: TOniImage; |
---|
79 | levelid: LongWord; |
---|
80 | timeformat: TFormatSettings; |
---|
81 | const |
---|
82 | steps: Byte = 3; |
---|
83 | |
---|
84 | |
---|
85 | |
---|
86 | |
---|
87 | procedure DoStep(stepname: String); |
---|
88 | begin |
---|
89 | Inc(step); |
---|
90 | if stepname <> 'FIN' then |
---|
91 | group_progress.Caption := |
---|
92 | 'Creating Dat (Step ' + IntToStr(step) + '/' + IntToStr(steps) + ': ' + stepname + ')' |
---|
93 | else |
---|
94 | group_progress.Caption := 'Creating Dat (FINISHED)'; |
---|
95 | end; |
---|
96 | |
---|
97 | begin |
---|
98 | |
---|
99 | // |
---|
100 | // FILE EXISTS CHECK FÜR DAT/RAW/SEP!!! |
---|
101 | // |
---|
102 | |
---|
103 | timeformat.LongTimeFormat := 'hh:nn:ss'; |
---|
104 | timeformat.TimeSeparator := ':'; |
---|
105 | |
---|
106 | if not CreateDataConnection(Source, ODB_ADB) then |
---|
107 | begin |
---|
108 | ShowMessage('Could not connect to .oldb-file'); |
---|
109 | Exit; |
---|
110 | end; |
---|
111 | levelid := OniDataConnection.LevelInfo.LevelNumber; |
---|
112 | levelid := (levelid * 2) * 256 * 256 * 256 + $01; |
---|
113 | OniImage := TOniImage.Create; |
---|
114 | |
---|
115 | absolutebegintime := Time; |
---|
116 | |
---|
117 | Self.Visible := True; |
---|
118 | Form_Main.Visible := False; |
---|
119 | step := 0; |
---|
120 | converting := True; |
---|
121 | abort := False; |
---|
122 | btn_abortok.Caption := '&Abort...'; |
---|
123 | btn_abortok.Default := False; |
---|
124 | absolutebegintime := Time; |
---|
125 | |
---|
126 | Stream_Body := TMemoryStream.Create; |
---|
127 | Stream_Names := TMemoryStream.Create; |
---|
128 | Stream_Dat := TFileStream.Create(target, fmCreate); |
---|
129 | Stream_Raw := TFileStream.Create(AnsiReplaceStr(target, '.dat', '.raw'), fmCreate); |
---|
130 | if OniDataConnection.OSisMac then |
---|
131 | Stream_Sep := TFileStream.Create(AnsiReplaceStr(target, '.dat', '.sep'), fmCreate); |
---|
132 | |
---|
133 | DoStep('Creating header'); |
---|
134 | progress.Position := 0; |
---|
135 | lbl_progress.Caption := ''; |
---|
136 | lbl_estimation.Caption := 'Estimated finishing time: unknown'; |
---|
137 | Application.ProcessMessages; |
---|
138 | |
---|
139 | NamedFilesHeader := TOniDataADB(OniDataConnection).GetNamedFilesMap; |
---|
140 | extlist := OniDataConnection.GetExtendedExtensionsList; |
---|
141 | for i := 0 to High(DatHeader.Ident) do |
---|
142 | DatHeader.Ident[i] := OniDataConnection.LevelInfo.Ident[i]; |
---|
143 | DatHeader.Files := OniDataConnection.GetFilesCount; |
---|
144 | DatHeader.NamedFiles := Length(NamedFilesHeader); |
---|
145 | DatHeader.Extensions := Length(extlist); |
---|
146 | DatHeader.DataAddr := 0; |
---|
147 | DatHeader.DataSize := 0; |
---|
148 | DatHeader.NamesAddr := 0; |
---|
149 | DatHeader.NamesSize := 0; |
---|
150 | for i := 0 to High(DatHeader.Ident2) do |
---|
151 | DatHeader.Ident2[i] := 0; |
---|
152 | SetLength(FilesHeader, DatHeader.Files); |
---|
153 | SetLength(ExtensionsHeader, DatHeader.Extensions); |
---|
154 | |
---|
155 | DoStep('Writing extensions-header'); |
---|
156 | progress.Max := Length(OniDataConnection.GetExtensionsList); |
---|
157 | Application.ProcessMessages; |
---|
158 | |
---|
159 | for i := 0 to High(ExtensionsHeader) do |
---|
160 | begin |
---|
161 | ExtensionsHeader[i].Ident := extlist[i].Ident; |
---|
162 | ExtensionsHeader[i].Extension := extlist[i].Extension; |
---|
163 | SetLength(temps, 4); |
---|
164 | for j := 0 to 3 do |
---|
165 | temps[j + 1] := ExtensionsHeader[i].Extension[3 - j]; |
---|
166 | ExtensionsHeader[i].ExtCount := |
---|
167 | Length(OniDataConnection.GetFilesList(temps, '', False, stIDAsc)); |
---|
168 | progress.Position := i + 1; |
---|
169 | lbl_progress.Caption := 'Extensions done: ' + IntToStr(i + 1) + '/' + |
---|
170 | IntToStr(Length(extlist)); |
---|
171 | Application.ProcessMessages; |
---|
172 | end; |
---|
173 | |
---|
174 | DoStep('Storing files-data'); |
---|
175 | progress.Position := 0; |
---|
176 | progress.Max := DatHeader.Files; |
---|
177 | lbl_progress.Caption := ''; |
---|
178 | lbl_estimation.Caption := 'Estimated finishing time: unknown'; |
---|
179 | Application.ProcessMessages; |
---|
180 | |
---|
181 | begintime := Time; |
---|
182 | for i := 0 to DatHeader.Files - 1 do |
---|
183 | begin |
---|
184 | fileinfo := OniDataConnection.GetFileInfo(i); |
---|
185 | for j := 0 to 3 do |
---|
186 | FilesHeader[i].Extension[j] := fileinfo.Extension[4 - j]; |
---|
187 | if fileinfo.Size > 0 then |
---|
188 | begin |
---|
189 | // DatLinks:=; |
---|
190 | FilesHeader[i].DataAddr := Stream_Body.Size + 8; |
---|
191 | Data := OniDataConnection.LoadDatFile(i); |
---|
192 | Data[4] := (levelid) and $FF; |
---|
193 | Data[5] := (levelid shr 8) and $FF; |
---|
194 | Data[6] := (levelid shr 16) and $FF; |
---|
195 | Data[7] := (levelid shr 24) and $FF; |
---|
196 | |
---|
197 | if (Pos(UpperCase(fileinfo.Extension), UpperCase(raws)) mod 4) = 1 then |
---|
198 | begin |
---|
199 | rawlist := OniDataConnection.GetRawList(i); |
---|
200 | if Length(rawlist) > 0 then |
---|
201 | begin |
---|
202 | for j := 0 to High(rawlist) do |
---|
203 | begin |
---|
204 | if rawlist[j].raw_size > 0 then |
---|
205 | begin |
---|
206 | if (UpperCase(fileinfo.Extension) = 'TXMP') and |
---|
207 | ((Data[$88] and $01) > 0) then |
---|
208 | begin |
---|
209 | OniImage.LoadFromTXMP(i); |
---|
210 | OniImage.GetMipMappedImage(rawdata); |
---|
211 | rawlist[j].raw_size := OniImage.GetImageDataSize(True); |
---|
212 | Data[$90] := $08; |
---|
213 | Data[$89] := 32; |
---|
214 | { if data[$90]<>OniImage.StoreType then begin |
---|
215 | data[$90]:=OniImage.StoreType; |
---|
216 | data[$89]:=(data[$89] and $CF) or $20; |
---|
217 | end; |
---|
218 | } end |
---|
219 | else |
---|
220 | begin |
---|
221 | SetLength(rawdata, rawlist[j].raw_size); |
---|
222 | OniDataConnection.LoadRawFile(i, rawlist[j].src_offset, @rawdata[0]); |
---|
223 | end; |
---|
224 | // data[$88]:=data[$88] and $FE; |
---|
225 | |
---|
226 | if rawlist[j].loc_sep then |
---|
227 | begin |
---|
228 | rawlist[j].raw_addr := Stream_Sep.Size; |
---|
229 | Stream_Sep.Write(rawdata[0], Length(rawdata)); |
---|
230 | end |
---|
231 | else |
---|
232 | begin |
---|
233 | rawlist[j].raw_addr := Stream_Raw.Size; |
---|
234 | Stream_Raw.Write(rawdata[0], Length(rawdata)); |
---|
235 | end; |
---|
236 | end |
---|
237 | else |
---|
238 | rawlist[j].raw_addr := 0; |
---|
239 | Data[rawlist[j].src_offset + 0] := (rawlist[j].raw_addr) and $FF; |
---|
240 | Data[rawlist[j].src_offset + 1] := (rawlist[j].raw_addr shr 8) and $FF; |
---|
241 | Data[rawlist[j].src_offset + 2] := (rawlist[j].raw_addr shr 16) and $FF; |
---|
242 | Data[rawlist[j].src_offset + 3] := (rawlist[j].raw_addr shr 24) and $FF; |
---|
243 | end; |
---|
244 | end; |
---|
245 | end; |
---|
246 | |
---|
247 | Stream_Body.Write(Data[0], Length(Data)); |
---|
248 | // |
---|
249 | end |
---|
250 | else |
---|
251 | FilesHeader[i].DataAddr := 0; |
---|
252 | if Length(fileinfo.Name) > 0 then |
---|
253 | begin |
---|
254 | FilesHeader[i].NameAddr := Stream_Names.Size; |
---|
255 | temps := fileinfo.Extension + fileinfo.Name + Chr(0); |
---|
256 | Stream_Names.Write(temps[1], Length(temps)); |
---|
257 | end |
---|
258 | else |
---|
259 | FilesHeader[i].NameAddr := 0; |
---|
260 | FilesHeader[i].FileSize := fileinfo.Size; |
---|
261 | FilesHeader[i].FileType := fileinfo.FileType; |
---|
262 | |
---|
263 | if ((i mod 10) = 0) and (i >= 100) then |
---|
264 | lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr( |
---|
265 | (Time - begintime) / i * (progress.Max - i + 1) * 1.1 ); |
---|
266 | progress.Position := i + 1; |
---|
267 | lbl_progress.Caption := 'Files done: ' + IntToStr(i + 1) + '/' + IntToStr(progress.Max); |
---|
268 | Application.ProcessMessages; |
---|
269 | end; |
---|
270 | |
---|
271 | Stream_Dat.Write(DatHeader, SizeOf(DatHeader)); |
---|
272 | for i := 0 to High(FilesHeader) do |
---|
273 | Stream_Dat.Write(FilesHeader[i], SizeOf(FilesHeader[i])); |
---|
274 | for i := 0 to High(NamedFilesHeader) do |
---|
275 | Stream_Dat.Write(NamedFilesHeader[i], SizeOf(NamedFilesHeader[i])); |
---|
276 | for i := 0 to High(ExtensionsHeader) do |
---|
277 | Stream_Dat.Write(ExtensionsHeader[i], SizeOf(ExtensionsHeader[i])); |
---|
278 | |
---|
279 | DatHeader.DataSize := Stream_Body.Size; |
---|
280 | DatHeader.NamesSize := Stream_Names.Size; |
---|
281 | DatHeader.DataAddr := Stream_Dat.Size; |
---|
282 | Stream_Body.Seek(0, soFromBeginning); |
---|
283 | Stream_Dat.CopyFrom(Stream_Body, Stream_Body.Size); |
---|
284 | DatHeader.NamesAddr := Stream_Dat.Size; |
---|
285 | Stream_Names.Seek(0, soFromBeginning); |
---|
286 | Stream_Dat.CopyFrom(Stream_Names, Stream_Names.Size); |
---|
287 | |
---|
288 | Stream_Dat.Seek(0, soFromBeginning); |
---|
289 | Stream_Dat.Write(DatHeader, SizeOf(DatHeader)); |
---|
290 | |
---|
291 | Stream_Dat.Free; |
---|
292 | Stream_Body.Free; |
---|
293 | Stream_Names.Free; |
---|
294 | Stream_Raw.Free; |
---|
295 | if OniDataConnection.OSisMac then |
---|
296 | Stream_Sep.Free; |
---|
297 | |
---|
298 | progress.Position := progress.Max; |
---|
299 | lbl_progress.Caption := 'Files done: ' + IntToStr(progress.Max) + '/' + |
---|
300 | IntToStr(progress.Max); |
---|
301 | lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime, timeformat) + ')'; |
---|
302 | |
---|
303 | DoStep('FIN'); |
---|
304 | btn_abortok.Caption := '&OK'; |
---|
305 | btn_abortok.Default := True; |
---|
306 | |
---|
307 | OniImage.Free; |
---|
308 | |
---|
309 | converting := False; |
---|
310 | |
---|
311 | CloseDataConnection; |
---|
312 | end; |
---|
313 | |
---|
314 | |
---|
315 | |
---|
316 | |
---|
317 | procedure TForm_LevelDB.HandleFile; |
---|
318 | var |
---|
319 | i: Byte; |
---|
320 | begin |
---|
321 | for i := 1 to Length(ConvertHandlers) do |
---|
322 | if UpperCase(ConvertHandlers[i].Ext) = UpperCase(ext) then |
---|
323 | if ConvertHandlers[i].needed then |
---|
324 | begin |
---|
325 | ConvertHandlers[i].Handler(fileid, dir_dat2db); |
---|
326 | Break; |
---|
327 | end |
---|
328 | else |
---|
329 | Break; |
---|
330 | end; |
---|
331 | |
---|
332 | |
---|
333 | |
---|
334 | |
---|
335 | procedure TForm_LevelDB.CreateDatabase(Source, target: String); |
---|
336 | var |
---|
337 | i, j: LongWord; |
---|
338 | temps, temps2: String; |
---|
339 | Data: Tdata; |
---|
340 | absolutebegintime, begintime: Double; |
---|
341 | step: Byte; |
---|
342 | rawlist: TRawList; |
---|
343 | extlist: TExtensionsMap; |
---|
344 | fileinfo: TFileInfo; |
---|
345 | timeformat: TFormatSettings; |
---|
346 | const |
---|
347 | steps: Byte = 4; |
---|
348 | |
---|
349 | |
---|
350 | |
---|
351 | |
---|
352 | procedure DoStep(stepname: String); |
---|
353 | begin |
---|
354 | Inc(step); |
---|
355 | if stepname <> 'FIN' then |
---|
356 | group_progress.Caption := |
---|
357 | 'Creating DB (Step ' + IntToStr(step) + '/' + IntToStr(steps) + ': ' + stepname + ')' |
---|
358 | else |
---|
359 | group_progress.Caption := 'Creating DB (FINISHED)'; |
---|
360 | end; |
---|
361 | |
---|
362 | begin |
---|
363 | if not CreateDataConnection(Source, ODB_Dat) then |
---|
364 | begin |
---|
365 | ShowMessage('Could not connect to .dat-file'); |
---|
366 | Exit; |
---|
367 | end |
---|
368 | else |
---|
369 | begin |
---|
370 | TOniDataDat(OniDataConnection).UnloadWhenUnused := False; |
---|
371 | end; |
---|
372 | |
---|
373 | Self.Visible := True; |
---|
374 | Form_Main.Visible := False; |
---|
375 | step := 0; |
---|
376 | converting := True; |
---|
377 | abort := False; |
---|
378 | btn_abortok.Caption := '&Abort...'; |
---|
379 | btn_abortok.Default := False; |
---|
380 | loaded_filename := target; |
---|
381 | |
---|
382 | absolutebegintime := Time; |
---|
383 | |
---|
384 | DataBase := TABSDatabase.Create(Self); |
---|
385 | DataBase.DatabaseName := 'OLDB'; |
---|
386 | DataBase.DatabaseFileName := target; |
---|
387 | DataBase.CreateDatabase; |
---|
388 | |
---|
389 | DoStep('Creating tables'); |
---|
390 | progress.Position := 0; |
---|
391 | lbl_progress.Caption := ''; |
---|
392 | lbl_estimation.Caption := 'Estimated finishing time: unknown'; |
---|
393 | Application.ProcessMessages; |
---|
394 | |
---|
395 | Query := TABSQuery.Create(Self); |
---|
396 | Query.DatabaseName := 'OLDB'; |
---|
397 | Query.SQL.Text := |
---|
398 | 'CREATE TABLE globals ( id AUTOINC PRIMARY KEY, name STRING(128), value STRING(128) );'; |
---|
399 | Query.ExecSQL; |
---|
400 | Query.SQL.Text := |
---|
401 | 'CREATE TABLE linkmap ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, target_id INTEGER );'; |
---|
402 | Query.ExecSQL; |
---|
403 | Query.SQL.Text := |
---|
404 | 'CREATE TABLE rawmap ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, sep BOOLEAN, size INTEGER, data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib );'; |
---|
405 | // Query.SQL.Text:='CREATE TABLE rawmap ( id AUTOINC PRIMARY KEY, src_id INTEGER, src_link_offset INTEGER, size INTEGER, data BLOB BlobCompressionAlgorithm None );'; |
---|
406 | Query.ExecSQL; |
---|
407 | Query.SQL.Text := |
---|
408 | 'CREATE TABLE datfiles ( id INTEGER PRIMARY KEY, extension CHAR(4), name STRING(128), contenttype INTEGER, size INTEGER, data BLOB BlobCompressionMode 9 BlobBlockSize 1024 BlobCompressionAlgorithm ZLib );'; |
---|
409 | // Query.SQL.Text:='CREATE TABLE datfiles ( id INTEGER PRIMARY KEY, extension CHAR(4), name STRING(128), contenttype INTEGER, size INTEGER, data BLOB BlobCompressionAlgorithm None );'; |
---|
410 | Query.ExecSQL; |
---|
411 | Query.SQL.Text := |
---|
412 | 'CREATE TABLE extlist ( id AUTOINC PRIMARY KEY, ext CHAR(4), ident CHAR(16) );'; |
---|
413 | Query.ExecSQL; |
---|
414 | |
---|
415 | Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("dbversion","' + |
---|
416 | dbversion + '");'; |
---|
417 | Query.ExecSQL; |
---|
418 | SetLength(Data, Length(OniDataConnection.LevelInfo.Ident)); |
---|
419 | for i := 0 to High(OniDataConnection.LevelInfo.Ident) do |
---|
420 | Data[i] := OniDataConnection.LevelInfo.Ident[i]; |
---|
421 | temps := CreateHexString(Data, True); |
---|
422 | Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("ident","' + temps + '");'; |
---|
423 | Query.ExecSQL; |
---|
424 | Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("lvl","' + |
---|
425 | IntToStr(OniDataConnection.LevelInfo.LevelNumber) + '");'; |
---|
426 | Query.ExecSQL; |
---|
427 | if OniDataConnection.OSisMAC then |
---|
428 | Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("os","MAC");' |
---|
429 | else |
---|
430 | Query.SQL.Text := 'INSERT INTO globals (name,value) VALUES ("os","PC");'; |
---|
431 | Query.ExecSQL; |
---|
432 | |
---|
433 | DoStep('Writing extensionslist'); |
---|
434 | progress.Max := Length(OniDataConnection.GetExtensionsList); |
---|
435 | Application.ProcessMessages; |
---|
436 | |
---|
437 | extlist := OniDataConnection.GetExtendedExtensionsList; |
---|
438 | for i := 0 to High(extlist) do |
---|
439 | begin |
---|
440 | SetLength(Data, Length(extlist[i].Ident)); |
---|
441 | for j := 0 to High(extlist[i].Ident) do |
---|
442 | Data[j] := extlist[i].Ident[j]; |
---|
443 | temps := CreateHexString(Data, True); |
---|
444 | temps2 := extlist[i].Extension[3] + extlist[i].Extension[2] + |
---|
445 | extlist[i].Extension[1] + extlist[i].Extension[0]; |
---|
446 | Query.SQL.Text := 'INSERT INTO extlist (ext,ident) VALUES ("' + |
---|
447 | temps2 + '","' + temps + '");'; |
---|
448 | Query.ExecSQL; |
---|
449 | progress.Position := i; |
---|
450 | lbl_progress.Caption := 'Extensions done: ' + IntToStr(i) + '/' + |
---|
451 | IntToStr(Length(extlist)); |
---|
452 | Application.ProcessMessages; |
---|
453 | if abort then |
---|
454 | begin |
---|
455 | stop_convert; |
---|
456 | Exit; |
---|
457 | end; |
---|
458 | end; |
---|
459 | lbl_progress.Caption := ''; |
---|
460 | |
---|
461 | progress.Position := 0; |
---|
462 | lbl_progress.Caption := 'Files done: ' + IntToStr(0) + '/' + IntToStr( |
---|
463 | OniDataConnection.GetFilesCount); |
---|
464 | lbl_estimation.Caption := 'Estimated finishing time: unknown'; |
---|
465 | |
---|
466 | DoStep('Loading .dat into memory'); |
---|
467 | Application.ProcessMessages; |
---|
468 | |
---|
469 | progress.Max := OniDataConnection.GetFilesCount; |
---|
470 | begintime := Time; |
---|
471 | DoStep('Writing .dat-fileslist'); |
---|
472 | Application.ProcessMessages; |
---|
473 | |
---|
474 | Database.StartTransaction; |
---|
475 | for i := 0 to OniDataConnection.GetFilesCount - 1 do |
---|
476 | begin |
---|
477 | fileinfo := OniDataConnection.GetFileInfo(i); |
---|
478 | if (fileinfo.FileType and $02) = 0 then |
---|
479 | begin |
---|
480 | mimecoder := TStringFormat_MIME64.Create; |
---|
481 | Data := OniDataConnection.LoadDatFile(i); |
---|
482 | Query.SQL.Text := |
---|
483 | 'INSERT INTO datfiles (id,extension,name,contenttype,size,data) VALUES (' + |
---|
484 | IntToStr(i) + ',"' + fileinfo.Extension + '","' + fileinfo.Name + '","' + IntToHex( |
---|
485 | fileinfo.FileType, 8) + '",' + IntToStr(fileinfo.Size) + ',MimeToBin("' + |
---|
486 | MimeCoder.StrTo(@Data[0], Length(Data)) + '") );'; |
---|
487 | Query.ExecSQL; |
---|
488 | mimecoder.Free; |
---|
489 | |
---|
490 | rawlist := OniDataConnection.GetRawList(i); |
---|
491 | if Length(rawlist) > 0 then |
---|
492 | begin |
---|
493 | for j := 0 to High(rawlist) do |
---|
494 | begin |
---|
495 | if rawlist[j].raw_size > 0 then |
---|
496 | begin |
---|
497 | SetLength(Data, rawlist[j].raw_size); |
---|
498 | OniDataConnection.LoadRawFile(i, rawlist[j].src_offset, Data); |
---|
499 | mimecoder := TStringFormat_MIME64.Create; |
---|
500 | Query.SQL.Text := |
---|
501 | 'INSERT INTO rawmap (src_id,src_link_offset,sep,size,data) VALUES (' + |
---|
502 | IntToStr(i) + ',' + IntToStr(rawlist[j].src_offset) + ',' + BoolToStr( |
---|
503 | rawlist[j].loc_sep) + ',' + IntToStr(rawlist[j].raw_size) + ',MimeToBin("' + |
---|
504 | MimeCoder.StrTo(@Data[0], rawlist[j].raw_size) + '") );'; |
---|
505 | Query.ExecSQL; |
---|
506 | mimecoder.Free; |
---|
507 | end |
---|
508 | else |
---|
509 | begin |
---|
510 | Query.SQL.Text := |
---|
511 | 'INSERT INTO rawmap (src_id,src_link_offset,sep,size) VALUES (' + |
---|
512 | IntToStr(i) + ',' + IntToStr(rawlist[j].src_offset) + ',' + BoolToStr(rawlist[j].loc_sep) + ',0);'; |
---|
513 | Query.ExecSQL; |
---|
514 | end; |
---|
515 | end; |
---|
516 | end; |
---|
517 | |
---|
518 | HandleFile(fileinfo.Extension, i, True); |
---|
519 | end |
---|
520 | else |
---|
521 | begin |
---|
522 | Query.SQL.Text := |
---|
523 | 'INSERT INTO datfiles (id,extension,name,contenttype,size) VALUES (' + |
---|
524 | IntToStr(i) + ',"' + fileinfo.Extension + '","' + fileinfo.Name + '","' + IntToHex( |
---|
525 | fileinfo.FileType, 8) + '",0);'; |
---|
526 | Query.ExecSQL; |
---|
527 | end; |
---|
528 | if ((i mod 100) = 0) and (i > 0) then |
---|
529 | begin |
---|
530 | Database.Commit(False); |
---|
531 | Database.StartTransaction; |
---|
532 | end; |
---|
533 | if ((i mod 10) = 0) and (i >= 100) then |
---|
534 | lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr( |
---|
535 | (Time - begintime) / i * (progress.Max - i + 1) * 1.1 ); |
---|
536 | progress.Position := i; |
---|
537 | lbl_progress.Caption := 'Files done: ' + IntToStr(i) + '/' + IntToStr(progress.Max); |
---|
538 | Application.ProcessMessages; |
---|
539 | if abort then |
---|
540 | begin |
---|
541 | stop_convert; |
---|
542 | Exit; |
---|
543 | end; |
---|
544 | end; |
---|
545 | Database.Commit(False); |
---|
546 | progress.Position := progress.Max; |
---|
547 | lbl_progress.Caption := 'Files done: ' + IntToStr(progress.Max) + '/' + |
---|
548 | IntToStr(progress.Max); |
---|
549 | |
---|
550 | timeformat.LongTimeFormat := 'hh:nn:ss'; |
---|
551 | timeformat.TimeSeparator := ':'; |
---|
552 | lbl_estimation.Caption := 'FINISHED (duration: ' + TimeToStr(Time - absolutebegintime, timeformat) + ')'; |
---|
553 | |
---|
554 | DoStep('FIN'); |
---|
555 | btn_abortok.Caption := '&OK'; |
---|
556 | btn_abortok.Default := True; |
---|
557 | |
---|
558 | converting := False; |
---|
559 | |
---|
560 | database.Close; |
---|
561 | database.Free; |
---|
562 | |
---|
563 | CloseDataConnection; |
---|
564 | end; |
---|
565 | |
---|
566 | |
---|
567 | |
---|
568 | |
---|
569 | procedure TForm_LevelDB.stop_convert; |
---|
570 | begin |
---|
571 | btn_abortok.Caption := '&Close'; |
---|
572 | btn_abortok.Default := True; |
---|
573 | converting := False; |
---|
574 | lbl_estimation.Caption := 'ABORTED'; |
---|
575 | group_progress.Caption := 'Creating DB (ABORTED)'; |
---|
576 | DataBase.Close; |
---|
577 | if MessageBox(Self.Handle, PChar('Delete the unfinished DB-file?'), |
---|
578 | PChar('Delete file?'), MB_YESNO) = idYes then |
---|
579 | begin |
---|
580 | DeleteFile(loaded_filename); |
---|
581 | end; |
---|
582 | end; |
---|
583 | |
---|
584 | |
---|
585 | |
---|
586 | |
---|
587 | procedure TForm_LevelDB.btn_abortokClick(Sender: TObject); |
---|
588 | begin |
---|
589 | if converting then |
---|
590 | begin |
---|
591 | if MessageBox(Self.Handle, |
---|
592 | PChar('Do you really want to cancel the convert-progress?'), |
---|
593 | PChar('Warning: Converting'), MB_YESNO) = idYes then |
---|
594 | abort := True; |
---|
595 | end |
---|
596 | else |
---|
597 | begin |
---|
598 | Self.Visible := False; |
---|
599 | Form_Main.Visible := True; |
---|
600 | end; |
---|
601 | end; |
---|
602 | |
---|
603 | |
---|
604 | |
---|
605 | |
---|
606 | procedure InsertDatLinkToDB(fileid: LongWord; offset: LongWord); |
---|
607 | var |
---|
608 | link: LongWord; |
---|
609 | begin |
---|
610 | OniDataConnection.LoadDatFilePart(fileid, offset, 4, @link); |
---|
611 | if link = 0 then |
---|
612 | link := $FFFFFFFF |
---|
613 | else |
---|
614 | link := link div 256; |
---|
615 | Query.SQL.Text := 'INSERT INTO linkmap (src_id,src_link_offset,target_id) VALUES (' + |
---|
616 | IntToStr(fileid) + ',' + IntToStr(offset) + ',' + IntToStr(link) + ');'; |
---|
617 | Query.ExecSQL; |
---|
618 | end; |
---|
619 | |
---|
620 | |
---|
621 | |
---|
622 | |
---|
623 | procedure AISA(fileid: LongWord; dir_dat2db: Boolean); |
---|
624 | var |
---|
625 | packages: Word; |
---|
626 | i: LongWord; |
---|
627 | begin |
---|
628 | if dir_dat2db then |
---|
629 | begin |
---|
630 | OniDataConnection.LoadDatFilePart(fileid, $1E, 2, @packages); |
---|
631 | if packages > 0 then |
---|
632 | begin |
---|
633 | for i := 0 to packages - 1 do |
---|
634 | InsertDatLinkToDB(fileid, $20 + i * $160 + $28); |
---|
635 | for i := 0 to packages - 1 do |
---|
636 | InsertDatLinkToDB(fileid, $20 + i * $160 + $150); |
---|
637 | end; |
---|
638 | end |
---|
639 | else |
---|
640 | begin |
---|
641 | end; |
---|
642 | end; |
---|
643 | |
---|
644 | |
---|
645 | |
---|
646 | |
---|
647 | procedure AKEV(fileid: LongWord; dir_dat2db: Boolean); |
---|
648 | var |
---|
649 | i: LongWord; |
---|
650 | begin |
---|
651 | if dir_dat2db then |
---|
652 | begin |
---|
653 | for i := 0 to 16 do |
---|
654 | InsertDatLinkToDB(fileid, $8 + i * 4); |
---|
655 | end |
---|
656 | else |
---|
657 | begin |
---|
658 | end; |
---|
659 | end; |
---|
660 | |
---|
661 | |
---|
662 | |
---|
663 | |
---|
664 | procedure AKOT(fileid: LongWord; dir_dat2db: Boolean); |
---|
665 | var |
---|
666 | i: LongWord; |
---|
667 | begin |
---|
668 | if dir_dat2db then |
---|
669 | begin |
---|
670 | for i := 0 to 4 do |
---|
671 | InsertDatLinkToDB(fileid, $8 + i * 4); |
---|
672 | end |
---|
673 | else |
---|
674 | begin |
---|
675 | end; |
---|
676 | end; |
---|
677 | |
---|
678 | |
---|
679 | |
---|
680 | |
---|
681 | procedure CBPI(fileid: LongWord; dir_dat2db: Boolean); |
---|
682 | var |
---|
683 | i: LongWord; |
---|
684 | begin |
---|
685 | if dir_dat2db then |
---|
686 | begin |
---|
687 | for i := 0 to 56 do |
---|
688 | InsertDatLinkToDB(fileid, $8 + i * 4); |
---|
689 | end |
---|
690 | else |
---|
691 | begin |
---|
692 | end; |
---|
693 | end; |
---|
694 | |
---|
695 | |
---|
696 | |
---|
697 | |
---|
698 | procedure CBPM(fileid: LongWord; dir_dat2db: Boolean); |
---|
699 | var |
---|
700 | i: LongWord; |
---|
701 | begin |
---|
702 | if dir_dat2db then |
---|
703 | begin |
---|
704 | for i := 0 to 18 do |
---|
705 | InsertDatLinkToDB(fileid, $8 + i * 4); |
---|
706 | end |
---|
707 | else |
---|
708 | begin |
---|
709 | end; |
---|
710 | end; |
---|
711 | |
---|
712 | |
---|
713 | |
---|
714 | |
---|
715 | procedure CONS(fileid: LongWord; dir_dat2db: Boolean); |
---|
716 | var |
---|
717 | i: LongWord; |
---|
718 | begin |
---|
719 | if dir_dat2db then |
---|
720 | begin |
---|
721 | for i := 0 to 1 do |
---|
722 | InsertDatLinkToDB(fileid, $24 + i * 4); |
---|
723 | end |
---|
724 | else |
---|
725 | begin |
---|
726 | end; |
---|
727 | end; |
---|
728 | |
---|
729 | |
---|
730 | |
---|
731 | |
---|
732 | procedure CRSA(fileid: LongWord; dir_dat2db: Boolean); |
---|
733 | var |
---|
734 | packages: LongWord; |
---|
735 | i: LongWord; |
---|
736 | begin |
---|
737 | if dir_dat2db then |
---|
738 | begin |
---|
739 | OniDataConnection.LoadDatFilePart(fileid, $14, 4, @packages); |
---|
740 | if packages > 0 then |
---|
741 | for i := 0 to packages - 1 do |
---|
742 | InsertDatLinkToDB(fileid, $20 + i * 1100 + $A0); |
---|
743 | end |
---|
744 | else |
---|
745 | begin |
---|
746 | end; |
---|
747 | end; |
---|
748 | |
---|
749 | |
---|
750 | |
---|
751 | |
---|
752 | procedure DOOR(fileid: LongWord; dir_dat2db: Boolean); |
---|
753 | begin |
---|
754 | if dir_dat2db then |
---|
755 | begin |
---|
756 | InsertDatLinkToDB(fileid, $08); |
---|
757 | InsertDatLinkToDB(fileid, $10); |
---|
758 | end |
---|
759 | else |
---|
760 | begin |
---|
761 | end; |
---|
762 | end; |
---|
763 | |
---|
764 | |
---|
765 | |
---|
766 | |
---|
767 | procedure DPGE(fileid: LongWord; dir_dat2db: Boolean); |
---|
768 | begin |
---|
769 | if dir_dat2db then |
---|
770 | begin |
---|
771 | InsertDatLinkToDB(fileid, $40); |
---|
772 | end |
---|
773 | else |
---|
774 | begin |
---|
775 | end; |
---|
776 | end; |
---|
777 | |
---|
778 | |
---|
779 | |
---|
780 | |
---|
781 | procedure HPGE(fileid: LongWord; dir_dat2db: Boolean); |
---|
782 | begin |
---|
783 | if dir_dat2db then |
---|
784 | begin |
---|
785 | InsertDatLinkToDB(fileid, $0C); |
---|
786 | end |
---|
787 | else |
---|
788 | begin |
---|
789 | end; |
---|
790 | end; |
---|
791 | |
---|
792 | |
---|
793 | |
---|
794 | |
---|
795 | procedure IGHH(fileid: LongWord; dir_dat2db: Boolean); |
---|
796 | begin |
---|
797 | if dir_dat2db then |
---|
798 | begin |
---|
799 | InsertDatLinkToDB(fileid, $24); |
---|
800 | InsertDatLinkToDB(fileid, $28); |
---|
801 | end |
---|
802 | else |
---|
803 | begin |
---|
804 | end; |
---|
805 | end; |
---|
806 | |
---|
807 | |
---|
808 | |
---|
809 | |
---|
810 | procedure IGPA(fileid: LongWord; dir_dat2db: Boolean); |
---|
811 | var |
---|
812 | links: LongWord; |
---|
813 | i: LongWord; |
---|
814 | begin |
---|
815 | if dir_dat2db then |
---|
816 | begin |
---|
817 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @links); |
---|
818 | if links > 0 then |
---|
819 | for i := 0 to links - 1 do |
---|
820 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
821 | end |
---|
822 | else |
---|
823 | begin |
---|
824 | end; |
---|
825 | end; |
---|
826 | |
---|
827 | |
---|
828 | |
---|
829 | |
---|
830 | procedure IGPG(fileid: LongWord; dir_dat2db: Boolean); |
---|
831 | var |
---|
832 | i: LongWord; |
---|
833 | begin |
---|
834 | if dir_dat2db then |
---|
835 | begin |
---|
836 | for i := 0 to 1 do |
---|
837 | InsertDatLinkToDB(fileid, $1C + i * 4); |
---|
838 | end |
---|
839 | else |
---|
840 | begin |
---|
841 | end; |
---|
842 | end; |
---|
843 | |
---|
844 | |
---|
845 | |
---|
846 | |
---|
847 | procedure IGSA(fileid: LongWord; dir_dat2db: Boolean); |
---|
848 | var |
---|
849 | links: LongWord; |
---|
850 | i: LongWord; |
---|
851 | begin |
---|
852 | if dir_dat2db then |
---|
853 | begin |
---|
854 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @links); |
---|
855 | if links > 0 then |
---|
856 | for i := 0 to links - 1 do |
---|
857 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
858 | end |
---|
859 | else |
---|
860 | begin |
---|
861 | end; |
---|
862 | end; |
---|
863 | |
---|
864 | |
---|
865 | |
---|
866 | |
---|
867 | procedure IMPT(fileid: LongWord; dir_dat2db: Boolean); |
---|
868 | begin |
---|
869 | if dir_dat2db then |
---|
870 | begin |
---|
871 | InsertDatLinkToDB(fileid, $10); |
---|
872 | end |
---|
873 | else |
---|
874 | begin |
---|
875 | end; |
---|
876 | end; |
---|
877 | |
---|
878 | |
---|
879 | |
---|
880 | |
---|
881 | procedure IPGE(fileid: LongWord; dir_dat2db: Boolean); |
---|
882 | begin |
---|
883 | if dir_dat2db then |
---|
884 | begin |
---|
885 | InsertDatLinkToDB(fileid, $0C); |
---|
886 | end |
---|
887 | else |
---|
888 | begin |
---|
889 | end; |
---|
890 | end; |
---|
891 | |
---|
892 | |
---|
893 | |
---|
894 | |
---|
895 | procedure KEYI(fileid: LongWord; dir_dat2db: Boolean); |
---|
896 | var |
---|
897 | i: LongWord; |
---|
898 | begin |
---|
899 | if dir_dat2db then |
---|
900 | begin |
---|
901 | for i := 0 to 9 do |
---|
902 | InsertDatLinkToDB(fileid, $08 + i * 4); |
---|
903 | end |
---|
904 | else |
---|
905 | begin |
---|
906 | end; |
---|
907 | end; |
---|
908 | |
---|
909 | |
---|
910 | |
---|
911 | |
---|
912 | procedure M3GA(fileid: LongWord; dir_dat2db: Boolean); |
---|
913 | var |
---|
914 | links: LongWord; |
---|
915 | i: LongWord; |
---|
916 | begin |
---|
917 | if dir_dat2db then |
---|
918 | begin |
---|
919 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @links); |
---|
920 | if links > 0 then |
---|
921 | for i := 0 to links - 1 do |
---|
922 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
923 | end |
---|
924 | else |
---|
925 | begin |
---|
926 | end; |
---|
927 | end; |
---|
928 | |
---|
929 | |
---|
930 | |
---|
931 | |
---|
932 | procedure M3GM(fileid: LongWord; dir_dat2db: Boolean); |
---|
933 | var |
---|
934 | i: LongWord; |
---|
935 | begin |
---|
936 | if dir_dat2db then |
---|
937 | begin |
---|
938 | for i := 0 to 6 do |
---|
939 | InsertDatLinkToDB(fileid, $0C + i * 4); |
---|
940 | end |
---|
941 | else |
---|
942 | begin |
---|
943 | end; |
---|
944 | end; |
---|
945 | |
---|
946 | |
---|
947 | |
---|
948 | |
---|
949 | procedure MTRL(fileid: LongWord; dir_dat2db: Boolean); |
---|
950 | begin |
---|
951 | if dir_dat2db then |
---|
952 | begin |
---|
953 | InsertDatLinkToDB(fileid, $10); |
---|
954 | end |
---|
955 | else |
---|
956 | begin |
---|
957 | end; |
---|
958 | end; |
---|
959 | |
---|
960 | |
---|
961 | |
---|
962 | |
---|
963 | procedure OBDC(fileid: LongWord; dir_dat2db: Boolean); |
---|
964 | var |
---|
965 | packages: Word; |
---|
966 | i: LongWord; |
---|
967 | begin |
---|
968 | if dir_dat2db then |
---|
969 | begin |
---|
970 | OniDataConnection.LoadDatFilePart(fileid, $1E, 2, @packages); |
---|
971 | if packages > 0 then |
---|
972 | for i := 0 to packages - 1 do |
---|
973 | InsertDatLinkToDB(fileid, $20 + i * $18 + $4); |
---|
974 | end |
---|
975 | else |
---|
976 | begin |
---|
977 | end; |
---|
978 | end; |
---|
979 | |
---|
980 | |
---|
981 | |
---|
982 | |
---|
983 | procedure OBOA(fileid: LongWord; dir_dat2db: Boolean); |
---|
984 | var |
---|
985 | packages: Word; |
---|
986 | i: LongWord; |
---|
987 | begin |
---|
988 | if dir_dat2db then |
---|
989 | begin |
---|
990 | OniDataConnection.LoadDatFilePart(fileid, $1E, 2, @packages); |
---|
991 | if packages > 0 then |
---|
992 | for i := 0 to packages - 1 do |
---|
993 | begin |
---|
994 | InsertDatLinkToDB(fileid, $20 + i * 240 + $0); |
---|
995 | InsertDatLinkToDB(fileid, $20 + i * 240 + $4); |
---|
996 | InsertDatLinkToDB(fileid, $20 + i * 240 + $8); |
---|
997 | end; |
---|
998 | end |
---|
999 | else |
---|
1000 | begin |
---|
1001 | end; |
---|
1002 | end; |
---|
1003 | |
---|
1004 | |
---|
1005 | |
---|
1006 | |
---|
1007 | procedure OFGA(fileid: LongWord; dir_dat2db: Boolean); |
---|
1008 | var |
---|
1009 | packages: LongWord; |
---|
1010 | i: LongWord; |
---|
1011 | begin |
---|
1012 | if dir_dat2db then |
---|
1013 | begin |
---|
1014 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1015 | if packages > 0 then |
---|
1016 | for i := 0 to packages - 1 do |
---|
1017 | InsertDatLinkToDB(fileid, $20 + i * 12 + $04); |
---|
1018 | end |
---|
1019 | else |
---|
1020 | begin |
---|
1021 | end; |
---|
1022 | end; |
---|
1023 | |
---|
1024 | |
---|
1025 | |
---|
1026 | |
---|
1027 | procedure ONCC(fileid: LongWord; dir_dat2db: Boolean); |
---|
1028 | var |
---|
1029 | i: LongWord; |
---|
1030 | begin |
---|
1031 | if dir_dat2db then |
---|
1032 | begin |
---|
1033 | InsertDatLinkToDB(fileid, $28); |
---|
1034 | InsertDatLinkToDB(fileid, $434); |
---|
1035 | InsertDatLinkToDB(fileid, $438); |
---|
1036 | InsertDatLinkToDB(fileid, $43C); |
---|
1037 | InsertDatLinkToDB(fileid, $C3C); |
---|
1038 | InsertDatLinkToDB(fileid, $C40); |
---|
1039 | InsertDatLinkToDB(fileid, $C44); |
---|
1040 | InsertDatLinkToDB(fileid, $C48); |
---|
1041 | InsertDatLinkToDB(fileid, $C88); |
---|
1042 | InsertDatLinkToDB(fileid, $C8C); |
---|
1043 | end |
---|
1044 | else |
---|
1045 | begin |
---|
1046 | end; |
---|
1047 | end; |
---|
1048 | |
---|
1049 | |
---|
1050 | |
---|
1051 | |
---|
1052 | procedure ONCV(fileid: LongWord; dir_dat2db: Boolean); |
---|
1053 | begin |
---|
1054 | if dir_dat2db then |
---|
1055 | begin |
---|
1056 | InsertDatLinkToDB(fileid, $08); |
---|
1057 | end |
---|
1058 | else |
---|
1059 | begin |
---|
1060 | end; |
---|
1061 | end; |
---|
1062 | |
---|
1063 | |
---|
1064 | |
---|
1065 | |
---|
1066 | procedure ONLV(fileid: LongWord; dir_dat2db: Boolean); |
---|
1067 | var |
---|
1068 | i: LongWord; |
---|
1069 | begin |
---|
1070 | if dir_dat2db then |
---|
1071 | begin |
---|
1072 | for i := 0 to 5 do |
---|
1073 | InsertDatLinkToDB(fileid, $48 + i * 4); |
---|
1074 | for i := 0 to 5 do |
---|
1075 | InsertDatLinkToDB(fileid, $64 + i * 4); |
---|
1076 | InsertDatLinkToDB(fileid, $300); |
---|
1077 | end |
---|
1078 | else |
---|
1079 | begin |
---|
1080 | end; |
---|
1081 | end; |
---|
1082 | |
---|
1083 | |
---|
1084 | |
---|
1085 | |
---|
1086 | procedure ONOA(fileid: LongWord; dir_dat2db: Boolean); |
---|
1087 | var |
---|
1088 | packages: LongWord; |
---|
1089 | i: LongWord; |
---|
1090 | begin |
---|
1091 | if dir_dat2db then |
---|
1092 | begin |
---|
1093 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1094 | if packages > 0 then |
---|
1095 | for i := 0 to packages - 1 do |
---|
1096 | InsertDatLinkToDB(fileid, $20 + i * 8 + $04); |
---|
1097 | end |
---|
1098 | else |
---|
1099 | begin |
---|
1100 | end; |
---|
1101 | end; |
---|
1102 | |
---|
1103 | |
---|
1104 | |
---|
1105 | |
---|
1106 | procedure ONSK(fileid: LongWord; dir_dat2db: Boolean); |
---|
1107 | begin |
---|
1108 | if dir_dat2db then |
---|
1109 | begin |
---|
1110 | InsertDatLinkToDB(fileid, $08); |
---|
1111 | InsertDatLinkToDB(fileid, $0C); |
---|
1112 | InsertDatLinkToDB(fileid, $10); |
---|
1113 | InsertDatLinkToDB(fileid, $14); |
---|
1114 | InsertDatLinkToDB(fileid, $18); |
---|
1115 | InsertDatLinkToDB(fileid, $20); |
---|
1116 | InsertDatLinkToDB(fileid, $44); |
---|
1117 | end |
---|
1118 | else |
---|
1119 | begin |
---|
1120 | end; |
---|
1121 | end; |
---|
1122 | |
---|
1123 | |
---|
1124 | |
---|
1125 | |
---|
1126 | procedure ONVL(fileid: LongWord; dir_dat2db: Boolean); |
---|
1127 | var |
---|
1128 | packages: LongWord; |
---|
1129 | i: LongWord; |
---|
1130 | begin |
---|
1131 | if dir_dat2db then |
---|
1132 | begin |
---|
1133 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1134 | if packages > 0 then |
---|
1135 | for i := 0 to packages - 1 do |
---|
1136 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1137 | end |
---|
1138 | else |
---|
1139 | begin |
---|
1140 | end; |
---|
1141 | end; |
---|
1142 | |
---|
1143 | |
---|
1144 | |
---|
1145 | |
---|
1146 | procedure ONWC(fileid: LongWord; dir_dat2db: Boolean); |
---|
1147 | begin |
---|
1148 | if dir_dat2db then |
---|
1149 | begin |
---|
1150 | InsertDatLinkToDB(fileid, $28); |
---|
1151 | InsertDatLinkToDB(fileid, $34); |
---|
1152 | InsertDatLinkToDB(fileid, $40); |
---|
1153 | InsertDatLinkToDB(fileid, $54); |
---|
1154 | InsertDatLinkToDB(fileid, $58); |
---|
1155 | InsertDatLinkToDB(fileid, $5C); |
---|
1156 | InsertDatLinkToDB(fileid, $60); |
---|
1157 | InsertDatLinkToDB(fileid, $6FC); |
---|
1158 | InsertDatLinkToDB(fileid, $700); |
---|
1159 | end |
---|
1160 | else |
---|
1161 | begin |
---|
1162 | end; |
---|
1163 | end; |
---|
1164 | |
---|
1165 | |
---|
1166 | |
---|
1167 | |
---|
1168 | procedure OPGE(fileid: LongWord; dir_dat2db: Boolean); |
---|
1169 | begin |
---|
1170 | if dir_dat2db then |
---|
1171 | begin |
---|
1172 | InsertDatLinkToDB(fileid, $0C); |
---|
1173 | end |
---|
1174 | else |
---|
1175 | begin |
---|
1176 | end; |
---|
1177 | end; |
---|
1178 | |
---|
1179 | |
---|
1180 | |
---|
1181 | |
---|
1182 | procedure PSPC(fileid: LongWord; dir_dat2db: Boolean); |
---|
1183 | begin |
---|
1184 | if dir_dat2db then |
---|
1185 | begin |
---|
1186 | InsertDatLinkToDB(fileid, $50); |
---|
1187 | end |
---|
1188 | else |
---|
1189 | begin |
---|
1190 | end; |
---|
1191 | end; |
---|
1192 | |
---|
1193 | |
---|
1194 | |
---|
1195 | |
---|
1196 | procedure PSPL(fileid: LongWord; dir_dat2db: Boolean); |
---|
1197 | var |
---|
1198 | packages: LongWord; |
---|
1199 | i: LongWord; |
---|
1200 | begin |
---|
1201 | if dir_dat2db then |
---|
1202 | begin |
---|
1203 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1204 | if packages > 0 then |
---|
1205 | for i := 0 to packages - 1 do |
---|
1206 | InsertDatLinkToDB(fileid, $20 + i * 8 + $4); |
---|
1207 | end |
---|
1208 | else |
---|
1209 | begin |
---|
1210 | end; |
---|
1211 | end; |
---|
1212 | |
---|
1213 | |
---|
1214 | |
---|
1215 | |
---|
1216 | procedure PSUI(fileid: LongWord; dir_dat2db: Boolean); |
---|
1217 | var |
---|
1218 | i: LongWord; |
---|
1219 | begin |
---|
1220 | if dir_dat2db then |
---|
1221 | begin |
---|
1222 | for i := 0 to 43 do |
---|
1223 | InsertDatLinkToDB(fileid, $08 + i * 4); |
---|
1224 | end |
---|
1225 | else |
---|
1226 | begin |
---|
1227 | end; |
---|
1228 | end; |
---|
1229 | |
---|
1230 | |
---|
1231 | |
---|
1232 | |
---|
1233 | procedure STNA(fileid: LongWord; dir_dat2db: Boolean); |
---|
1234 | var |
---|
1235 | packages: Word; |
---|
1236 | i: LongWord; |
---|
1237 | begin |
---|
1238 | if dir_dat2db then |
---|
1239 | begin |
---|
1240 | OniDataConnection.LoadDatFilePart(fileid, $1E, 2, @packages); |
---|
1241 | if packages > 0 then |
---|
1242 | for i := 0 to packages - 1 do |
---|
1243 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1244 | end |
---|
1245 | else |
---|
1246 | begin |
---|
1247 | end; |
---|
1248 | end; |
---|
1249 | |
---|
1250 | |
---|
1251 | |
---|
1252 | |
---|
1253 | procedure TRAC(fileid: LongWord; dir_dat2db: Boolean); |
---|
1254 | var |
---|
1255 | packages: Word; |
---|
1256 | i: LongWord; |
---|
1257 | begin |
---|
1258 | if dir_dat2db then |
---|
1259 | begin |
---|
1260 | InsertDatLinkToDB(fileid, $18); |
---|
1261 | OniDataConnection.LoadDatFilePart(fileid, $1E, 2, @packages); |
---|
1262 | if packages > 0 then |
---|
1263 | for i := 0 to packages - 1 do |
---|
1264 | InsertDatLinkToDB(fileid, $20 + i * 12 + 8); |
---|
1265 | end |
---|
1266 | else |
---|
1267 | begin |
---|
1268 | end; |
---|
1269 | end; |
---|
1270 | |
---|
1271 | |
---|
1272 | |
---|
1273 | |
---|
1274 | procedure TRAM(fileid: LongWord; dir_dat2db: Boolean); |
---|
1275 | begin |
---|
1276 | if dir_dat2db then |
---|
1277 | begin |
---|
1278 | InsertDatLinkToDB(fileid, $40); |
---|
1279 | InsertDatLinkToDB(fileid, $44); |
---|
1280 | end |
---|
1281 | else |
---|
1282 | begin |
---|
1283 | end; |
---|
1284 | end; |
---|
1285 | |
---|
1286 | |
---|
1287 | |
---|
1288 | |
---|
1289 | procedure TRAS(fileid: LongWord; dir_dat2db: Boolean); |
---|
1290 | begin |
---|
1291 | if dir_dat2db then |
---|
1292 | begin |
---|
1293 | InsertDatLinkToDB(fileid, $08); |
---|
1294 | end |
---|
1295 | else |
---|
1296 | begin |
---|
1297 | end; |
---|
1298 | end; |
---|
1299 | |
---|
1300 | |
---|
1301 | |
---|
1302 | |
---|
1303 | procedure TRBS(fileid: LongWord; dir_dat2db: Boolean); |
---|
1304 | var |
---|
1305 | i: LongWord; |
---|
1306 | begin |
---|
1307 | if dir_dat2db then |
---|
1308 | begin |
---|
1309 | for i := 0 to 4 do |
---|
1310 | InsertDatLinkToDB(fileid, $08 + i * 4); |
---|
1311 | end |
---|
1312 | else |
---|
1313 | begin |
---|
1314 | end; |
---|
1315 | end; |
---|
1316 | |
---|
1317 | |
---|
1318 | |
---|
1319 | |
---|
1320 | procedure TRCM(fileid: LongWord; dir_dat2db: Boolean); |
---|
1321 | var |
---|
1322 | i: LongWord; |
---|
1323 | begin |
---|
1324 | if dir_dat2db then |
---|
1325 | begin |
---|
1326 | for i := 0 to 2 do |
---|
1327 | InsertDatLinkToDB(fileid, $5C + i * 4); |
---|
1328 | end |
---|
1329 | else |
---|
1330 | begin |
---|
1331 | end; |
---|
1332 | end; |
---|
1333 | |
---|
1334 | |
---|
1335 | |
---|
1336 | |
---|
1337 | procedure TRGA(fileid: LongWord; dir_dat2db: Boolean); |
---|
1338 | var |
---|
1339 | i: LongWord; |
---|
1340 | packages: Word; |
---|
1341 | begin |
---|
1342 | if dir_dat2db then |
---|
1343 | begin |
---|
1344 | OniDataConnection.LoadDatFilePart(fileid, $1E, 2, @packages); |
---|
1345 | if packages > 0 then |
---|
1346 | for i := 0 to packages - 1 do |
---|
1347 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1348 | end |
---|
1349 | else |
---|
1350 | begin |
---|
1351 | end; |
---|
1352 | end; |
---|
1353 | |
---|
1354 | |
---|
1355 | |
---|
1356 | |
---|
1357 | procedure TRGE(fileid: LongWord; dir_dat2db: Boolean); |
---|
1358 | begin |
---|
1359 | if dir_dat2db then |
---|
1360 | begin |
---|
1361 | InsertDatLinkToDB(fileid, $20); |
---|
1362 | end |
---|
1363 | else |
---|
1364 | begin |
---|
1365 | end; |
---|
1366 | end; |
---|
1367 | |
---|
1368 | |
---|
1369 | |
---|
1370 | |
---|
1371 | procedure TRIG(fileid: LongWord; dir_dat2db: Boolean); |
---|
1372 | begin |
---|
1373 | if dir_dat2db then |
---|
1374 | begin |
---|
1375 | InsertDatLinkToDB(fileid, $18); |
---|
1376 | InsertDatLinkToDB(fileid, $24); |
---|
1377 | InsertDatLinkToDB(fileid, $28); |
---|
1378 | end |
---|
1379 | else |
---|
1380 | begin |
---|
1381 | end; |
---|
1382 | end; |
---|
1383 | |
---|
1384 | |
---|
1385 | |
---|
1386 | |
---|
1387 | procedure TRMA(fileid: LongWord; dir_dat2db: Boolean); |
---|
1388 | var |
---|
1389 | i: LongWord; |
---|
1390 | packages: Word; |
---|
1391 | begin |
---|
1392 | if dir_dat2db then |
---|
1393 | begin |
---|
1394 | OniDataConnection.LoadDatFilePart(fileid, $1E, 2, @packages); |
---|
1395 | if packages > 0 then |
---|
1396 | for i := 0 to packages - 1 do |
---|
1397 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1398 | end |
---|
1399 | else |
---|
1400 | begin |
---|
1401 | end; |
---|
1402 | end; |
---|
1403 | |
---|
1404 | |
---|
1405 | |
---|
1406 | |
---|
1407 | procedure TRSC(fileid: LongWord; dir_dat2db: Boolean); |
---|
1408 | var |
---|
1409 | i: LongWord; |
---|
1410 | packages: Word; |
---|
1411 | begin |
---|
1412 | if dir_dat2db then |
---|
1413 | begin |
---|
1414 | OniDataConnection.LoadDatFilePart(fileid, $1E, 2, @packages); |
---|
1415 | if packages > 0 then |
---|
1416 | for i := 0 to packages - 1 do |
---|
1417 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1418 | end |
---|
1419 | else |
---|
1420 | begin |
---|
1421 | end; |
---|
1422 | end; |
---|
1423 | |
---|
1424 | |
---|
1425 | |
---|
1426 | |
---|
1427 | procedure TSFF(fileid: LongWord; dir_dat2db: Boolean); |
---|
1428 | var |
---|
1429 | i: LongWord; |
---|
1430 | packages: LongWord; |
---|
1431 | begin |
---|
1432 | if dir_dat2db then |
---|
1433 | begin |
---|
1434 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1435 | if packages > 0 then |
---|
1436 | for i := 0 to packages - 1 do |
---|
1437 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1438 | end |
---|
1439 | else |
---|
1440 | begin |
---|
1441 | end; |
---|
1442 | end; |
---|
1443 | |
---|
1444 | |
---|
1445 | |
---|
1446 | |
---|
1447 | procedure TSFT(fileid: LongWord; dir_dat2db: Boolean); |
---|
1448 | begin |
---|
1449 | if dir_dat2db then |
---|
1450 | begin |
---|
1451 | InsertDatLinkToDB(fileid, $1C); |
---|
1452 | end |
---|
1453 | else |
---|
1454 | begin |
---|
1455 | end; |
---|
1456 | end; |
---|
1457 | |
---|
1458 | |
---|
1459 | |
---|
1460 | |
---|
1461 | procedure TURR(fileid: LongWord; dir_dat2db: Boolean); |
---|
1462 | begin |
---|
1463 | if dir_dat2db then |
---|
1464 | begin |
---|
1465 | InsertDatLinkToDB(fileid, $60); |
---|
1466 | InsertDatLinkToDB(fileid, $6C); |
---|
1467 | InsertDatLinkToDB(fileid, $74); |
---|
1468 | end |
---|
1469 | else |
---|
1470 | begin |
---|
1471 | end; |
---|
1472 | end; |
---|
1473 | |
---|
1474 | |
---|
1475 | |
---|
1476 | |
---|
1477 | procedure TXAN(fileid: LongWord; dir_dat2db: Boolean); |
---|
1478 | var |
---|
1479 | i: LongWord; |
---|
1480 | packages: LongWord; |
---|
1481 | begin |
---|
1482 | if dir_dat2db then |
---|
1483 | begin |
---|
1484 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1485 | if packages > 0 then |
---|
1486 | for i := 0 to packages - 1 do |
---|
1487 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1488 | end |
---|
1489 | else |
---|
1490 | begin |
---|
1491 | end; |
---|
1492 | end; |
---|
1493 | |
---|
1494 | |
---|
1495 | |
---|
1496 | |
---|
1497 | procedure TXMA(fileid: LongWord; dir_dat2db: Boolean); |
---|
1498 | var |
---|
1499 | i: LongWord; |
---|
1500 | packages: LongWord; |
---|
1501 | begin |
---|
1502 | if dir_dat2db then |
---|
1503 | begin |
---|
1504 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1505 | if packages > 0 then |
---|
1506 | for i := 0 to packages - 1 do |
---|
1507 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1508 | end |
---|
1509 | else |
---|
1510 | begin |
---|
1511 | end; |
---|
1512 | end; |
---|
1513 | |
---|
1514 | |
---|
1515 | |
---|
1516 | |
---|
1517 | procedure TXMB(fileid: LongWord; dir_dat2db: Boolean); |
---|
1518 | var |
---|
1519 | i: LongWord; |
---|
1520 | packages: LongWord; |
---|
1521 | begin |
---|
1522 | if dir_dat2db then |
---|
1523 | begin |
---|
1524 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1525 | if packages > 0 then |
---|
1526 | for i := 0 to packages - 1 do |
---|
1527 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1528 | end |
---|
1529 | else |
---|
1530 | begin |
---|
1531 | end; |
---|
1532 | end; |
---|
1533 | |
---|
1534 | |
---|
1535 | |
---|
1536 | |
---|
1537 | procedure TXMP(fileid: LongWord; dir_dat2db: Boolean); |
---|
1538 | begin |
---|
1539 | if dir_dat2db then |
---|
1540 | begin |
---|
1541 | InsertDatLinkToDB(fileid, $94); |
---|
1542 | InsertDatLinkToDB(fileid, $98); |
---|
1543 | end |
---|
1544 | else |
---|
1545 | begin |
---|
1546 | end; |
---|
1547 | end; |
---|
1548 | |
---|
1549 | |
---|
1550 | |
---|
1551 | |
---|
1552 | procedure TXTC(fileid: LongWord; dir_dat2db: Boolean); |
---|
1553 | begin |
---|
1554 | if dir_dat2db then |
---|
1555 | begin |
---|
1556 | InsertDatLinkToDB(fileid, $08); |
---|
1557 | end |
---|
1558 | else |
---|
1559 | begin |
---|
1560 | end; |
---|
1561 | end; |
---|
1562 | |
---|
1563 | |
---|
1564 | |
---|
1565 | |
---|
1566 | procedure WMCL(fileid: LongWord; dir_dat2db: Boolean); |
---|
1567 | var |
---|
1568 | i: LongWord; |
---|
1569 | packages: LongWord; |
---|
1570 | begin |
---|
1571 | if dir_dat2db then |
---|
1572 | begin |
---|
1573 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1574 | if packages > 0 then |
---|
1575 | for i := 0 to packages - 1 do |
---|
1576 | InsertDatLinkToDB(fileid, $20 + i * 8 + $4); |
---|
1577 | end |
---|
1578 | else |
---|
1579 | begin |
---|
1580 | end; |
---|
1581 | end; |
---|
1582 | |
---|
1583 | |
---|
1584 | |
---|
1585 | |
---|
1586 | procedure WMDD(fileid: LongWord; dir_dat2db: Boolean); |
---|
1587 | var |
---|
1588 | i: LongWord; |
---|
1589 | packages: LongWord; |
---|
1590 | begin |
---|
1591 | if dir_dat2db then |
---|
1592 | begin |
---|
1593 | OniDataConnection.LoadDatFilePart(fileid, $11C, 4, @packages); |
---|
1594 | if packages > 0 then |
---|
1595 | for i := 0 to packages - 1 do |
---|
1596 | InsertDatLinkToDB(fileid, $120 + i * $124 + $114); |
---|
1597 | end |
---|
1598 | else |
---|
1599 | begin |
---|
1600 | end; |
---|
1601 | end; |
---|
1602 | |
---|
1603 | |
---|
1604 | |
---|
1605 | |
---|
1606 | procedure WMMB(fileid: LongWord; dir_dat2db: Boolean); |
---|
1607 | var |
---|
1608 | i: LongWord; |
---|
1609 | packages: LongWord; |
---|
1610 | begin |
---|
1611 | if dir_dat2db then |
---|
1612 | begin |
---|
1613 | OniDataConnection.LoadDatFilePart(fileid, $1C, 4, @packages); |
---|
1614 | if packages > 0 then |
---|
1615 | for i := 0 to packages - 1 do |
---|
1616 | InsertDatLinkToDB(fileid, $20 + i * 4); |
---|
1617 | end |
---|
1618 | else |
---|
1619 | begin |
---|
1620 | end; |
---|
1621 | end; |
---|
1622 | |
---|
1623 | |
---|
1624 | |
---|
1625 | |
---|
1626 | procedure WPGE(fileid: LongWord; dir_dat2db: Boolean); |
---|
1627 | begin |
---|
1628 | if dir_dat2db then |
---|
1629 | begin |
---|
1630 | InsertDatLinkToDB(fileid, $08); |
---|
1631 | InsertDatLinkToDB(fileid, $0C); |
---|
1632 | end |
---|
1633 | else |
---|
1634 | begin |
---|
1635 | end; |
---|
1636 | end; |
---|
1637 | |
---|
1638 | |
---|
1639 | |
---|
1640 | |
---|
1641 | procedure InsertHandler(ext: String; needed: Boolean; handler: THandler); |
---|
1642 | begin |
---|
1643 | SetLength(ConvertHandlers, Length(ConvertHandlers) + 1); |
---|
1644 | ConvertHandlers[High(ConvertHandlers)].Ext := ext; |
---|
1645 | ConvertHandlers[High(ConvertHandlers)].needed := needed; |
---|
1646 | ConvertHandlers[High(ConvertHandlers)].handler := handler; |
---|
1647 | end; |
---|
1648 | |
---|
1649 | begin |
---|
1650 | InsertHandler('ABNA', False, nil); |
---|
1651 | // InsertHandler('AGDB',True,AGDB); |
---|
1652 | InsertHandler('AGDB', False, nil); |
---|
1653 | InsertHandler('AGQC', False, nil); |
---|
1654 | InsertHandler('AGQG', False, nil); |
---|
1655 | InsertHandler('AGQR', False, nil); |
---|
1656 | InsertHandler('AISA', True, AISA); |
---|
1657 | InsertHandler('AITR', False, nil); |
---|
1658 | InsertHandler('AKAA', False, nil); |
---|
1659 | InsertHandler('AKBA', False, nil); |
---|
1660 | InsertHandler('AKBP', False, nil); |
---|
1661 | InsertHandler('AKDA', False, nil); |
---|
1662 | InsertHandler('AKEV', True, AKEV); |
---|
1663 | InsertHandler('AKOT', True, AKOT); |
---|
1664 | InsertHandler('AKVA', False, nil); |
---|
1665 | InsertHandler('BINA', False, nil); |
---|
1666 | InsertHandler('CBPI', True, CBPI); |
---|
1667 | InsertHandler('CBPM', True, CBPM); |
---|
1668 | InsertHandler('CONS', True, CONS); |
---|
1669 | InsertHandler('CRSA', True, CRSA); |
---|
1670 | InsertHandler('DOOR', True, DOOR); |
---|
1671 | InsertHandler('DPGE', True, DPGE); |
---|
1672 | InsertHandler('ENVP', False, nil); |
---|
1673 | InsertHandler('FILM', False, nil); |
---|
1674 | InsertHandler('HPGE', True, HPGE); |
---|
1675 | InsertHandler('IDXA', False, nil); |
---|
1676 | InsertHandler('IGHH', True, IGHH); |
---|
1677 | InsertHandler('IGPA', True, IGPA); |
---|
1678 | InsertHandler('IGPG', True, IGPG); |
---|
1679 | InsertHandler('IGSA', True, IGSA); |
---|
1680 | InsertHandler('IMPT', True, IMPT); |
---|
1681 | InsertHandler('IPGE', True, IPGE); |
---|
1682 | InsertHandler('KEYI', True, KEYI); |
---|
1683 | InsertHandler('M3GA', True, M3GA); |
---|
1684 | InsertHandler('M3GM', True, M3GM); |
---|
1685 | InsertHandler('MTRL', True, MTRL); |
---|
1686 | InsertHandler('OBAN', False, nil); |
---|
1687 | InsertHandler('OBDC', True, OBDC); |
---|
1688 | InsertHandler('OBOA', True, OBOA); |
---|
1689 | InsertHandler('OFGA', True, OFGA); |
---|
1690 | InsertHandler('ONCC', True, ONCC); |
---|
1691 | InsertHandler('ONCP', False, nil); |
---|
1692 | InsertHandler('ONCV', True, ONCV); |
---|
1693 | InsertHandler('ONFA', False, nil); |
---|
1694 | InsertHandler('ONGS', False, nil); |
---|
1695 | InsertHandler('ONIA', False, nil); |
---|
1696 | InsertHandler('ONLD', False, nil); |
---|
1697 | InsertHandler('ONLV', True, ONLV); |
---|
1698 | InsertHandler('ONMA', False, nil); |
---|
1699 | InsertHandler('ONOA', True, ONOA); |
---|
1700 | InsertHandler('ONSA', False, nil); |
---|
1701 | InsertHandler('ONSK', True, ONSK); |
---|
1702 | InsertHandler('ONTA', False, nil); |
---|
1703 | InsertHandler('ONVL', True, ONVL); |
---|
1704 | InsertHandler('ONWC', True, ONWC); |
---|
1705 | InsertHandler('OPGE', True, OPGE); |
---|
1706 | InsertHandler('OSBD', False, nil); |
---|
1707 | InsertHandler('OTIT', False, nil); |
---|
1708 | InsertHandler('OTLF', False, nil); |
---|
1709 | InsertHandler('PLEA', False, nil); |
---|
1710 | InsertHandler('PNTA', False, nil); |
---|
1711 | InsertHandler('PSPC', True, PSPC); |
---|
1712 | InsertHandler('PSPL', True, PSPL); |
---|
1713 | InsertHandler('PSUI', True, PSUI); |
---|
1714 | InsertHandler('QTNA', False, nil); |
---|
1715 | InsertHandler('SNDD', False, nil); |
---|
1716 | InsertHandler('STNA', True, STNA); |
---|
1717 | InsertHandler('SUBT', False, nil); |
---|
1718 | InsertHandler('TRAC', True, TRAC); |
---|
1719 | InsertHandler('TRAM', True, TRAM); |
---|
1720 | InsertHandler('TRAS', True, TRAS); |
---|
1721 | InsertHandler('TRBS', True, TRBS); |
---|
1722 | InsertHandler('TRCM', True, TRCM); |
---|
1723 | InsertHandler('TRGA', True, TRGA); |
---|
1724 | InsertHandler('TRGE', True, TRGE); |
---|
1725 | InsertHandler('TRIA', False, nil); |
---|
1726 | InsertHandler('TRIG', True, TRIG); |
---|
1727 | InsertHandler('TRMA', True, TRMA); |
---|
1728 | InsertHandler('TRSC', True, TRSC); |
---|
1729 | InsertHandler('TRTA', False, nil); |
---|
1730 | InsertHandler('TSFF', True, TSFF); |
---|
1731 | InsertHandler('TSFL', False, nil); |
---|
1732 | InsertHandler('TSFT', True, TSFT); |
---|
1733 | InsertHandler('TSGA', False, nil); |
---|
1734 | InsertHandler('TSTR', False, nil); |
---|
1735 | InsertHandler('TURR', True, TURR); |
---|
1736 | InsertHandler('TXAN', True, TXAN); |
---|
1737 | InsertHandler('TXCA', False, nil); |
---|
1738 | InsertHandler('TXMA', True, TXMA); |
---|
1739 | InsertHandler('TXMB', True, TXMB); |
---|
1740 | InsertHandler('TXMP', True, TXMP); |
---|
1741 | InsertHandler('TXTC', True, TXTC); |
---|
1742 | InsertHandler('VCRA', False, nil); |
---|
1743 | InsertHandler('WMCL', True, WMCL); |
---|
1744 | InsertHandler('WMDD', True, WMDD); |
---|
1745 | InsertHandler('WMM_', False, nil); |
---|
1746 | InsertHandler('WMMB', True, WMMB); |
---|
1747 | InsertHandler('WPGE', True, WPGE); |
---|
1748 | end. |
---|