Listing 9: Lesen und Schreiben von Prefs-Daten.

PrefsObject *dict;
ULONG err;

/* Prefs-Struktur anlegen */
if(dict = IPrefsObjects->PrefsDictionary(NULL, NULL, ALPO_Alloc, 0, TAG_DONE))
{
  /* die Einstellungen laden */
  if(!(err = IPrefsObjects->ReadPrefs(dict, READPREFS_FileName, "einstellungen", TAG_DONE)))
  {
     /* Daten können ausgelesen werden */
  }
  else IDOS->Printf("Kann Prefs Datei nicht lesen (error $%lx)\n", err);

  /* PROGRAMM * /

    /* die Einstellungen dauerhaft speichern */
    if(IPrefsObjects->WritePrefs(dict, WRITEPREFS_FileName, "einstellungen", TAG_DONE))
      IDOS->Printf("Kann Prefs Datei 'einstellungen.xml' nicht schreiben !\n");

    /* die reservierten Speicherstrukturen freigeben */
    IPrefsObjects->PrefsDictionary(dict, NULL, ALPO_Release, 0, TAG_DONE);
  }
  else IDOS->Printf("Speichermangel\n");