Acceder a Berkeley DB 5.x desde Delphi [english version] <Delphi <Indice

type
  PKey = ^TKey;
  TKey = record
    Id: integer;
  end;

  PData = ^TData;
  TData = record
    Name: array[0..50] of AnsiChar;
  end;
  
var
  FDB: PDB;
  cursor: PDBC;
  dbtKey, dbtData: DBT;
  key: PKey;
  data: PData;
  
begin
  // inicializa el API
  InitBerkeleyDB;

  // crea el handle de acceso
  CheckBDB(db_create(FDB, nil, 0));
  try
    // abre la base de datos
    CheckBDB(FDB.open(FDB, nil, 'Test.db', 'Test', DB_BTREE, DB_CREATE_, 0));

    // crea un cursor para recorrer los registros por orden de clave
    CheckBDB(FDB.cursor(FDB, nil, @cursor, 0));
    try
      FillChar(dbtKey, Sizeof(DBT), 0);
      FillChar(dbtData, Sizeof(DBT), 0);
  
      // recorre todos los registros e imprime cada uno
      while CheckAndFoundBDB(cursor.get(cursor, @dbtKey, @dbtData, DB_NEXT)) do begin
        key := PKey(dbtKey.data);
        data := PData(dbtData.data);
        Memo.Lines.Add('Key: '+IntToStr(key.Id));
        Memo.Lines.Add('Data: '+data.Name);
      end;
    finally
      // libera el cursor
      CheckBDB(cursor.close(cursor));
    end;
  finally
    // cierra la base de datos y libera el handle
    CheckBDBandNil(FDB.close(FDB, 0), FDB);
  end;
end;