releases/0.28a/Unit2_functions.pas

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

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

FUNCTION GetFilesList(ext:String; pattern:String; NoEmptyFiles:Boolean):TStringList;
FUNCTION GetExtensionsList:TStringList;

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 GetFileInfo(fileid:LongWord):TFileInfo;
FUNCTION LoadDatInfos(filename:String):Boolean;
PROCEDURE OpenDatabase(FileName:String);
PROCEDURE CloseDatabase;

FUNCTION LoadDatFile(fileid:LongWord):Tdata;
PROCEDURE UpdateDatFile(fileid:LongWord; data:Tdata);
FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
FUNCTION UpdateDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;

FUNCTION LoadRawFile(fileid,dat_offset,raw_addr,size:LongWord; loc_sep:Boolean; target:Pointer):Boolean;
FUNCTION LoadRawFileByIDOffset(fileid,dat_offset:LongWord; target:Pointer):Boolean;
FUNCTION UpdateRawFile(rawinfo:TRawInfo; target:Pointer):Boolean;

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):TStringList;


IMPLEMENTATION
USES Unit4_Exporters, Unit9_data_structures;

VAR
  Database:TABSDatabase;
  Query:TABSQuery;

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

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;

FUNCTION HexToLong(hex:String):LongWord;
  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 GetFileInfo(fileid:LongWord):TFileInfo;
  BEGIN
    IF opened_state=opened_dat THEN BEGIN
      Result:=dat_files[fileid];
    END ELSE BEGIN
      Query.SQL.Text:='SELECT * FROM datfiles WHERE id='+IntToStr(fileid)+' ORDER BY id ASC;';
      Query.Open;
      IF Query.RecordCount=1 THEN BEGIN
        Query.First;
        Result.ID:=Query.FieldByName('id').AsInteger;
        Result.Name:=Query.FieldByName('name').AsString;
        Result.Extension:=Query.FieldByName('extension').AsString;
        Result.FileName:=FormatNumber(Result.ID,5,'0')+'-'+Result.Name+'.'+Result.Extension;
        Result.Size:=Query.FieldByName('size').AsInteger;
        Result.FileType:=Query.FieldByName('contenttype').AsInteger;
        Result.DatAddr:=0;
        Result.opened:=False;
      END;
      Query.Close;
    END;
  END;


FUNCTION GetFilesList(ext:String; pattern:String; NoEmptyFiles:Boolean):TStringList;
  VAR
    i:LongWord;
    where:String;
    where_ext:String;
  BEGIN
    SetLength(Result,0);
    IF opened_state=opened_dat THEN BEGIN
      FOR i:=0 TO dat_header.Files-1 DO BEGIN
        IF ( (Length(ext)=0) OR (Pos(dat_files[i].Extension,ext)>0) ) AND
             ( (Length(pattern)=0) OR (Pos(UpperCase(pattern),UpperCase(dat_files[i].Name))>0) ) THEN BEGIN
          IF NoEmptyFiles THEN BEGIN
            IF (dat_files[i].FileType AND $02)=0 THEN BEGIN
              SetLength(Result,Length(Result)+1);
              Result[High(Result)]:=dat_files[i].FileName;
            END;
          END ELSE BEGIN
            SetLength(Result,Length(Result)+1);
            Result[High(Result)]:=dat_files[i].FileName;
          END;
        END;
      END;
    END ELSE BEGIN
      where:='';
      IF Length(ext)>0 THEN BEGIN
        IF Length(where)>0 THEN where:=where+' AND ';
        IF Pos(',',ext)>0 THEN BEGIN
          i:=1;
          where_ext:='';
          WHILE i<Length(ext) DO BEGIN
            IF Length(where_ext)>0 THEN where_ext:=where_ext+' OR ';
            where_ext:=where_ext+'(extension="'+MidStr(ext,i,4)+'")';
            i:=i+5;
          END;
          where:=where+'('+where_ext+')';
        END ELSE BEGIN
          where:=where+'(extension="'+ext+'")';
        END;
      END;
      IF Length(pattern)>0 THEN BEGIN
        IF Length(where)>0 THEN where:=where+' AND ';
        where:=where+'(name LIKE "%'+pattern+'%")';
      END;
      IF NoEmptyFiles THEN BEGIN
        IF Length(where)>0 THEN where:=where+' AND ';
        where:=where+'(contenttype<>2)';
      END;
      IF Length(where)>0 THEN where:=' WHERE '+where;
      Query.SQL.Text:='SELECT id,name,extension FROM datfiles'+where+' ORDER BY id ASC;';
      Query.Open;
      IF Query.RecordCount>0 THEN BEGIN
        Query.First;
        SetLength(Result,Query.RecordCount);
        i:=0;
        REPEAT
          Result[i]:=FormatNumber(Query.FieldByName('id').AsInteger,5,'0')+'-'+Query.FieldByName('name').AsString+'.'+Query.FieldByName('extension').AsString;
          Inc(i);
          Query.Next;
        UNTIL Query.EOF;
      END;
      Query.Close;
    END;
  END;

