1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

brResIdx.BaseStream.Seek(12L, SeekOrigin.Begin)
intBlockOffset = brResIdx.ReadInt32()
brResIdx.BaseStream.Seek(184L, SeekOrigin.Begin)
intDataFileSize = brResIdx.ReadInt32()
brResIdx.BaseStream.Seek(72L, SeekOrigin.Begin)
intFirstBlock = brResIdx.ReadInt32()
brResIdx.BaseStream.Seek(intFirstBlock, SeekOrigin.Begin)
Do While intForwardLink > 0
    intForwardLink = brResIdx.ReadUInt32()
    //skip BackLink
    brResIdx.ReadInt32()
    intActiveEntry = brResIdx.ReadInt16()
    //skip 8 bytes of unknown
    brResIdx.ReadBytes(8)
    //*NEW* skip further 10 bytes of unknown
    brResIdx.ReadBytes(10)
    Do While intActiveEntry <> 0
        ' *NEW* read additional 4 bytes as high Long
        intROffset2 = brResIdx.ReadUInt32()
        intROffset = brResIdx.ReadUInt32()
        ' *NEW* recombine into a 64 bit offset
        intROffset64 = intROffset2 * (2 ^ 32) + intROffset
        intRType = Me.SwapEndian(brResIdx.ReadInt32())
        ' skip next
        brResIdx.ReadInt32()
        If (intRType = lngRecType) Then
            hdr = ReadDataFile(34, intDataFileSize, intBlockOffset, intROffset)
            intDataSize = BitConverter.ToInt32(hdr, 18) - 12
            If intDataSize > 0 And intDataSize < 10000 Then
                bwOutput.Write(ReadDataFile(intDataSize, intDataFileSize, intBlockOffset, intROffset + 10))
                'swDbgOutput.WriteLine("At Offset " & CStr(intROffset + 10) & " : " & intDataSize & " bytes")
                'swDbgOutput.Flush()
                intNumRecords = intNumRecords + 1
            End If
        End If
        intActiveEntry = intActiveEntry - 1
    Loop
    brResIdx.BaseStream.Seek(intForwardLink, SeekOrigin.Begin)
Loop                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

function TAOExtractor.readdb:string;
var intBlockOffset, intDataFileSize, intFirstBlock: int32;
    intActiveEntry: int32;
    intForwardLink: UInt32;
    //intActiveEntry: int16;
    fs: TFileStream;
    buffer: array [0..1024] of char;
begin
    try
      aopath:='C:\Funcom\Anarchy Online';
      fs:=TFileStream.Create(aopath+dbpath+'ResourceDatabase.dat.001', fmOpenRead);
      //Read Header
      fs.Seek(12,soFromBeginning);
        fs.Read(intBlockOffset, 4);
        //intBlockOffset:=fs.ReadDWord;
      fs.Seek(184,soFromBeginning);
        fs.Read(intDataFileSize, 4);
        //intDataFileSize:=fs.ReadDWord;
      fs.Seek(72,soFromBeginning);
        fs.Read(intFirstBlock, 4); //sizeof(intFirstBlock)
        //intFirstBlock:=fs.ReadDWord;
      fs.Seek(intFirstBlock,soFromBeginning);
      While intForwardLink > 0 do
          begin
              intForwardLink:=fs.ReadWord;
              fs.ReadBuffer(buffer,4);
              fs.ReadBuffer(intActiveEntry,2);
              fs.ReadBuffer(buffer,18);
              //test
              showmessage('test'+inttostr(intActiveEntry));
              While intActiveEntry <> 0 do
                  begin
                  end;

          end;
      //result:=inttostr(intForwardLink);
      //fs.Read(intBlockOffset);
    finally
      fs.Free;
    end;
    //Read Header
end;