Subversion Repositories DevTools

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "GenerationProperties.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "AdvDirectoryEdit"

#pragma link "AdvEdBtn"

#pragma link "AdvEdit"

#pragma link "AdvPanel"

#pragma link "advlued"

#pragma link "dbadvle"

#pragma resource "*.dfm"

TGenerationPropertiesForm *GenerationPropertiesForm;

//---------------------------------------------------------------------------

__fastcall TGenerationPropertiesForm::TGenerationPropertiesForm(TComponent* Owner)

	: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::FormShow(TObject *Sender)

{

	TRegistry * registry = 0;

	try

	{

		registry = new TRegistry();

		registry->RootKey = HKEY_CURRENT_USER;

		// Create the key if it doesn't exist.

		registry->OpenKey( "Software\\ERG\\TxnTestManager", true );

		AnsiString	profile;

		AnsiString	securityServer;

		AnsiString	keyNumber;

		AnsiString	keyVersion;

		AnsiString	macAlgorithm;

		profile = registry->ReadString( "Profile" );

		if ( profile.IsEmpty() )

		{

			profile = "TDS";

		}

		securityServer = registry->ReadString( "SecurityServerPipe" );

		if ( securityServer.IsEmpty() )

		{

			securityServer = "CryptoServer";

		}

		keyNumber = registry->ReadString( "KeyNumber" );

		if ( keyNumber.IsEmpty() )

		{

			keyNumber = "5";

		}

		keyVersion = registry->ReadString( "KeyVersion" );

		if ( keyVersion.IsEmpty() )

		{

			keyVersion = "-2";

		}

		GenerationProfileComboBox->Text = profile;

		GenerationProfileComboBox->ItemIndex = -1;

		int index = 0;

		for ( index = 0; index < GenerationProfileComboBox->Items->Count; ++index )

		{

			if ( GenerationProfileComboBox->Items->Strings[ index ] == profile )

			{

				GenerationProfileComboBox->ItemIndex = index;

				break;

			}

		}

		SecurityServerPipeEdit->Text = securityServer;

		KeyNumberEdit->Text = keyNumber;

		macAlgorithm = registry->ReadString( "MacAlgorithm" );

		if ( macAlgorithm.IsEmpty() )

		{

			macAlgorithm = "MAC";

		}

		for ( index = 0; index < MacAlgorithmComboBox->Items->Count; ++index )

		{

			if ( MacAlgorithmComboBox->Items->Strings[ index ] == macAlgorithm )

			{

				MacAlgorithmComboBox->ItemIndex = index;

				break;

			}

		}

		readProfile( *registry, profile );

	}

	__finally

	{

		delete registry;

	}

}

//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::OKClick(TObject *Sender)

{

    TRegistry * registry = 0;

    try

    {

		registry = new TRegistry();

        registry->RootKey = HKEY_CURRENT_USER;

		// Create the key if it doesn't exist.

		registry->OpenKey( "Software\\ERG\\TxnTestManager", true );

		registry->WriteString( "Profile", GenerationProfileComboBox->Text );

		registry->WriteString( "SecurityServerPipe", SecurityServerPipeEdit->Text );

		registry->WriteString( "KeyNumber", KeyNumberEdit->Text );

		registry->WriteString( "MacAlgorithm", MacAlgorithmComboBox->Text );

		if ( registry->OpenKey( GenerationProfileComboBox->Text, true ) )

		{

			registry->WriteString( "Folder", GenerationFolderDirectoryEdit->Text );

			registry->WriteBool( "GenerateHeaders", GenerateHeadersCheckBox->Checked );

			registry->WriteString( "DrainFilePrefix", DrainFilePrefixEdit->Text );

			registry->WriteString( "DrainFileSuffix", DrainFileSuffixEdit->Text );

			registry->WriteBool( "BuildManifest", BuildManifestCheckBox->Checked );

			registry->WriteString( "ManifestPrefix", ManifestPrefixEdit->Text );

			registry->WriteString( "ManifestSuffix", ManifestSuffixEdit->Text );

			registry->WriteString( "PathmapTarget", PathmapTargetEdit->Text );

		}

	}

	__finally

	{

		delete registry;

	}

}

//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::GenerationProfileComboBoxChange(

	  TObject *Sender)

{

	TRegistry * registry = 0;

	try

	{

		registry = new TRegistry();

		registry->RootKey = HKEY_CURRENT_USER;

		// Create the key if it doesn't exist.

		registry->OpenKey( "Software\\ERG\\TxnTestManager", true );

		readProfile( *registry, GenerationProfileComboBox->Text );

	}

	__finally

	{

		delete registry;

	}

}

//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::readProfile( TRegistry & registry, const AnsiString & profile )

{

	if ( registry.OpenKey( profile, true ) )

	{

		AnsiString	folder;

		bool		generateHeaders		= true;

		AnsiString	drainFilePrefix;

		AnsiString	drainFileSuffix		= ".devud";

		bool		buildManifest		= true;

		AnsiString	manifestPrefix		= "udMan";

		AnsiString	manifestSuffix		= ".txt";

		AnsiString	pathmapTarget		= "/afc/ergdce/var/DCE/ud/drained";

		folder = registry.ReadString( "Folder" );

		try

		{

			generateHeaders = registry.ReadBool( "GenerateHeaders" );

		}

		catch ( ... )

		{

			generateHeaders = true;

		}

		drainFilePrefix = registry.ReadString( "DrainFilePrefix" );

		drainFileSuffix = registry.ReadString( "DrainFileSuffix" );

		if ( drainFileSuffix.IsEmpty() )

		{

			drainFileSuffix = ".devud";

		}

		try

		{

			buildManifest = registry.ReadBool( "BuildManifest" );

		}

		catch ( ... )

		{

			buildManifest = false;

		}

		manifestPrefix = registry.ReadString( "ManifestPrefix" );

		if ( manifestPrefix.IsEmpty() )

		{

			manifestPrefix = "udMan";

		}

		manifestSuffix = registry.ReadString( "ManifestSuffix" );

		if ( manifestSuffix.IsEmpty() )

		{

			manifestSuffix = ".txt";

		}

		pathmapTarget = registry.ReadString( "PathmapTarget" );

		if ( pathmapTarget.IsEmpty() )

		{

			pathmapTarget = "/afc/ergdce/var/DCE/ud/drained";

		}

		GenerationFolderDirectoryEdit->Text = folder;

		GenerateHeadersCheckBox->Checked = generateHeaders;

		DrainFilePrefixEdit->Text = drainFilePrefix;

		DrainFileSuffixEdit->Text = drainFileSuffix;

		BuildManifestCheckBox->Checked = buildManifest;

		ManifestPrefixEdit->Text = manifestPrefix;

		ManifestSuffixEdit->Text = manifestSuffix;

		PathmapTargetEdit->Text = pathmapTarget;

		ManifestPrefixEdit->Enabled = BuildManifestCheckBox->Checked;

		ManifestSuffixEdit->Enabled = BuildManifestCheckBox->Checked;

		PathmapTargetEdit->Enabled = BuildManifestCheckBox->Checked;

	}

}

//---------------------------------------------------------------------------

void __fastcall TGenerationPropertiesForm::BuildManifestCheckBoxClick(

	  TObject *Sender)

{

	ManifestPrefixEdit->Enabled = BuildManifestCheckBox->Checked;

	ManifestSuffixEdit->Enabled = BuildManifestCheckBox->Checked;

	PathmapTargetEdit->Enabled = BuildManifestCheckBox->Checked;

}

//---------------------------------------------------------------------------