source: oup/releases/0.18a2/Unit3_data.pas@ 1186

Last change on this file since 1186 was 21, checked in by alloc, 18 years ago
File size: 1.9 KB
RevLine 
[21]1UNIT Unit3_data;
2INTERFACE
3USES Classes;
4
5CONST
6 version:String='v0.18.2a';
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 opened:Boolean;
37 END;
38
39 Tnamedfilesmap=Array OF PACKED RECORD
40 FileNumber:LongWord;
41 blubb:LongWord;
42 END;
43 Textensionsmap=Array OF PACKED RECORD
44 Ident:Array[0..$7] OF Byte;
45 Extension:Array[0..$3] OF Char;
46 ExtCount:LongWord;
47 END;
48
49 TAppSettings=RECORD
50 DatPath:String[250];
51 ExtractPath:String[250];
52 END;
53
54 TExportHandlers=RECORD
55 Ext:String[4];
56 needed:Boolean;
57 Handler:Function(fileid:LongWord; convert:Boolean):Integer;
58 END;
59
60VAR
61 dat_filename:String='';
62 raw_filename:String='';
63 dat_header:Theader;
64 dat_filesmap:Tfilesmap;
65 dat_files:Tfiles;
66 dat_namedfilesmap:Tnamedfilesmap;
67 dat_extensionsmap:Textensionsmap;
68 AppSettings:TAppSettings;
69 AppSettingsFile:File OF TAppSettings;
70
71CONST
72 header_ident1:Array[0..$13] OF Byte=
73 ($1F,$27,$DC,$33,$DF,$BC,$03,$00,$31,$33,$52,$56,$40,$00,$14,$00,$10,$00,$08,$00);
74 header_ident2:Array[0..$F] OF Byte=
75 ($99,$CF,$40,$00,$90,$4F,$63,$00,$F4,$55,$5F,$00,$90,$4F,$63,$00);
76
77 export_noerror:Integer=0;
78 export_nohandler:Integer=1;
79 export_handlererror:Integer=2;
80 export_error:Integer=3;
81
82IMPLEMENTATION
83
84END.
85
Note: See TracBrowser for help on using the repository browser.