FUNCTION GetExtensionsList:TStringList;
  VAR
    i:LongWord;
  BEGIN
    SetLength(Result,0);
    IF opened_state=opened_dat THEN BEGIN
      FOR i:=0 TO dat_header.Extensions-1 DO BEGIN
        SetLength(Result,Length(Result)+1);
        WITH dat_extensionsmap[i] DO BEGIN
          Result[High(Result)]:=Extension[3]+Extension[2]+Extension[1]+Extension[0]+' ('+IntToStr(ExtCount)+')';
        END;
      END;
    END ELSE BEGIN
      Query.SQL.Text:='SELECT extension,count(extension) AS x FROM datfiles GROUP BY extension ORDER BY extension ASC;';
      Query.Open;
      IF Query.RecordCount>0 THEN BEGIN
        SetLength(Result,Query.RecordCount);
        i:=0;
        REPEAT
          Result[i]:=Query.FieldByName('extension').AsString+' ('+IntToStr(Query.FieldByName('x').AsInteger)+')';
          Inc(i);
          Query.Next;
        UNTIL Query.EOF;
      END;
      Query.Close;
    END;
  END;

FUNCTION LoadDatInfos(filename:String):Boolean;
  VAR i:LongWord;
    dat_file:TFileStream;
    header_pc,header_mac:Boolean;
  BEGIN
    Result:=True;
    opened_state:=opened_dat;
    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));
    header_pc:=True;
    header_mac:=True;
    FOR i:=0 TO High(dat_header.Ident) DO BEGIN
      IF dat_header.Ident[i]<>header_ident1_pc[i] THEN BEGIN
        header_pc:=False;
      END;
      IF dat_header.Ident[i]<>header_ident1_mac[i] THEN BEGIN
        header_mac:=False;
      END;
    END;
    IF NOT (header_pc OR header_mac) THEN BEGIN
      Result:=False;
      Exit;
    END ELSE BEGIN
      IF (header_pc AND NOT header_mac) THEN
        dat_os_mac:=False
      ELSE
        IF (NOT header_pc AND header_mac) THEN
          dat_os_mac:=True
        ELSE BEGIN
          Result:=False;
          Exit;
        END;
    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;
    mem:TStream;
  BEGIN
    IF opened_state=opened_dat THEN 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 ELSE BEGIN
      Query.SQL.Text:='SELECT data FROM datfiles WHERE id='+IntToStr(fileid)+';';
      Query.Open;
      IF Query.RecordCount>0 THEN BEGIN
        mem:=Query.CreateBlobStream(Query.FieldByName('data'),bmRead);
        SetLength(Result,mem.Size);
        mem.Seek(0,soFromBeginning);
        mem.Read(Result[0],mem.Size);
        mem.Free;
      END;
      Query.Close;
    END;
  END;
PROCEDURE UpdateDatFile(fileid:LongWord; data:Tdata);
  VAR
    dat_file:TFileStream;
  BEGIN
    IF opened_state=opened_dat THEN 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 ELSE BEGIN
    END;
  END;

FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
  VAR
    dat_file:TFileStream;
    mem:TStream;
  BEGIN
    Result:=False;
    IF opened_state=opened_dat THEN 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 ELSE BEGIN
      Query.SQL.Text:='SELECT data FROM datfiles WHERE id='+IntToStr(fileid)+';';
      Query.Open;
      IF Query.RecordCount>0 THEN BEGIN
        mem:=Query.CreateBlobStream(Query.FieldByName('data'),bmRead);
        mem.Seek(offset,soFromBeginning);
        mem.Read(target^,size);
        mem.Free;
      END;
      Query.Close;
    END;
  END;
FUNCTION UpdateDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
  VAR
    dat_file:TFileStream;
  BEGIN
    Result:=False;
    IF opened_state=opened_dat THEN BEGIN
      dat_file:=TFileStream.Create(dat_filename, fmOpenReadWrite);
      Result:=True;
      dat_file.Seek(dat_files[fileid].DatAddr+offset,soFromBeginning);
      dat_file.Write(target^,size);
      dat_file.Free;
    END ELSE BEGIN
    END;
  END;

FUNCTION LoadRawFile(fileid,dat_offset,raw_addr,size:LongWord; loc_sep:Boolean; target:Pointer):Boolean;
  VAR
    filestream:TFileStream;
    mem:TStream;
  BEGIN
    Result:=False;
    IF opened_state=opened_dat THEN BEGIN
      Result:=True;
      IF NOT loc_sep THEN
        filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.raw'),fmOpenRead)
      ELSE
        filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.sep'),fmOpenRead);
      filestream.Seek(raw_addr,soFromBeginning);
      filestream.Read(target^,size);
      filestream.Free;
    END ELSE BEGIN
      Query.SQL.Text:='SELECT data FROM rawmap WHERE (src_id='+IntToStr(fileid)+') AND (src_link_offset='+IntToStr(dat_offset)+');';
      Query.Open;
      IF Query.RecordCount>0 THEN BEGIN
        Result:=True;
        mem:=Query.CreateBlobStream(Query.FieldByName('data'),bmRead);
        mem.Seek(0,soFromBeginning);
        mem.Read(target^,size);
        mem.Free;
      END;
      Query.Close;
    END;
  END;
