www.pudn.com > ecc-0.3.16-src.zip > eccFormMemory.cpp

/* ========================================================================== 
 
	ecc - Erik's Code Collection 
	Copyright (C) 2003-2005 - Erik Dienske 
 
	This file is part of ecc. 
 
	ecc is free software; you can redistribute it and/or modify 
	it under the terms of the GNU General Public License as published by 
	the Free Software Foundation; either version 2 of the License, or 
	(at your option) any later version. 
 
	ecc is distributed in the hope that it will be useful, 
	but WITHOUT ANY WARRANTY; without even the implied warranty of 
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
	GNU General Public License for more details. 
 
	You should have received a copy of the GNU General Public License 
	along with ecc; if not, write to the Free Software Foundation, Inc., 
	59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
 
===========================================================================*/ 
 
//--------------------------------------------------------------------------- 
#include  
#pragma hdrstop 
 
#include "eccFormMemory.h" 
#include "eccPropertyHandler.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
//--------------------------------------------------------------------------- 
#include "eccError.h" 
#include "eccString.h" 
 
//=========================================================================== 
namespace ecc { 
//=========================================================================== 
 
//--------------------------------------------------------------------------- 
 
TFormMemory::TFormMemory(const String ini_fpath, const bool protect) 
{ 
	FProtected	= protect; 
	FFilePath 	= ini_fpath; 
	FWritePropsError = false; 
 
	if (FProtected) 
		ProtectFile(false);  // Unscramble 
 
	if(! DirectoryExists(ExtractFilePath(ini_fpath)) ) 
		ForceDirectories(ExtractFilePath(ini_fpath)); 
	FIniFile = new TIniFile(ini_fpath); 
} 
//--------------------------------------------------------------------------- 
 
TFormMemory::~TFormMemory(void) 
{ 
	try 
	{ 
		FIniFile->UpdateFile(); // Flush file to disk. 
		delete FIniFile; 
 
		if (FProtected) 
			ProtectFile(true);   // Scramble 
	} 
	catch(...) 
	{ 
		ECC_ERR_MSG("Failed saving data to file\n" + QuoteStr(FFilePath) + "."); 
	} 
} 
//--------------------------------------------------------------------------- 
 
TIniFile* TFormMemory::GetIniFile() 
{ 
	return (TIniFile*) FIniFile; 
} 
//--------------------------------------------------------------------------- 
 
void TFormMemory::SetComponent(TComponent* sect_comp) 
{ 
	FSectionComponent = sect_comp; 
} 
//--------------------------------------------------------------------------- 
 
void TFormMemory::WriteProps(String props) 
{ 
	if (FWritePropsError) return; 
 
	TPropertyHandler ph(FSectionComponent); 
	TStringList* prop_list = new TStringList(); 
 
	try 
	{ 
		prop_list->Text = ph.GetNamesValues(props); 
		for (int i = 0; i < prop_list->Count; i++) 
		{ 
			FIniFile->WriteString( 
				ph.GetName(), 
				prop_list->Names[i], 
				prop_list->Values[prop_list->Names[i]]); 
		} 
	} 
	catch(...) 
	{ 
		ECC_ERR_MSG("Writing the settings failed.\n" 
			"Further attempts to write to\n" 
			+ QuoteStr(FFilePath) + "\nwill be ignored."); 
		FWritePropsError = true; 
	} 
	delete prop_list; 
} 
//--------------------------------------------------------------------------- 
 
void TFormMemory::WriteProps(TComponent* comp, String props) 
{ 
	TPropertyHandler ph(FSectionComponent); 
	TStringList* prop_list = new TStringList(); 
 
	try 
	{ 
		prop_list->Text = ph.GetNamesValues(comp, props); 
		for (int i = 0; i < prop_list->Count; i++) 
		{ 
			FIniFile->WriteString( 
				ph.GetName(FSectionComponent), 
				ph.GetName(comp) + "." + prop_list->Names[i], 
				prop_list->Values[prop_list->Names[i]]); 
		} 
	} 
	__finally 
	{ 
		delete prop_list; 
	} 
} 
//--------------------------------------------------------------------------- 
 
void TFormMemory::ReadProps(TComponent* sect_comp) 
{ 
	TPropertyHandler ph(sect_comp); 
	TStringList* prop_list = new TStringList(); 
 
	try 
	{ 
		FIniFile->ReadSectionValues(ph.GetName(), prop_list); 
		ph.SetNamesValues(prop_list->Text); 
	} 
	__finally 
	{ 
		delete prop_list; 
	} 
} 
//--------------------------------------------------------------------------- 
 
void TFormMemory::ProtectFile(bool protect) 
//	(Un)Scrambles the ini file. 
//	Note that this is a lousy way to scramble the file, it is NOT encrypted. 
//	The file becomes just a bit unreadable... 
{ 
	if (!FileExists(FFilePath)) return; 
 
	FileSetAttr(FFilePath, 0); 
 
	try 
	{ 
		// Read file: 
		int fh = FileOpen(FFilePath, fmOpenRead); 
		int flen = FileSeek(fh,0,2); 
		FileSeek(fh,0,0); 
		char* buf = new char[flen+1]; 
		flen = FileRead(fh, buf, flen); 
		FileClose(fh); 
 
		// FileWrite() inserts...does not overwrite! So empty file by deleting it: 
		DeleteFile(FFilePath); 
 
		if (protect) Scramble(buf, flen); 
		else Unscramble(buf, flen); 
 
		// Create file: 
		fh = FileCreate(FFilePath); 
		FileClose(fh); 
 
		// Write file: 
		fh = FileOpen(FFilePath, fmOpenWrite); 
		FileSeek(fh,0,0); 
		FileWrite(fh, buf, flen); 
		FileClose(fh); 
 
		delete[] buf; 
	} 
	catch(...) 
	{ 
		//"FILE ERROR! "__FUNC__; 
	} 
 
	if (protect) FileSetAttr(FFilePath, faHidden | faReadOnly); 
} 
//--------------------------------------------------------------------------- 
 
void TFormMemory::Scramble(char* buf, int flen) 
{ 
	for (int i = 0; i < flen; i++) 
	{ 
		buf[i] = buf[i] ^ 0xff; 
		buf[i] = buf[i] ^ i; 
	} 
} 
//--------------------------------------------------------------------------- 
 
void TFormMemory::Unscramble(char* buf, int flen) 
{ 
	for (int i = 0; i < flen; i++) 
	{ 
		buf[i] = buf[i] ^ i; 
		buf[i] = buf[i] ^ 0xff; 
	} 
} 
//--------------------------------------------------------------------------- 
 
//=========================================================================== 
} // namespace ecc; 
//===========================================================================