Files
UnrealEngineUWP/Engine/Extras/ThirdPartyNotUE/DeltaCopy/Source/NewProfile.cpp
Matthew Griffin f180dff107 Copying //UE4/Release-Staging-4.12 to //UE4/Dev-Main
#lockdown Nick.Penwarden

(Will update with full description tomorrow)

[CL 2984534 by Matthew Griffin in Main branch]
2016-05-19 19:35:35 -04:00

113 lines
3.7 KiB
C++

/*
Copyright (C) Synametrics Technologies, Inc 2005
This program 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.
This program 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 this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "NewProfile.h"
#include "RSync.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmAddProfile *frmAddProfile;
//---------------------------------------------------------------------------
__fastcall TfrmAddProfile::TfrmAddProfile(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
bool TfrmAddProfile::DoModal(TProfile* aProfile, int& addSchedule){
if(ShowModal() == mrOk){
aProfile->SetProfileName(txtProfileName->Text);
aProfile->SetServerIP(txtServer->Text);
aProfile->SetModuleName(cmbModules->Text);
if(chkAddSchedule->Checked){
addSchedule = 1;
}
return true;
}
return false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmAddProfile::btnFetchModulesClick(TObject *Sender)
{
if(txtServer->Text.Trim().Length() == 0){
ShowMessage("Please provide a server name");
return;
}
TRsync rsync;
Screen->Cursor = crHourGlass;
int total = rsync.FetchModules(txtServer->Text, cmbModules->Items);
Screen->Cursor = crDefault;
if(total == -1){
ShowMessage("Unable to fetch directory names. " + rsync.GetLastError());
}else if(total > 0){
cmbModules->ItemIndex = 0;
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmAddProfile::btnAddProfileClick(TObject *Sender)
{
if(txtProfileName->Text == ""){
ShowMessage("You must specify a profile name. This is an arbitrary value used to identify this profile");
return;
}
if(txtServer->Text == ""){
ShowMessage("You must specify the server name. This is the host name or IP address of the the machine running rsycn server.");
return;
}
if(cmbModules->Text == ""){
ShowMessage("You must specify the virutal directory. Click on the button next to the combo box to fetch available directory names.");
return;
}
ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TfrmAddProfile::btnTestClick(TObject *Sender)
{
if(txtServer->Text.Trim().Length() == 0){
ShowMessage("Please provide a server name");
return;
}
TRsync rsync;
Screen->Cursor = crHourGlass;
TStringList* list = new TStringList();
int total = rsync.FetchModules(txtServer->Text, list);
Screen->Cursor = crDefault;
if(total == -1){
ShowMessage("Unable to establish connection. " + rsync.GetLastError());
}else if(total > 0){
ShowMessage("Connection successfull");
}
delete list;
}
//---------------------------------------------------------------------------