FUNCTION LoadRawFileByIDOffset(fileid,dat_offset:LongWord; target:Pointer):Boolean;
  VAR
    i:Byte;
    raw_info:TRawInfo;
    mem:TStream;
  BEGIN
    Result:=False;
    IF opened_state=opened_dat THEN BEGIN
      Result:=True;
      raw_info:=GetRawInfo(fileid,dat_offset);
      LoadRawFile(fileid,dat_offset,raw_info.raw_addr,raw_info.raw_size,raw_info.loc_sep,target);
    END ELSE BEGIN
      Query.SQL.Text:='SELECT data FROM rawmap WHERE (src_id='+IntToStr(fileid)+') AND (src_link_offset='+IntToStr(dat_offset)+');';
      Query.Open;
      IF Query.RecordCount>0 THEN BEGIN
        Result:=True;
        mem:=Query.CreateBlobStream(Query.FieldByName('data'),bmRead);
        mem.Seek(0,soFromBeginning);
        mem.Read(target^,mem.size);
        mem.Free;
      END;
      Query.Close;
    END;
  END;
FUNCTION UpdateRawFile(rawinfo:TRawInfo; target:Pointer):Boolean;
  VAR
    filestream:TFileStream;
  BEGIN
    Result:=False;
    IF opened_state=opened_dat THEN BEGIN
      Result:=True;
      IF NOT rawinfo.loc_sep THEN
        filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.raw'),fmOpenReadWrite)
      ELSE
        filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.sep'),fmOpenReadWrite);
      filestream.Seek(rawinfo.raw_addr,soFromBeginning);
      filestream.Write(target^,rawinfo.raw_size);
      filestream.Free;
    END ELSE BEGIN
    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:=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):TStringList;
  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;


PROCEDURE OpenDatabase(FileName:String);
  VAR
    i:Byte;
    temps:String;
  BEGIN
    IF NOT FileExists(FileName) THEN BEGIN
      ShowMessage('File doesn''t exist!!!');
      Exit;
    END;
    Database:=TABSDatabase.Create(NIL);
    Database.DatabaseName:='OLDBcon';
    Database.DatabaseFileName:=FileName;
    Database.Open;
    Query:=TABSQuery.Create(Database);
    Query.DatabaseName:='OLDBcon';
    Query.SQL.Text:='SELECT [name],[value] FROM globals ORDER BY [name] ASC';
    Query.Open;
    Query.First;
    REPEAT
      IF Query.FieldByName('name').AsString='dbversion' THEN BEGIN
        IF Query.FieldByName('value').AsString<>DBversion THEN BEGIN
          ShowMessage('Database-file '+CrLf+'"'+FileName+'"'+CrLf+'has wrong version. (Required: '+DBversion+'; found: '+Query.FieldByName('value').AsString+')');
          Query.Close;
          CloseDatabase;
          Exit;
        END;
      END;
      IF Query.FieldByName('name').AsString='lvl' THEN BEGIN
        database_level:=StrToInt(Query.FieldByName('value').AsString);
      END;
      IF Query.FieldByName('name').AsString='ident' THEN BEGIN
        temps:=Query.FieldByName('value').AsString;
        FOR i:=0 TO High(database_ident) DO BEGIN
          CASE temps[(i*2)+1+0] OF
            '0'..'9': database_ident[i]:=Ord(temps[(i*2)+1+0])-48;
            'A'..'F': database_ident[i]:=Ord(temps[(i*2)+1+0])-55;
          END;
          database_ident[i]:=database_ident[i]*16;
          CASE temps[(i*2)+1+1] OF
            '0'..'9': database_ident[i]:=database_ident[i]+Ord(temps[(i*2)+1+0])-48;
            'A'..'F': database_ident[i]:=database_ident[i]+Ord(temps[(i*2)+1+0])-55;
          END;
        END;
      END;
      Query.Next;
    UNTIL Query.Eof;
    Query.Close;
    opened_state:=opened_db;
  END;
PROCEDURE CloseDatabase;
  BEGIN
    Database.Close;
    Database.Free;
    opened_state:=opened_nothing;
  END;


