source: oup/releases/0.11a/Unit3_data.pas@ 1192

Last change on this file since 1192 was 19, checked in by alloc, 18 years ago
File size: 1.8 KB
RevLine 
[19]1UNIT Unit3_data;
2INTERFACE
3USES Classes;
4
5CONST
6 version:String='v0.11a';
7 CrLf:String[2]=#13+#10;
8
9TYPE
10 Tdata=Array OF Byte;
11 Theader=PACKED RECORD
12 Ident:Array[0..$13] OF Byte;
13 Files:LongWord;
14 NamedFiles:LongWord;
15 Extensions:LongWord;
16 DataAddr:LongWord;
17 DataSize:LongWord;
18 NamesAddr:LongWord;
19 NamesSize:LongWord;
20 Ident2:Array[0..$F] OF Byte;
21 END;
22 Tfilesmap=Array OF PACKED RECORD
23 Extension:Array[0..$3] OF Char;
24 DataAddr:LongWord;
25 NameAddr:LongWord;
26 FileSize:LongWord;
27 FileType:LongWord;
28 END;
29 Tfiles=Array OF PACKED RECORD
30 FileName:String;
31 Extension:String[4];
32 Name:String;
33 Size:LongWord;
34 FileType:LongWord;
35 DatAddr:LongWord;
36 END;
37
38 Tnamedfilesmap=Array OF PACKED RECORD
39 FileNumber:LongWord;
40 blubb:LongWord;
41 END;
42 Textensionsmap=Array OF PACKED RECORD
43 Ident:Array[0..$7] OF Byte;
44 Extension:Array[0..$3] OF Char;
45 ExtCount:LongWord;
46 END;
47
48 TAppSettings=RECORD
49 DatPath:String[250];
50 ExtractPath:String[250];
51 END;
52
53 TExportHandlers=RECORD
54 Ext:String[4];
55 needed:Boolean;
56 Handler:Function(fileid:LongWord; convert:Boolean):Integer;
57 END;
58
59VAR
60 dat_filename:String='';
61 dat_header:Theader;
62 dat_filesmap:Tfilesmap;
63 dat_files:Tfiles;
64 dat_namedfilesmap:Tnamedfilesmap;
65 dat_extensionsmap:Textensionsmap;
66 AppSettings:TAppSettings;
67 AppSettingsFile:File OF TAppSettings;
68
69CONST
70 header_ident1:Array[0..$13] OF Byte=
71 ($1F,$27,$DC,$33,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00);
72 header_ident2:Array[0..$F] OF Byte=
73 ($99,$CF,$40,$00,$90,$4F,$63,$00,$F4,$55,$5F,$00,$90,$4F,$63,$00);
74
75 export_noerror:Integer=0;
76 export_nohandler:Integer=1;
77 export_handlererror:Integer=2;
78 export_error:Integer=3;
79
80IMPLEMENTATION
81
82END.
83
Note: See TracBrowser for help on using the repository browser.