releases/0.18a/Unit2_functions.pas

UNIT Unit2_functions;
INTERFACE
USES Classes, SysUtils, StrUtils, Math, SQLiteTable3, Unit3_data, Unit4_Exporters;

FUNCTION Decode_Int(buffer:Tdata):LongWord;
FUNCTION Encode_Int(input:LongWord):Tdata;
FUNCTION Decode_Float(buffer:Tdata):Single;
FUNCTION Encode_Float(input:Single):Tdata;
FUNCTION LoadDatInfos(filename:String):Boolean;
FUNCTION LoadDatFile(fileid:LongWord):Tdata;
PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
FUNCTION FormatFileSize(size:LongWord):String;
FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
FUNCTION GetExtractPath:String;


IMPLEMENTATION

TYPE
  TValueSwitcher=Record
    CASE IsFloat: Boolean OF
      True: (ValueFloat:Single);
      False: (ValueInt:LongWord);
  END;


FUNCTION Decode_Int(buffer:Tdata):LongWord;
  BEGIN
    Result:=buffer[0]+buffer[1]*256+buffer[2]*256*256+buffer[3]*256*256*256;
  END;
FUNCTION Encode_Int(input:LongWord):Tdata;
  BEGIN
    Result[0]:=input MOD 256;
    input:=input DIV 256;
    Result[1]:=input MOD 256;
    input:=input DIV 256;
    Result[2]:=input MOD 256;
    input:=input DIV 256;
    Result[3]:=input MOD 256;
  END;
FUNCTION Decode_Float(buffer:Tdata):Single;
  VAR _valueswitcher:TValueSwitcher;
  BEGIN
    _valueswitcher.ValueInt:=Decode_Int(buffer);
    Result:=_valueswitcher.ValueFloat;
  END;
FUNCTION Encode_Float(input:Single):Tdata;
  VAR _valueswitcher:TValueSwitcher;
  BEGIN
    _valueswitcher.ValueFloat:=input;
    Result:=Encode_Int(_valueswitcher.ValueInt);
  END;


