releases/0.30a/Unit2_functions.pas

UNIT Unit2_functions;
INTERFACE
USES Classes, Dialogs, SysUtils, StrUtils, Math,
      Unit3_data;

TYPE
  TExportSet=SET OF (DO_dat,DO_raw,DO_convert,DO_toone);

FUNCTION HexToLong(hex:String):LongWord;
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 DataToBin(data:Tdata):String;
FUNCTION BinToInt(bin:String):Byte;

FUNCTION ExportFile(fileid:LongWord; filename:String; settings:TExportSet; path:String):Integer;

FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
FUNCTION FormatFileSize(size:LongWord):String;
FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
FUNCTION GetWinFileName(name:String):String;
FUNCTION GetExtractPath:String;

FUNCTION Explode(_string:String; delimiter:Char):TStringArray;


IMPLEMENTATION
USES Unit4_Exporters, Unit15_Classes;

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


FUNCTION HexToLong(hex:String):LongWord;
  FUNCTION NormalizeHexString(VAR hex:String):Boolean;
    VAR
      i:Byte;
    BEGIN
      IF hex[1]='$' THEN BEGIN
        FOR i:=1 TO Length(hex)-1 DO BEGIN
          hex[i]:=hex[i+1];
        END;
        SetLength(hex, Length(hex)-1);
      END;
      IF (hex[1]='0') AND (UpCase(hex[2])='X') THEN BEGIN
        FOR i:=1 TO Length(hex)-2 DO BEGIN
          hex[i]:=hex[i+2];
        END;
        SetLength(hex, Length(hex)-2);
      END;
      IF Length(hex)=0 THEN
        Result:=False
      ELSE
        Result:=True;
    END;
  VAR
    i:Byte;
  BEGIN
    IF NormalizeHexString(hex) THEN BEGIN
      hex:=UpperCase(hex);
      Result:=0;
      FOR i:=1 TO Length(hex) DO BEGIN
        Result:=Result SHL 4;
        CASE hex[i] OF
          '0'..'9': Result:=Result+Ord(hex[i])-48;
          'A'..'F': Result:=Result+Ord(hex[i])-55;
        ELSE
          Result:=0;
          Exit;
        END;
      END;
    END ELSE BEGIN
      Result:=0;
    END;
  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
    SetLength(Result,4);
    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;
    IF IsNAN(Result) THEN Result:=0.0;
  END;
FUNCTION Encode_Float(input:Single):Tdata;
  VAR _valueswitcher:TValueSwitcher;
  BEGIN
    _valueswitcher.ValueFloat:=input;
    Result:=Encode_Int(_valueswitcher.ValueInt);
  END;

FUNCTION DataToBin(data:Tdata):String;
  VAR
    i,j:Byte;
    singlebyte:Byte;
    bytepart:String;
  BEGIN
    SetLength(bytepart,8);
    Result:='';
    FOR i:=0 TO High(data) DO BEGIN
      singlebyte:=data[i];
      FOR j:=7 DOWNTO 0 DO BEGIN
        bytepart[j+1]:=Char((singlebyte AND $01)+48);
        singlebyte:=singlebyte SHR 1;
      END;
      Result:=Result+bytepart+' ';
    END;
  END;
