Работа с данными приложения (Handling an Application Data)

class cDataPackage
{
protected: // Буфер данных и его размер
	void *m_Buf;
	unsigned long m_Size;

public:
	cDataPackage()
	{
		m_Buf=NULL;
		m_Size=0;
	}
	
	`cDataPackage()
	{Free();}
	
	void *Create(unsigned long Size)
	{
		// Освобождаем ранее созданный буфер
		Free ();
		
		// Выделяем память и возвращаем указатель
		return (m_Buf = (void*)new char[(m_Size = Size)]);
	}
	
	// Освобождаем ранее выделенную память
	void Free()
	{
		delete m_Buf;
		m_Buf = NULL;
		m_Size = 0;
	}
	
	BOOL Save(char *Filename)
	{
		FILE *fp;
		
		// Убедись, что есть, что записывать
		if(m_Buf != NULL && m_Size)
		{
			// Открываем файл, пишем размер данных и сами данные
			fwrite(&m_Size, 1, 4, fp);
			fwrite(m_Buf, 1, m_Size, fp);
			fclose(fp);
			return TRUE;
		}
	}
	
	return FALSE;
	
	void *Load(char *FileName, unsigned long *Size)
	{
		FILE *fp;
		
		// Освобождаем основной буфер
		Free()
			
		if((fp=open(Filename, "rb"))!=NULL
		{
			// Читаем размер данных и сами данные
			fread(&m_Size, 1, 4, fp);
			
			if((m_Buf = (void*) new char[m_Size]) != NULL)
			{
				fread(m_Buf, 1, m_Size, fp);
				fclose(fp);
				
				// Сохраняем возвращаемый размер данных
				if(Size != NULL) {*Size = m_Size;}
				
				// Возвращаем указатель
				return m_Buf;
			}
			
			return NULL;
		}
	}
};

// Структура, содержащая имена
typedef struct {char Name[32];}sName;

int PASCAL WinMain(HINSTANCE hInst, HINSTANCE hPrev, LPSTR szCmdLine, int nCmdShow)
{
	cDataPackage DP;
	DWORD Size;
	
	// Создаём систему работы с данными (data package)
	// и передаём ей указатель на созданный пользовательский тип структуры данных sName
	sName *Names = (sName*)DP.Create(64);
	
	// Раз уж у нас есть под каждое имя 64 байта, а каждое имя содержит 32 байта,
	// то можно сохранять двойные имена.
	strcpy(Names[0].Name, "Jim");
	strcpy(Names[1].Name, "Adams");
	
	// Сохраняем имена на жёсткий диск и освобождаем буфер данных
	DP.Save("names.dat");
	DP.Free();
	
	// Загружаем имена с жёсткого диска. Когда функция загрузки // вернёт значение, его размер будет 64 байт.
	Names = (sName*)DP.Load("names.dat", &Size);
	
	// Показываем имена на экране
	MessageBox(NULL, Names[0].Name, "1st Name", MB_OK);
	MessageBox(NULL, Names[1].Name, "2nd Name", MB_OK);
	
	// Освобождаем структуру данных (data package).
	DP.Free()
}