FUNCTION LoadDatInfos(filename:String):Boolean;
  VAR i:LongWord;
    dat_file:TFileStream;
  BEGIN
    Result:=True;
    dat_filename:=filename;
    raw_filename:=MidStr(filename,1,Length(filename)-3)+'raw';
    dat_file:=TFileStream.Create(filename, fmOpenRead);
    dat_file.Read(dat_header,SizeOf(dat_header));
    FOR i:=0 TO High(dat_header.Ident) DO
      IF dat_header.Ident[i]<>header_ident1[i] THEN BEGIN
        Result:=False;
        Exit;
      END;
{    FOR i:=0 TO High(dat_header.Ident2) DO
      IF dat_header.Ident2[i]<>header_ident2[i] THEN BEGIN
        Result:=False;
        Exit;
     END;
}
    SetLength(dat_filesmap,dat_header.Files);
    SetLength(dat_files,dat_header.Files);
    FOR i:=0 TO dat_header.Files-1 DO dat_file.Read(dat_filesmap[i],SizeOf(dat_filesmap[i]));
    FOR i:=0 TO dat_header.Files-1 DO BEGIN
      dat_files[i].Extension:=dat_filesmap[i].Extension;
      dat_files[i].Extension:=ReverseString(dat_files[i].Extension);
      dat_files[i].Size:=dat_filesmap[i].FileSize;
      dat_files[i].FileType:=dat_filesmap[i].FileType;
      dat_files[i].DatAddr:=dat_filesmap[i].DataAddr-8+dat_header.DataAddr;
      IF (dat_filesmap[i].FileType AND $01)=0 THEN BEGIN
        dat_file.Seek(dat_filesmap[i].NameAddr+dat_header.NamesAddr,soFromBeginning);
        SetLength(dat_files[i].Name,100);
        dat_file.Read(dat_files[i].Name[1],100);
        dat_files[i].Name:=MidStr(dat_files[i].Name,1+4,Pos(#0,dat_files[i].Name)-1-4);
      END ELSE BEGIN
        dat_files[i].Name:='';
      END;
      dat_files[i].FileName:=FormatNumber(i,5,'0')+'-'+dat_files[i].Name+'.'+dat_files[i].Extension;
    END;
    dat_file.Seek($40+dat_header.Files*$14,soFromBeginning);
    SetLength(dat_namedfilesmap,dat_header.NamedFiles);
    FOR i:=0 TO dat_header.NamedFiles-1 DO dat_file.Read(dat_namedfilesmap[i],SizeOf(dat_namedfilesmap[i]));

    dat_file.Seek($40+dat_header.Files*$14+dat_header.NamedFiles*$8,soFromBeginning);
    SetLength(dat_extensionsmap,dat_header.Extensions);
    FOR i:=0 TO dat_header.Extensions-1 DO dat_file.Read(dat_extensionsmap[i],SizeOf(dat_extensionsmap[i]));

    dat_file.Free;
  END;


FUNCTION LoadDatFile(fileid:LongWord):Tdata;
  VAR dat_file:TFileStream;
  BEGIN
    dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
    dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
    SetLength(Result,dat_files[fileid].Size);
    dat_file.Read(Result[0],dat_files[fileid].Size);
    dat_file.Free;
  END;


PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
  VAR dat_file:TFileStream;
  BEGIN
    dat_file:=TFileStream.Create(dat_filename, fmOpenReadWrite);
    dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
    dat_file.Write(data[0],Length(data));
    dat_file.Free;
  END;


FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
  VAR dat_file:TFileStream;
  BEGIN
    dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
    Result:=True;
    dat_file.Seek(dat_files[fileid].DatAddr+offset,soFromBeginning);
    dat_file.Read(target^,size);
    dat_file.Free;
  END;


FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
  VAR
    filestream:TFileStream;
  BEGIN
    Result:=True;
    filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.raw'),fmOpenRead);
    filestream.Seek(address,soFromBeginning);
    filestream.Read(target^,size);
    filestream.Free;
  END;


FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
  BEGIN
    Result:=AnsiReplaceStr(Format('%'+IntToStr(width)+'u',[value]),' ',leadingzeros);
  END;


FUNCTION FormatFileSize(size:LongWord):String;
  BEGIN
    IF size>=1000*1024*1024 THEN BEGIN
      Result:=FloatToStrF(size/1024/1024/1024,ffFixed,5,1)+' GB';
    END ELSE BEGIN
      IF size>=1000*1024 THEN BEGIN
        Result:=FloatToStrF(size/1024/1024,ffFixed,5,1)+' MB';
      END ELSE BEGIN
        IF size>=1000 THEN BEGIN
          Result:=FloatToStrF(size/1024,ffFixed,5,1)+' KB';
        END ELSE BEGIN
          Result:=IntToStr(size)+' B';
        END;
      END;
    END;
  END;


FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
  VAR
    string_build,ascii_version:String;
    i:LongWord;
  BEGIN
    string_build:='';
    ascii_version:='';
    FOR i:=0 TO High(data) DO BEGIN
      IF NOT HexOnly THEN
        IF (i MOD 16)=0 THEN
          string_build:=string_build+'0x'+IntToHex(i,6)+'  ';
      string_build:=string_build+IntToHex(data[i],2);
      IF NOT HexOnly THEN BEGIN
        IF data[i]>=32 THEN ascii_version:=ascii_version+Chr(data[i])
        ELSE ascii_version:=ascii_version+'.';
        IF ((i+1) MOD 2)=0 THEN string_build:=string_build+#32;
        IF ((i+1) MOD 16)=0 THEN BEGIN
          string_build:=string_build+#32+ascii_version+CrLf;
          ascii_version:='';
        END;
      END;
    END;
    Result:=string_build;
  END;


FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
  VAR
    i:Byte;
  BEGIN
    Result:=export_noerror;

    //ExportDefFileHeader(fileid);

    IF (dat_files[fileid].FileType AND $02)=0 THEN BEGIN
      //ExportDatFile(fileid);

      FOR i:=1 TO Length(ExportHandlers)+1 DO BEGIN
        IF i<=Length(ExportHandlers) THEN BEGIN
          IF ExportHandlers[i].Ext=dat_files[fileid].Extension THEN BEGIN
            IF ExportHandlers[i].needed THEN BEGIN
              CASE ExportHandlers[i].Handler(fileid,convert) OF
                0: Result:=0;
              ELSE
                Result:=export_handlererror;
              END;
            END;
            Break;
          END;
        END ELSE BEGIN
          Result:=export_nohandler;
        END;
      END;
    END;
  END;


FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
  VAR
    name:String;
  BEGIN
    name:=dat_files[fileid].Name;
    name:=AnsiReplaceStr(name,'\','__');
    name:=AnsiReplaceStr(name,'/','__');
    name:=AnsiReplaceStr(name,'>','__');
    name:=AnsiReplaceStr(name,'<','__');
    Result:=FormatNumber(fileid,5,'0')+'-'+name+'.'+substring+'.'+dat_files[fileid].Extension;
  END;

FUNCTION GetExtractPath:String;
  BEGIN
    Result:=ExtractFilePath(dat_filename)+'\extracted_'+ExtractFileName(dat_filename);
  END;


END.
Revision:	21
Committed:	Sat Aug 26 19:11:49 2006 UTC (19 years, 1 month ago) by alloc
Content type:	text/x-pascal
File size:	8334 byte(s)
Log Message:
#	Content
1	UNIT Unit2_functions;
2	INTERFACE
3	USES Classes, SysUtils, StrUtils, Math, SQLiteTable3, Unit3_data, Unit4_Exporters;
4
5	FUNCTION Decode_Int(buffer:Tdata):LongWord;
6	FUNCTION Encode_Int(input:LongWord):Tdata;
7	FUNCTION Decode_Float(buffer:Tdata):Single;
8	FUNCTION Encode_Float(input:Single):Tdata;
9	FUNCTION LoadDatInfos(filename:String):Boolean;
10	FUNCTION LoadDatFile(fileid:LongWord):Tdata;
11	PROCEDURE SaveDatFile(fileid:LongWord; data:Tdata);
12	FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
13	FUNCTION LoadRawFilePart(address,size:LongWord; target:Pointer):Boolean;
14	FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
15	FUNCTION FormatFileSize(size:LongWord):String;
16	FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
17	FUNCTION ExportFile(fileid:LongWord; convert:Boolean):Integer;
18	FUNCTION GetWinFileName(fileid:LongWord; substring:String):String;
19	FUNCTION GetExtractPath:String;
20
21
22
23	IMPLEMENTATION
24
25	TYPE
26	TValueSwitcher=Record
27	CASE IsFloat: Boolean OF
28	True: (ValueFloat:Single);
29	False: (ValueInt:LongWord);
30	END;
31
32
33	FUNCTION Decode_Int(buffer:Tdata):LongWord;
34	BEGIN
35	Result:=buffer[0]+buffer[1]256+buffer[2]256256+buffer[3]256256256;
36	END;
37	FUNCTION 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;
47	FUNCTION Decode_Float(buffer:Tdata):Single;
48	VAR _valueswitcher:TValueSwitcher;
49	BEGIN
50	_valueswitcher.ValueInt:=Decode_Int(buffer);
51	Result:=_valueswitcher.ValueFloat;
52	END;
53	FUNCTION 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
61	FUNCTION 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
112	FUNCTION 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
123	PROCEDURE 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
133	FUNCTION 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
144	FUNCTION 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
156	FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
157	BEGIN
158	Result:=AnsiReplaceStr(Format('%'+IntToStr(width)+'u',[value]),' ',leadingzeros);
159	END;
160
161
162	FUNCTION FormatFileSize(size:LongWord):String;
163	BEGIN
164	IF size>=100010241024 THEN BEGIN
165	Result:=FloatToStrF(size/1024/1024/1024,ffFixed,5,1)+' GB';
166	END ELSE BEGIN
167	IF size>=1000*1024 THEN BEGIN
168	Result:=FloatToStrF(size/1024/1024,ffFixed,5,1)+' MB';
169	END ELSE BEGIN
170	IF size>=1000 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
180	FUNCTION 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
206	FUNCTION 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
237	FUNCTION 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
249	FUNCTION GetExtractPath:String;
250	BEGIN
251	Result:=ExtractFilePath(dat_filename)+'\extracted_'+ExtractFileName(dat_filename);
252	END;
253
254
255	END.