Mac-Programmierung: Dateien |
OSErr FSpDelete(FSSpec);
int Load(FSSpec sfFile) { OSErr err; short dataFile; long dataSize; short Nr; if (noErr==FSpOpenDF(&sfFile, fsCurPerm, &dataFile)) { // solange nicht EOF while (noErr==FSRead(dataFile, &dataSize, &Puffer)) { uebernehmePuffer(Puffer); } err = FSClose(dataFile); return 1; } return 0; }
short dataFile; StandardPutFile("\psichern als", "\pDateiname", &answer); if (answer.sfGood) { err = FSpCreate(&answer.sfFile, kCreator, kFiletyp, answer.sfScript); if (err != noErr) { if (noErr == FSpOpenDF(&answer.sfFile, fsCurPerm, &dataFile)) { // Hole die Vokabeln der Reihe nach while (nochWasDa()) { stelleDatenInPuffer(Puffer); if (noErr != FSWrite(dataFile, &dataSize, &Puffer)) { FSClose(dataFile); return 0; } holeNaechsteDaten(); } err = FSClose(dataFile); return 1; } }
Homepage | (C) Copyright 1999, 2002 Arnold Willemer |