END.
Revision:	27
Committed:	Sat Aug 26 19:15:08 2006 UTC (19 years, 1 month ago) by alloc
Content type:	text/x-pascal
File size:	21473 byte(s)
Log Message:
#	Content
1	UNIT Unit2_functions;
2	INTERFACE
3	USES Classes, Dialogs, SysUtils, StrUtils, Math,
4	Unit3_data, ABSDecUtil, ABSMain, DB;
5
6	TYPE
7	TExportSet=SET OF (DO_dat,DO_raw,DO_convert,DO_toone);
8
9	FUNCTION GetFilesList(ext:String; pattern:String; NoEmptyFiles:Boolean):TStringList;
10	FUNCTION GetExtensionsList:TStringList;
11
12	FUNCTION HexToLong(hex:String):LongWord;
13	FUNCTION Decode_Int(buffer:Tdata):LongWord;
14	FUNCTION Encode_Int(input:LongWord):Tdata;
15	FUNCTION Decode_Float(buffer:Tdata):Single;
16	FUNCTION Encode_Float(input:Single):Tdata;
17	FUNCTION DataToBin(data:Tdata):String;
18	FUNCTION BinToInt(bin:String):Byte;
19
20	FUNCTION GetFileInfo(fileid:LongWord):TFileInfo;
21	FUNCTION LoadDatInfos(filename:String):Boolean;
22	PROCEDURE OpenDatabase(FileName:String);
23	PROCEDURE CloseDatabase;
24
25	FUNCTION LoadDatFile(fileid:LongWord):Tdata;
26	PROCEDURE UpdateDatFile(fileid:LongWord; data:Tdata);
27	FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
28	FUNCTION UpdateDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
29
30	FUNCTION LoadRawFile(fileid,dat_offset,raw_addr,size:LongWord; loc_sep:Boolean; target:Pointer):Boolean;
31	FUNCTION LoadRawFileByIDOffset(fileid,dat_offset:LongWord; target:Pointer):Boolean;
32	FUNCTION UpdateRawFile(rawinfo:TRawInfo; target:Pointer):Boolean;
33
34	FUNCTION ExportFile(fileid:LongWord; filename:String; settings:TExportSet; path:String):Integer;
35
36	FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
37	FUNCTION FormatFileSize(size:LongWord):String;
38	FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
39	FUNCTION GetWinFileName(name:String):String;
40	FUNCTION GetExtractPath:String;
41
42	FUNCTION Explode(_string:String; delimiter:Char):TStringList;
43
44
45	IMPLEMENTATION
46	USES Unit4_Exporters, Unit9_data_structures;
47
48	VAR
49	Database:TABSDatabase;
50	Query:TABSQuery;
51
52	TYPE
53	TValueSwitcher=Record
54	CASE IsFloat: Boolean OF
55	True: (ValueFloat:Single);
56	False: (ValueInt:LongWord);
57	END;
58
59	FUNCTION NormalizeHexString(VAR hex:String):Boolean;
60	VAR
61	i:Byte;
62	BEGIN
63	IF hex[1]='$' THEN BEGIN
64	FOR i:=1 TO Length(hex)-1 DO BEGIN
65	hex[i]:=hex[i+1];
66	END;
67	SetLength(hex, Length(hex)-1);
68	END;
69	IF (hex[1]='0') AND (UpCase(hex[2])='X') THEN BEGIN
70	FOR i:=1 TO Length(hex)-2 DO BEGIN
71	hex[i]:=hex[i+2];
72	END;
73	SetLength(hex, Length(hex)-2);
74	END;
75	IF Length(hex)=0 THEN
76	Result:=False
77	ELSE
78	Result:=True;
79	END;
80
81	FUNCTION HexToLong(hex:String):LongWord;
82	VAR
83	i:Byte;
84	BEGIN
85	IF NormalizeHexString(hex) THEN BEGIN
86	hex:=UpperCase(hex);
87	Result:=0;
88	FOR i:=1 TO Length(hex) DO BEGIN
89	Result:=Result SHL 4;
90	CASE hex[i] OF
91	'0'..'9': Result:=Result+Ord(hex[i])-48;
92	'A'..'F': Result:=Result+Ord(hex[i])-55;
93	ELSE
94	Result:=0;
95	Exit;
96	END;
97	END;
98	END ELSE BEGIN
99	Result:=0;
100	END;
101	END;
102
103	FUNCTION Decode_Int(buffer:Tdata):LongWord;
104	BEGIN
105	Result:=buffer[0]+buffer[1]256+buffer[2]256256+buffer[3]256256256;
106	END;
107	FUNCTION Encode_Int(input:LongWord):Tdata;
108	BEGIN
109	SetLength(Result,4);
110	Result[0]:=input MOD 256;
111	input:=input DIV 256;
112	Result[1]:=input MOD 256;
113	input:=input DIV 256;
114	Result[2]:=input MOD 256;
115	input:=input DIV 256;
116	Result[3]:=input MOD 256;
117	END;
118	FUNCTION Decode_Float(buffer:Tdata):Single;
119	VAR _valueswitcher:TValueSwitcher;
120	BEGIN
121	_valueswitcher.ValueInt:=Decode_Int(buffer);
122	Result:=_valueswitcher.ValueFloat;
123	IF IsNAN(Result) THEN Result:=0.0;
124	END;
125	FUNCTION Encode_Float(input:Single):Tdata;
126	VAR _valueswitcher:TValueSwitcher;
127	BEGIN
128	_valueswitcher.ValueFloat:=input;
129	Result:=Encode_Int(_valueswitcher.ValueInt);
130	END;
131
132	FUNCTION DataToBin(data:Tdata):String;
133	VAR
134	i,j:Byte;
135	singlebyte:Byte;
136	bytepart:String;
137	BEGIN
138	SetLength(bytepart,8);
139	Result:='';
140	FOR i:=0 TO High(data) DO BEGIN
141	singlebyte:=data[i];
142	FOR j:=7 DOWNTO 0 DO BEGIN
143	bytepart[j+1]:=Char((singlebyte AND $01)+48);
144	singlebyte:=singlebyte SHR 1;
145	END;
146	Result:=Result+bytepart+' ';
147	END;
148	END;
149	FUNCTION BinToInt(bin:String):Byte;
150	VAR
151	Add: Integer;
152	i: Byte;
153	BEGIN
154	Result:=0;
155	IF Length(bin)<>8 THEN Exit;
156	Add:=1;
157	FOR i:=8 DOWNTO 1 DO BEGIN
158	IF NOT (bin[i] IN ['0','1']) THEN Exit;
159	IF bin[i] = '1' THEN Inc(Result,Add);
160	Add:=Add SHL 1;
161	END;
162	END;
163
164	FUNCTION GetFileInfo(fileid:LongWord):TFileInfo;
165	BEGIN
166	IF opened_state=opened_dat THEN BEGIN
167	Result:=dat_files[fileid];
168	END ELSE BEGIN
169	Query.SQL.Text:='SELECT * FROM datfiles WHERE id='+IntToStr(fileid)+' ORDER BY id ASC;';
170	Query.Open;
171	IF Query.RecordCount=1 THEN BEGIN
172	Query.First;
173	Result.ID:=Query.FieldByName('id').AsInteger;
174	Result.Name:=Query.FieldByName('name').AsString;
175	Result.Extension:=Query.FieldByName('extension').AsString;
176	Result.FileName:=FormatNumber(Result.ID,5,'0')+'-'+Result.Name+'.'+Result.Extension;
177	Result.Size:=Query.FieldByName('size').AsInteger;
178	Result.FileType:=Query.FieldByName('contenttype').AsInteger;
179	Result.DatAddr:=0;
180	Result.opened:=False;
181	END;
182	Query.Close;
183	END;
184	END;
185
186
187	FUNCTION GetFilesList(ext:String; pattern:String; NoEmptyFiles:Boolean):TStringList;
188	VAR
189	i:LongWord;
190	where:String;
191	where_ext:String;
192	BEGIN
193	SetLength(Result,0);
194	IF opened_state=opened_dat THEN BEGIN
195	FOR i:=0 TO dat_header.Files-1 DO BEGIN
196	IF ( (Length(ext)=0) OR (Pos(dat_files[i].Extension,ext)>0) ) AND
197	( (Length(pattern)=0) OR (Pos(UpperCase(pattern),UpperCase(dat_files[i].Name))>0) ) THEN BEGIN
198	IF NoEmptyFiles THEN BEGIN
199	IF (dat_files[i].FileType AND $02)=0 THEN BEGIN
200	SetLength(Result,Length(Result)+1);
201	Result[High(Result)]:=dat_files[i].FileName;
202	END;
203	END ELSE BEGIN
204	SetLength(Result,Length(Result)+1);
205	Result[High(Result)]:=dat_files[i].FileName;
206	END;
207	END;
208	END;
209	END ELSE BEGIN
210	where:='';
211	IF Length(ext)>0 THEN BEGIN
212	IF Length(where)>0 THEN where:=where+' AND ';
213	IF Pos(',',ext)>0 THEN BEGIN
214	i:=1;
215	where_ext:='';
216	WHILE i<Length(ext) DO BEGIN
217	IF Length(where_ext)>0 THEN where_ext:=where_ext+' OR ';
218	where_ext:=where_ext+'(extension="'+MidStr(ext,i,4)+'")';
219	i:=i+5;
220	END;
221	where:=where+'('+where_ext+')';
222	END ELSE BEGIN
223	where:=where+'(extension="'+ext+'")';
224	END;
225	END;
226	IF Length(pattern)>0 THEN BEGIN
227	IF Length(where)>0 THEN where:=where+' AND ';
228	where:=where+'(name LIKE "%'+pattern+'%")';
229	END;
230	IF NoEmptyFiles THEN BEGIN
231	IF Length(where)>0 THEN where:=where+' AND ';
232	where:=where+'(contenttype<>2)';
233	END;
234	IF Length(where)>0 THEN where:=' WHERE '+where;
235	Query.SQL.Text:='SELECT id,name,extension FROM datfiles'+where+' ORDER BY id ASC;';
236	Query.Open;
237	IF Query.RecordCount>0 THEN BEGIN
238	Query.First;
239	SetLength(Result,Query.RecordCount);
240	i:=0;
241	REPEAT
242	Result[i]:=FormatNumber(Query.FieldByName('id').AsInteger,5,'0')+'-'+Query.FieldByName('name').AsString+'.'+Query.FieldByName('extension').AsString;
243	Inc(i);
244	Query.Next;
245	UNTIL Query.EOF;
246	END;
247	Query.Close;
248	END;
249	END;
250
251	FUNCTION GetExtensionsList:TStringList;
252	VAR
253	i:LongWord;
254	BEGIN
255	SetLength(Result,0);
256	IF opened_state=opened_dat THEN BEGIN
257	FOR i:=0 TO dat_header.Extensions-1 DO BEGIN
258	SetLength(Result,Length(Result)+1);
259	WITH dat_extensionsmap[i] DO BEGIN
260	Result[High(Result)]:=Extension[3]+Extension[2]+Extension[1]+Extension[0]+' ('+IntToStr(ExtCount)+')';
261	END;
262	END;
263	END ELSE BEGIN
264	Query.SQL.Text:='SELECT extension,count(extension) AS x FROM datfiles GROUP BY extension ORDER BY extension ASC;';
265	Query.Open;
266	IF Query.RecordCount>0 THEN BEGIN
267	SetLength(Result,Query.RecordCount);
268	i:=0;
269	REPEAT
270	Result[i]:=Query.FieldByName('extension').AsString+' ('+IntToStr(Query.FieldByName('x').AsInteger)+')';
271	Inc(i);
272	Query.Next;
273	UNTIL Query.EOF;
274	END;
275	Query.Close;
276	END;
277	END;
278
279	FUNCTION LoadDatInfos(filename:String):Boolean;
280	VAR i:LongWord;
281	dat_file:TFileStream;
282	header_pc,header_mac:Boolean;
283	BEGIN
284	Result:=True;
285	opened_state:=opened_dat;
286	dat_filename:=filename;
287	raw_filename:=MidStr(filename,1,Length(filename)-3)+'raw';
288	dat_file:=TFileStream.Create(filename, fmOpenRead);
289	dat_file.Read(dat_header,SizeOf(dat_header));
290	header_pc:=True;
291	header_mac:=True;
292	FOR i:=0 TO High(dat_header.Ident) DO BEGIN
293	IF dat_header.Ident[i]<>header_ident1_pc[i] THEN BEGIN
294	header_pc:=False;
295	END;
296	IF dat_header.Ident[i]<>header_ident1_mac[i] THEN BEGIN
297	header_mac:=False;
298	END;
299	END;
300	IF NOT (header_pc OR header_mac) THEN BEGIN
301	Result:=False;
302	Exit;
303	END ELSE BEGIN
304	IF (header_pc AND NOT header_mac) THEN
305	dat_os_mac:=False
306	ELSE
307	IF (NOT header_pc AND header_mac) THEN
308	dat_os_mac:=True
309	ELSE BEGIN
310	Result:=False;
311	Exit;
312	END;
313	END;
314	SetLength(dat_filesmap,dat_header.Files);
315	SetLength(dat_files,dat_header.Files);
316	FOR i:=0 TO dat_header.Files-1 DO dat_file.Read(dat_filesmap[i],SizeOf(dat_filesmap[i]));
317	FOR i:=0 TO dat_header.Files-1 DO BEGIN
318	dat_files[i].Extension:=dat_filesmap[i].Extension;
319	dat_files[i].Extension:=ReverseString(dat_files[i].Extension);
320	dat_files[i].Size:=dat_filesmap[i].FileSize;
321	dat_files[i].FileType:=dat_filesmap[i].FileType;
322	dat_files[i].DatAddr:=dat_filesmap[i].DataAddr-8+dat_header.DataAddr;
323	IF (dat_filesmap[i].FileType AND $01)=0 THEN BEGIN
324	dat_file.Seek(dat_filesmap[i].NameAddr+dat_header.NamesAddr,soFromBeginning);
325	SetLength(dat_files[i].Name,100);
326	dat_file.Read(dat_files[i].Name[1],100);
327	dat_files[i].Name:=MidStr(dat_files[i].Name,1+4,Pos(#0,dat_files[i].Name)-1-4);
328	END ELSE BEGIN
329	dat_files[i].Name:='';
330	END;
331	dat_files[i].FileName:=FormatNumber(i,5,'0')+'-'+dat_files[i].Name+'.'+dat_files[i].Extension;
332	END;
333	dat_file.Seek($40+dat_header.Files*$14,soFromBeginning);
334	SetLength(dat_namedfilesmap,dat_header.NamedFiles);
335	FOR i:=0 TO dat_header.NamedFiles-1 DO dat_file.Read(dat_namedfilesmap[i],SizeOf(dat_namedfilesmap[i]));
336
337	dat_file.Seek($40+dat_header.Files$14+dat_header.NamedFiles$8,soFromBeginning);
338	SetLength(dat_extensionsmap,dat_header.Extensions);
339	FOR i:=0 TO dat_header.Extensions-1 DO dat_file.Read(dat_extensionsmap[i],SizeOf(dat_extensionsmap[i]));
340
341	dat_file.Free;
342	END;
343
344
345	FUNCTION LoadDatFile(fileid:LongWord):Tdata;
346	VAR
347	dat_file:TFileStream;
348	mem:TStream;
349	BEGIN
350	IF opened_state=opened_dat THEN BEGIN
351	dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
352	dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
353	SetLength(Result,dat_files[fileid].Size);
354	dat_file.Read(Result[0],dat_files[fileid].Size);
355	dat_file.Free;
356	END ELSE BEGIN
357	Query.SQL.Text:='SELECT data FROM datfiles WHERE id='+IntToStr(fileid)+';';
358	Query.Open;
359	IF Query.RecordCount>0 THEN BEGIN
360	mem:=Query.CreateBlobStream(Query.FieldByName('data'),bmRead);
361	SetLength(Result,mem.Size);
362	mem.Seek(0,soFromBeginning);
363	mem.Read(Result[0],mem.Size);
364	mem.Free;
365	END;
366	Query.Close;
367	END;
368	END;
369	PROCEDURE UpdateDatFile(fileid:LongWord; data:Tdata);
370	VAR
371	dat_file:TFileStream;
372	BEGIN
373	IF opened_state=opened_dat THEN BEGIN
374	dat_file:=TFileStream.Create(dat_filename, fmOpenReadWrite);
375	dat_file.Seek(dat_files[fileid].DatAddr,soFromBeginning);
376	dat_file.Write(data[0],Length(data));
377	dat_file.Free;
378	END ELSE BEGIN
379	END;
380	END;
381
382	FUNCTION LoadDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
383	VAR
384	dat_file:TFileStream;
385	mem:TStream;
386	BEGIN
387	Result:=False;
388	IF opened_state=opened_dat THEN BEGIN
389	dat_file:=TFileStream.Create(dat_filename, fmOpenRead);
390	Result:=True;
391	dat_file.Seek(dat_files[fileid].DatAddr+offset,soFromBeginning);
392	dat_file.Read(target^,size);
393	dat_file.Free;
394	END ELSE BEGIN
395	Query.SQL.Text:='SELECT data FROM datfiles WHERE id='+IntToStr(fileid)+';';
396	Query.Open;
397	IF Query.RecordCount>0 THEN BEGIN
398	mem:=Query.CreateBlobStream(Query.FieldByName('data'),bmRead);
399	mem.Seek(offset,soFromBeginning);
400	mem.Read(target^,size);
401	mem.Free;
402	END;
403	Query.Close;
404	END;
405	END;
406	FUNCTION UpdateDatFilePart(fileid,offset,size:LongWord; target:Pointer):Boolean;
407	VAR
408	dat_file:TFileStream;
409	BEGIN
410	Result:=False;
411	IF opened_state=opened_dat THEN BEGIN
412	dat_file:=TFileStream.Create(dat_filename, fmOpenReadWrite);
413	Result:=True;
414	dat_file.Seek(dat_files[fileid].DatAddr+offset,soFromBeginning);
415	dat_file.Write(target^,size);
416	dat_file.Free;
417	END ELSE BEGIN
418	END;
419	END;
420
421	FUNCTION LoadRawFile(fileid,dat_offset,raw_addr,size:LongWord; loc_sep:Boolean; target:Pointer):Boolean;
422	VAR
423	filestream:TFileStream;
424	mem:TStream;
425	BEGIN
426	Result:=False;
427	IF opened_state=opened_dat THEN BEGIN
428	Result:=True;
429	IF NOT loc_sep THEN
430	filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.raw'),fmOpenRead)
431	ELSE
432	filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.sep'),fmOpenRead);
433	filestream.Seek(raw_addr,soFromBeginning);
434	filestream.Read(target^,size);
435	filestream.Free;
436	END ELSE BEGIN
437	Query.SQL.Text:='SELECT data FROM rawmap WHERE (src_id='+IntToStr(fileid)+') AND (src_link_offset='+IntToStr(dat_offset)+');';
438	Query.Open;
439	IF Query.RecordCount>0 THEN BEGIN
440	Result:=True;
441	mem:=Query.CreateBlobStream(Query.FieldByName('data'),bmRead);
442	mem.Seek(0,soFromBeginning);
443	mem.Read(target^,size);
444	mem.Free;
445	END;
446	Query.Close;
447	END;
448	END;
449	FUNCTION LoadRawFileByIDOffset(fileid,dat_offset:LongWord; target:Pointer):Boolean;
450	VAR
451	i:Byte;
452	raw_info:TRawInfo;
453	mem:TStream;
454	BEGIN
455	Result:=False;
456	IF opened_state=opened_dat THEN BEGIN
457	Result:=True;
458	raw_info:=GetRawInfo(fileid,dat_offset);
459	LoadRawFile(fileid,dat_offset,raw_info.raw_addr,raw_info.raw_size,raw_info.loc_sep,target);
460	END ELSE BEGIN
461	Query.SQL.Text:='SELECT data FROM rawmap WHERE (src_id='+IntToStr(fileid)+') AND (src_link_offset='+IntToStr(dat_offset)+');';
462	Query.Open;
463	IF Query.RecordCount>0 THEN BEGIN
464	Result:=True;
465	mem:=Query.CreateBlobStream(Query.FieldByName('data'),bmRead);
466	mem.Seek(0,soFromBeginning);
467	mem.Read(target^,mem.size);
468	mem.Free;
469	END;
470	Query.Close;
471	END;
472	END;
473	FUNCTION UpdateRawFile(rawinfo:TRawInfo; target:Pointer):Boolean;
474	VAR
475	filestream:TFileStream;
476	BEGIN
477	Result:=False;
478	IF opened_state=opened_dat THEN BEGIN
479	Result:=True;
480	IF NOT rawinfo.loc_sep THEN
481	filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.raw'),fmOpenReadWrite)
482	ELSE
483	filestream:=TFileStream.Create(AnsiReplaceStr(dat_filename,'.dat','.sep'),fmOpenReadWrite);
484	filestream.Seek(rawinfo.raw_addr,soFromBeginning);
485	filestream.Write(target^,rawinfo.raw_size);
486	filestream.Free;
487	END ELSE BEGIN
488	END;
489	END;
490
491
492	FUNCTION FormatNumber(value:LongWord; width:Byte; leadingzeros:Char):String;
493	BEGIN
494	Result:=AnsiReplaceStr(Format('%'+IntToStr(width)+'u',[value]),' ',leadingzeros);
495	END;
496
497	FUNCTION FormatFileSize(size:LongWord):String;
498	BEGIN
499	IF size>=100010241024 THEN BEGIN
500	Result:=FloatToStrF(size/1024/1024/1024,ffFixed,5,1)+' GB';
501	END ELSE BEGIN
502	IF size>=1000*1024 THEN BEGIN
503	Result:=FloatToStrF(size/1024/1024,ffFixed,5,1)+' MB';
504	END ELSE BEGIN
505	IF size>=1000 THEN BEGIN
506	Result:=FloatToStrF(size/1024,ffFixed,5,1)+' KB';
507	END ELSE BEGIN
508	Result:=IntToStr(size)+' B';
509	END;
510	END;
511	END;
512	END;
513
514	FUNCTION CreateHexString(data:Tdata; HexOnly:Boolean):String;
515	VAR
516	string_build,ascii_version:String;
517	i:LongWord;
518	BEGIN
519	string_build:='';
520	ascii_version:='';
521	FOR i:=0 TO High(data) DO BEGIN
522	IF NOT HexOnly THEN
523	IF (i MOD 16)=0 THEN
524	string_build:=string_build+'0x'+IntToHex(i,6)+' ';
525	string_build:=string_build+IntToHex(data[i],2);
526	IF NOT HexOnly THEN BEGIN
527	IF data[i]>=32 THEN ascii_version:=ascii_version+Chr(data[i])
528	ELSE ascii_version:=ascii_version+'.';
529	IF ((i+1) MOD 2)=0 THEN string_build:=string_build+#32;
530	IF ((i+1) MOD 16)=0 THEN BEGIN
531	string_build:=string_build+#32+ascii_version+CrLf;
532	ascii_version:='';
533	END;
534	END;
535	END;
536	Result:=string_build;
537	END;
538
539
540	FUNCTION ExportFile(fileid:LongWord; filename:String; settings:TExportSet; path:String):Integer;
541	VAR
542	i:Byte;
543	extension:String;
544	rawlist:TRawList;
545	BEGIN
546	Result:=export_noerror;
547	extension:=RightStr(filename,4);
548	IF DO_toone IN settings THEN BEGIN
549	ExportDatFile(fileid,path+'\'+GetWinFileName(filename));
550	END ELSE BEGIN
551	IF DO_dat IN settings THEN ExportDatFile(fileid,path+'\'+GetWinFileName(filename));
552	IF DO_raw IN settings THEN BEGIN
553	rawlist:=GetRawList(fileid);
554	IF Length(rawlist)>0 THEN BEGIN
555	FOR i:=0 TO High(rawlist) DO BEGIN
556	ExportRawFile(fileid,rawlist[i].src_offset,path+'\'+GetWinFileName(filename));
557	END;
558	END;
559	END;
560	END;
561	END;
562
563	FUNCTION Explode(_string:String; delimiter:Char):TStringList;
564	VAR
565	start,len:Word;
566	BEGIN
567	SetLength(Result, 0);
568	start:=1;
569	WHILE PosEx(delimiter,_string,start)>0 DO BEGIN
570	len:=PosEx(delimiter,_string,start)-start;
571	SetLength(Result, Length(Result)+1);
572	Result[High(Result)]:=MidStr(_string,start,len);
573	start:=start+len+1;
574	END;
575	SetLength(Result, Length(Result)+1);
576	Result[High(Result)]:=MidStr(_string,start,Length(_string)-start+1);
577	END;
578
579	FUNCTION GetWinFileName(name:String):String;
580	BEGIN
581	Result:=name;
582	Result:=AnsiReplaceStr(Result,'\','__');
583	Result:=AnsiReplaceStr(Result,'/','__');
584	Result:=AnsiReplaceStr(Result,'>','__');
585	Result:=AnsiReplaceStr(Result,'<','__');
586	END;
587
588	FUNCTION GetExtractPath:String;
589	BEGIN
590	Result:=ExtractFilePath(dat_filename)+'\extracted_'+ExtractFileName(dat_filename);
591	END;
592
593
594	PROCEDURE OpenDatabase(FileName:String);
595	VAR
596	i:Byte;
597	temps:String;
598	BEGIN
599	IF NOT FileExists(FileName) THEN BEGIN
600	ShowMessage('File doesn''t exist!!!');
601	Exit;
602	END;
603	Database:=TABSDatabase.Create(NIL);
604	Database.DatabaseName:='OLDBcon';
605	Database.DatabaseFileName:=FileName;
606	Database.Open;
607	Query:=TABSQuery.Create(Database);
608	Query.DatabaseName:='OLDBcon';
609	Query.SQL.Text:='SELECT [name],[value] FROM globals ORDER BY [name] ASC';
610	Query.Open;
611	Query.First;
612	REPEAT
613	IF Query.FieldByName('name').AsString='dbversion' THEN BEGIN
614	IF Query.FieldByName('value').AsString<>DBversion THEN BEGIN
615	ShowMessage('Database-file '+CrLf+'"'+FileName+'"'+CrLf+'has wrong version. (Required: '+DBversion+'; found: '+Query.FieldByName('value').AsString+')');
616	Query.Close;
617	CloseDatabase;
618	Exit;
619	END;
620	END;
621	IF Query.FieldByName('name').AsString='lvl' THEN BEGIN
622	database_level:=StrToInt(Query.FieldByName('value').AsString);
623	END;
624	IF Query.FieldByName('name').AsString='ident' THEN BEGIN
625	temps:=Query.FieldByName('value').AsString;
626	FOR i:=0 TO High(database_ident) DO BEGIN
627	CASE temps[(i*2)+1+0] OF
628	'0'..'9': database_ident[i]:=Ord(temps[(i*2)+1+0])-48;
629	'A'..'F': database_ident[i]:=Ord(temps[(i*2)+1+0])-55;
630	END;
631	database_ident[i]:=database_ident[i]*16;
632	CASE temps[(i*2)+1+1] OF
633	'0'..'9': database_ident[i]:=database_ident[i]+Ord(temps[(i*2)+1+0])-48;
634	'A'..'F': database_ident[i]:=database_ident[i]+Ord(temps[(i*2)+1+0])-55;
635	END;
636	END;
637	END;
638	Query.Next;
639	UNTIL Query.Eof;
640	Query.Close;
641	opened_state:=opened_db;
642	END;
643	PROCEDURE CloseDatabase;
644	BEGIN
645	Database.Close;
646	Database.Free;
647	opened_state:=opened_nothing;
648	END;
649
650
651
652	END.