FUNCTION BinToInt(bin:String):Byte;
  VAR
    Add: Integer;
    i: Byte;
  BEGIN
    Result:=0;
    IF Length(bin)<>8 THEN Exit;
    Add:=1;
    FOR i:=8 DOWNTO 1 DO BEGIN
      IF NOT (bin[i] IN ['0','1']) THEN Exit;
      IF bin[i] = '1' THEN Inc(Result,Add);
      Add:=Add SHL 1;
    END;
  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; filename:String; settings:TExportSet; path:String):Integer;
  VAR
    i:Byte;
    extension:String;
    rawlist:TRawList;
  BEGIN
    Result:=export_noerror;
    extension:=RightStr(filename,4);
    IF DO_toone IN settings THEN BEGIN
      ExportDatFile(fileid,path+'\'+GetWinFileName(filename));
    END ELSE BEGIN
      IF DO_dat IN settings THEN ExportDatFile(fileid,path+'\'+GetWinFileName(filename));
      IF DO_raw IN settings THEN BEGIN
        rawlist:=OniDataConnection.GetRawList(fileid);
        IF Length(rawlist)>0 THEN BEGIN
          FOR i:=0 TO High(rawlist) DO BEGIN
            ExportRawFile(fileid,rawlist[i].src_offset,path+'\'+GetWinFileName(filename));
          END;
        END;
      END;
    END;
  END;

FUNCTION Explode(_string:String; delimiter:Char):TStringArray;
  VAR
    start,len:Word;
  BEGIN
    SetLength(Result, 0);
    start:=1;
    WHILE PosEx(delimiter,_string,start)>0 DO BEGIN
      len:=PosEx(delimiter,_string,start)-start;
      SetLength(Result, Length(Result)+1);
      Result[High(Result)]:=MidStr(_string,start,len);
      start:=start+len+1;
    END;
    SetLength(Result, Length(Result)+1);
    Result[High(Result)]:=MidStr(_string,start,Length(_string)-start+1);
  END;

FUNCTION GetWinFileName(name:String):String;
  BEGIN
    Result:=name;
    Result:=AnsiReplaceStr(Result,'\','__');
    Result:=AnsiReplaceStr(Result,'/','__');
    Result:=AnsiReplaceStr(Result,'>','__');
    Result:=AnsiReplaceStr(Result,'<','__');
  END;

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


END.
Revision:	33
Committed:	Sat Aug 26 19:20:02 2006 UTC (19 years, 2 months ago) by alloc
Content type:	text/x-pascal
File size:	6983 byte(s)
Log Message:
#	Content
1	UNIT Unit2_functions;
2	INTERFACE
3	USES Classes, Dialogs, SysUtils, StrUtils, Math,
4	Unit3_data;
5
6	TYPE
7	TExportSet=SET OF (DO_dat,DO_raw,DO_convert,DO_toone);
8
9	FUNCTION HexToLong(hex:String):LongWord;
10	FUNCTION Decode_Int(buffer:Tdata):LongWord;
11	FUNCTION Encode_Int(input:LongWord):Tdata;
12	FUNCTION Decode_Float(buffer:Tdata):Single;
13	FUNCTION Encode_Float(input:Single):Tdata;
14	FUNCTION DataToBin(data:Tdata):String;
15	FUNCTION BinToInt(bin:String):Byte;
16
17	FUNCTION ExportFile(fileid:LongWord; filename:String; settings:TExportSet; path:String):Integer;
18
19	FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
20	FUNCTION FormatFileSize(size:LongWord):String;
21	FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
22	FUNCTION GetWinFileName(name:String):String;
23	FUNCTION GetExtractPath:String;
24
25	FUNCTION Explode(_string:String; delimiter:Char):TStringArray;
26
27
28	IMPLEMENTATION
29	USES Unit4_Exporters, Unit15_Classes;
30
31	TYPE
32	TValueSwitcher=Record
33	CASE IsFloat: Boolean OF
34	True: (ValueFloat:Single);
35	False: (ValueInt:LongWord);
36	END;
37
38
39	FUNCTION HexToLong(hex:String):LongWord;
40	FUNCTION NormalizeHexString(VAR hex:String):Boolean;
41	VAR
42	i:Byte;
43	BEGIN
44	IF hex[1]='$' THEN BEGIN
45	FOR i:=1 TO Length(hex)-1 DO BEGIN
46	hex[i]:=hex[i+1];
47	END;
48	SetLength(hex, Length(hex)-1);
49	END;
50	IF (hex[1]='0') AND (UpCase(hex[2])='X') THEN BEGIN
51	FOR i:=1 TO Length(hex)-2 DO BEGIN
52	hex[i]:=hex[i+2];
53	END;
54	SetLength(hex, Length(hex)-2);
55	END;
56	IF Length(hex)=0 THEN
57	Result:=False
58	ELSE
59	Result:=True;
60	END;
61	VAR
62	i:Byte;
63	BEGIN
64	IF NormalizeHexString(hex) THEN BEGIN
65	hex:=UpperCase(hex);
66	Result:=0;
67	FOR i:=1 TO Length(hex) DO BEGIN
68	Result:=Result SHL 4;
69	CASE hex[i] OF
70	'0'..'9': Result:=Result+Ord(hex[i])-48;
71	'A'..'F': Result:=Result+Ord(hex[i])-55;
72	ELSE
73	Result:=0;
74	Exit;
75	END;
76	END;
77	END ELSE BEGIN
78	Result:=0;
79	END;
80	END;
81
82	FUNCTION Decode_Int(buffer:Tdata):LongWord;
83	BEGIN
84	Result:=buffer[0]+buffer[1]256+buffer[2]256256+buffer[3]256256256;
85	END;
86	FUNCTION Encode_Int(input:LongWord):Tdata;
87	BEGIN
88	SetLength(Result,4);
89	Result[0]:=input MOD 256;
90	input:=input DIV 256;
91	Result[1]:=input MOD 256;
92	input:=input DIV 256;
93	Result[2]:=input MOD 256;
94	input:=input DIV 256;
95	Result[3]:=input MOD 256;
96	END;
97	FUNCTION Decode_Float(buffer:Tdata):Single;
98	VAR _valueswitcher:TValueSwitcher;
99	BEGIN
100	_valueswitcher.ValueInt:=Decode_Int(buffer);
101	Result:=_valueswitcher.ValueFloat;
102	IF IsNAN(Result) THEN Result:=0.0;
103	END;
104	FUNCTION Encode_Float(input:Single):Tdata;
105	VAR _valueswitcher:TValueSwitcher;
106	BEGIN
107	_valueswitcher.ValueFloat:=input;
108	Result:=Encode_Int(_valueswitcher.ValueInt);
109	END;
110
111	FUNCTION DataToBin(data:Tdata):String;
112	VAR
113	i,j:Byte;
114	singlebyte:Byte;
115	bytepart:String;
116	BEGIN
117	SetLength(bytepart,8);
118	Result:='';
119	FOR i:=0 TO High(data) DO BEGIN
120	singlebyte:=data[i];
121	FOR j:=7 DOWNTO 0 DO BEGIN
122	bytepart[j+1]:=Char((singlebyte AND $01)+48);
123	singlebyte:=singlebyte SHR 1;
124	END;
125	Result:=Result+bytepart+' ';
126	END;
127	END;
128	FUNCTION BinToInt(bin:String):Byte;
129	VAR
130	Add: Integer;
131	i: Byte;
132	BEGIN
133	Result:=0;
134	IF Length(bin)<>8 THEN Exit;
135	Add:=1;
136	FOR i:=8 DOWNTO 1 DO BEGIN
137	IF NOT (bin[i] IN ['0','1']) THEN Exit;
138	IF bin[i] = '1' THEN Inc(Result,Add);
139	Add:=Add SHL 1;
140	END;
141	END;
142
143
144
145	FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
146	BEGIN
147	Result:=AnsiReplaceStr(Format('%'+IntToStr(width)+'u',[value]),' ',leadingzeros);
148	END;
149
150	FUNCTION FormatFileSize(size:LongWord):String;
151	BEGIN
152	IF size>=100010241024 THEN BEGIN
153	Result:=FloatToStrF(size/1024/1024/1024,ffFixed,5,1)+' GB';
154	END ELSE BEGIN
155	IF size>=1000*1024 THEN BEGIN
156	Result:=FloatToStrF(size/1024/1024,ffFixed,5,1)+' MB';
157	END ELSE BEGIN
158	IF size>=1000 THEN BEGIN
159	Result:=FloatToStrF(size/1024,ffFixed,5,1)+' KB';
160	END ELSE BEGIN
161	Result:=IntToStr(size)+' B';
162	END;
163	END;
164	END;
165	END;
166
167	FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
168	VAR
169	string_build,ascii_version:String;
170	i:LongWord;
171	BEGIN
172	string_build:='';
173	ascii_version:='';
174	FOR i:=0 TO High(data) DO BEGIN
175	IF NOT HexOnly THEN
176	IF (i MOD 16)=0 THEN
177	string_build:=string_build+'0x'+IntToHex(i,6)+' ';
178	string_build:=string_build+IntToHex(data[i],2);
179	IF NOT HexOnly THEN BEGIN
180	IF data[i]>=32 THEN ascii_version:=ascii_version+Chr(data[i])
181	ELSE ascii_version:=ascii_version+'.';
182	IF ((i+1) MOD 2)=0 THEN string_build:=string_build+#32;
183	IF ((i+1) MOD 16)=0 THEN BEGIN
184	string_build:=string_build+#32+ascii_version+CrLf;
185	ascii_version:='';
186	END;
187	END;
188	END;
189	Result:=string_build;
190	END;
191
192
193	FUNCTION ExportFile(fileid:LongWord; filename:String; settings:TExportSet; path:String):Integer;
194	VAR
195	i:Byte;
196	extension:String;
197	rawlist:TRawList;
198	BEGIN
199	Result:=export_noerror;
200	extension:=RightStr(filename,4);
201	IF DO_toone IN settings THEN BEGIN
202	ExportDatFile(fileid,path+'\'+GetWinFileName(filename));
203	END ELSE BEGIN
204	IF DO_dat IN settings THEN ExportDatFile(fileid,path+'\'+GetWinFileName(filename));
205	IF DO_raw IN settings THEN BEGIN
206	rawlist:=OniDataConnection.GetRawList(fileid);
207	IF Length(rawlist)>0 THEN BEGIN
208	FOR i:=0 TO High(rawlist) DO BEGIN
209	ExportRawFile(fileid,rawlist[i].src_offset,path+'\'+GetWinFileName(filename));
210	END;
211	END;
212	END;
213	END;
214	END;
215
216	FUNCTION Explode(_string:String; delimiter:Char):TStringArray;
217	VAR
218	start,len:Word;
219	BEGIN
220	SetLength(Result, 0);
221	start:=1;
222	WHILE PosEx(delimiter,_string,start)>0 DO BEGIN
223	len:=PosEx(delimiter,_string,start)-start;
224	SetLength(Result, Length(Result)+1);
225	Result[High(Result)]:=MidStr(_string,start,len);
226	start:=start+len+1;
227	END;
228	SetLength(Result, Length(Result)+1);
229	Result[High(Result)]:=MidStr(_string,start,Length(_string)-start+1);
230	END;
231
232	FUNCTION GetWinFileName(name:String):String;
233	BEGIN
234	Result:=name;
235	Result:=AnsiReplaceStr(Result,'\','__');
236	Result:=AnsiReplaceStr(Result,'/','__');
237	Result:=AnsiReplaceStr(Result,'>','__');
238	Result:=AnsiReplaceStr(Result,'<','__');
239	END;
240
241	FUNCTION GetExtractPath:String;
242	BEGIN
243	Result:=ExtractFilePath(dat_filename)+'\extracted_'+ExtractFileName(dat_filename);
244	END;
245
246
247	END.