Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
gfx	[ DIR ]	drwxrwxrwx
locale	[ DIR ]	drwxrwxrwx
.mad-root	0 B	-rw-rw-rw-
VersInfo.pas	42.97 KB	-rw-rw-rw-
default.po	32.22 KB	-rw-rw-rw-
ggexclude.cfg	227 B	-rw-rw-rw-
gnugettext.pas	114.84 KB	-rw-rw-rw-
ignore.po	7.28 KB	-rw-rw-rw-
sonar-project.properties	464 B	-rw-rw-rw-
uApache.pas	15.79 KB	-rw-rw-rw-
uBaseModule.pas	2.25 KB	-rw-rw-rw-
uConfig.dfm	14.81 KB	-rw-rw-rw-
uConfig.pas	4.43 KB	-rw-rw-rw-
uConfigUserDefined.dfm	14.73 KB	-rw-rw-rw-
uConfigUserDefined.pas	3.36 KB	-rw-rw-rw-
uExceptionDialog.dcu	32.71 KB	-rw-rw-rw-
uExceptionDialog.dfm	2.08 KB	-rw-rw-rw-
uExceptionDialog.pas	27.37 KB	-rw-rw-rw-
uFileZilla.pas	14.85 KB	-rw-rw-rw-
uGetWinVersionInfo.dcu	8.09 KB	-rw-rw-rw-
uGetWinVersionInfo.pas	11.13 KB	-rw-rw-rw-
uHelp.dfm	3.18 KB	-rw-rw-rw-
uHelp.pas	1.81 KB	-rw-rw-rw-
uJclSysInfo.pas	22.05 KB	-rw-rw-rw-
uLanguage.dfm	12.95 KB	-rw-rw-rw-
uLanguage.pas	2 KB	-rw-rw-rw-
uLogOptions.dfm	6.42 KB	-rw-rw-rw-
uLogOptions.pas	2.1 KB	-rw-rw-rw-
uMain.dfm	217.14 KB	-rw-rw-rw-
uMain.pas	39.26 KB	-rw-rw-rw-
uMercury.pas	11.42 KB	-rw-rw-rw-
uMySQL.pas	13.95 KB	-rw-rw-rw-
uNetstat.dfm	3.53 KB	-rw-rw-rw-
uNetstat.pas	7.95 KB	-rw-rw-rw-
uNetstatTable.pas	7.58 KB	-rw-rw-rw-
uProcesses.pas	6.25 KB	-rw-rw-rw-
uProcesses_new.pas	2.14 KB	-rw-rw-rw-
uServiceSettings.dfm	16.89 KB	-rw-rw-rw-
uServiceSettings.pas	8.26 KB	-rw-rw-rw-
uServices.pas	6.14 KB	-rw-rw-rw-
uTomcat.pas	15.9 KB	-rw-rw-rw-
uTools.pas	26.61 KB	-rw-rw-rw-
xampp_control3.dpr	2.21 KB	-rw-rw-rw-
xampp_control3.dproj	30.02 KB	-rw-rw-rw-
xampp_control3.dproj.local	38.45 KB	-rw-rw-rw-
xampp_control3.drc	78.46 KB	-rw-rw-rw-
xampp_control3.dres	37.08 KB	-rw-rw-rw-
xampp_control3.identcache	1.29 KB	-rw-rw-rw-
xampp_control3.stat	170 B	-rw-rw-rw-
xampp_control3Resource.rc	341 B	-rw-rw-rw-
xampp_control3_project.tvsconf...	72 B	-rw-rw-rw-

Code Editor : uServiceSettings.pas

unit uServiceSettings;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uTools, GnuGettext, Vcl.StdCtrls,
  Vcl.Buttons, Vcl.ComCtrls;

type
  TfServiceSettings = class(TForm)
    lMain: TLabel;
    bSave: TBitBtn;
    bCancel: TBitBtn;
    pcSettings: TPageControl;
    pApache: TTabSheet;
    pMySQL: TTabSheet;
    pFileZilla: TTabSheet;
    pMercury: TTabSheet;
    pTomcat: TTabSheet;
    gApache: TGroupBox;
    lApacheName: TLabel;
    lApacheMain: TLabel;
    lApacheSSL: TLabel;
    tApacheName: TEdit;
    tApacheMain: TEdit;
    tApacheSSL: TEdit;
    gMySQL: TGroupBox;
    lMySQLMain: TLabel;
    lMySQLName: TLabel;
    tMySQLMain: TEdit;
    tMySQLName: TEdit;
    gFileZilla: TGroupBox;
    lFileZillaMain: TLabel;
    lFileZillaName: TLabel;
    lFileZillaAdmin: TLabel;
    tFileZillaMain: TEdit;
    tFileZillaName: TEdit;
    tFileZillaAdmin: TEdit;
    gMercury: TGroupBox;
    lMercuryP1: TLabel;
    lMercuryP2: TLabel;
    lMercuryP3: TLabel;
    lMercuryP4: TLabel;
    lMercuryP5: TLabel;
    lMercuryP6: TLabel;
    lMercuryP7: TLabel;
    tMercuryP1: TEdit;
    tMercuryP2: TEdit;
    tMercuryP3: TEdit;
    tMercuryP4: TEdit;
    tMercuryP5: TEdit;
    tMercuryP6: TEdit;
    tMercuryP7: TEdit;
    gTomcat: TGroupBox;
    lTomcatMain: TLabel;
    lTomcatHTTP: TLabel;
    lTomcatAJP: TLabel;
    lTomcatName: TLabel;
    tTomcatMain: TEdit;
    tTomcatHTTP: TEdit;
    tTomcatAJP: TEdit;
    tTomcatName: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure bCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bSaveClick(Sender: TObject);
  private
    function ValidateName(Name: string): Boolean;
    function ValidatePort(Port: string): Boolean;
  public
    { Public declarations }
  end;

var
  fServiceSettings: TfServiceSettings;

implementation

{$R *.dfm}

function TfServiceSettings.ValidateName(Name: string): Boolean;
begin
  if (Trim(Name) <> '') and (Pos(' ', Name) = 0) and (Pos('"', Name) = 0) then
    Result := True
  else
    Result := False;
end;

function TfServiceSettings.ValidatePort(Port: string): Boolean;
var
  i: integer;
begin
  if (TryStrToInt(Port, i) = True) and (Trim(Port) <> '') then
    Result := True
  else
    Result := False;
end;

procedure TfServiceSettings.bCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TfServiceSettings.bSaveClick(Sender: TObject);
var
  error: boolean;
begin
  error := False;
  if ValidateName(tApacheName.Text) then
    Config.ServiceNames.Apache := tApacheName.Text
  else
  begin
    ShowMessage('Apache Name: "' + tApacheName.Text + '" is not a valid name.');
    error := True;
  end;
  if ValidatePort(tApacheMain.Text) then
    Config.ServicePorts.Apache := StrToInt(tApacheMain.Text)
  else
  begin
    ShowMessage('Apache Main: "' + tApacheMain.Text + '" is not a valid number.');
    error := True;
  end;
  if ValidatePort(tApacheSSL.Text) then
    Config.ServicePorts.ApacheSSL := StrToInt(tApacheSSL.Text)
  else
  begin
    ShowMessage('Apache SSL: "' + tApacheSSL.Text + '" is not a valid number.');
    error := True;
  end;

if ValidateName(tMySQLName.Text) then
    Config.ServiceNames.MySQL := tMySQLName.Text
  else
  begin
    ShowMessage('MySQL Name: "' + tMySQLName.Text + '" is not a valid name.');
    error := True;
  end;
  if ValidatePort(tMySQLMain.Text) then
    Config.ServicePorts.MySQL := StrToInt(tMySQLMain.Text)
  else
  begin
    ShowMessage('MySQL: "' + tMySQLMain.Text + '" is not a valid number.');
    error := True;
  end;

if ValidateName(tFileZillaName.Text) then
    Config.ServiceNames.FileZilla := tFileZillaName.Text
  else
  begin
    ShowMessage('FileZilla Name: "' + tFileZillaName.Text + '" is not a valid name.');
    error := True;
  end;
  if ValidatePort(tFileZillaMain.Text) then
    Config.ServicePorts.FileZilla := StrToInt(tFileZillaMain.Text)
  else
  begin
    ShowMessage('FileZilla Main: "' + tFileZillaMain.Text + '" is not a valid number.');
    error := True;
  end;
  if ValidatePort(tFileZillaAdmin.Text) then
    Config.ServicePorts.FileZillaAdmin := StrToInt(tFileZillaAdmin.Text)
  else
  begin
    ShowMessage('FileZilla Admin: "' + tFileZillaAdmin.Text + '" is not a valid number.');
    error := True;
  end;

if ValidatePort(tMercuryP1.Text) then
    Config.ServicePorts.Mercury1 := StrToInt(tMercuryP1.Text)
  else
  begin
    ShowMessage('Mercury1: "' + tMercuryP1.Text + '" is not a valid number.');
    error := True;
  end;
  if ValidatePort(tMercuryP2.Text) then
    Config.ServicePorts.Mercury2 := StrToInt(tMercuryP2.Text)
  else
  begin
    ShowMessage('Mercury2: "' + tMercuryP2.Text + '" is not a valid number.');
    error := True;
  end;
  if ValidatePort(tMercuryP3.Text) then
    Config.ServicePorts.Mercury3 := StrToInt(tMercuryP3.Text)
  else
  begin
    ShowMessage('Mercury3: "' + tMercuryP3.Text + '" is not a valid number.');
    error := True;
  end;
  if ValidatePort(tMercuryP4.Text) then
    Config.ServicePorts.Mercury4 := StrToInt(tMercuryP4.Text)
  else
  begin
    ShowMessage('Mercury4: "' + tMercuryP4.Text + '" is not a valid number.');
    error := True;
  end;
  if ValidatePort(tMercuryP5.Text) then
    Config.ServicePorts.Mercury5 := StrToInt(tMercuryP5.Text)
  else
  begin
    ShowMessage('Mercury5: "' + tMercuryP5.Text + '" is not a valid number.');
    error := True;
  end;
  if ValidatePort(tMercuryP6.Text) then
    Config.ServicePorts.Mercury6 := StrToInt(tMercuryP6.Text)
  else
  begin
    ShowMessage('Mercury6: "' + tMercuryP6.Text + '" is not a valid number.');
    error := True;
  end;
  if ValidatePort(tMercuryP7.Text) then
    Config.ServicePorts.Mercury7 := StrToInt(tMercuryP7.Text)
  else
  begin
    ShowMessage('Mercury7: "' + tMercuryP7.Text + '" is not a valid number.');
    error := True;
  end;

if ValidateName(tTomcatName.Text) then
    Config.ServiceNames.Tomcat := tTomcatName.Text
  else
  begin
    ShowMessage('Tomcat Name: "' + tTomcatName.Text + '" is not a valid name.');
    error := True;
  end;

if ValidatePort(tTomcatMain.Text) then
    Config.ServicePorts.Tomcat := StrToInt(tTomcatMain.Text)
  else
  begin
    ShowMessage('Tomcat: "' + tTomcatMain.Text + '" is not a valid number.');
    error := True;
  end;

if ValidatePort(tTomcatHTTP.Text) then
    Config.ServicePorts.TomcatHTTP := StrToInt(tTomcatHTTP.Text)
  else
  begin
    ShowMessage('Tomcat: "' + tTomcatHTTP.Text + '" is not a valid number.');
    error := True;
  end;

if ValidatePort(tTomcatAJP.Text) then
    Config.ServicePorts.TomcatAJP := StrToInt(tTomcatAJP.Text)
  else
  begin
    ShowMessage('Tomcat: "' + tTomcatAJP.Text + '" is not a valid number.');
    error := True;
  end;

if error = False then
  begin
    SaveSettings;
    Close;
  end;
end;

procedure TfServiceSettings.FormCreate(Sender: TObject);
begin
  TranslateComponent(Self);
end;

procedure TfServiceSettings.FormShow(Sender: TObject);
begin
  tApacheName.Text := Config.ServiceNames.Apache;
  tApacheMain.Text := IntToStr(Config.ServicePorts.Apache);
  tApacheSSL.Text := IntToStr(Config.ServicePorts.ApacheSSL);

tMySQLName.Text := Config.ServiceNames.MySQL;
  tMySQLMain.Text := IntToStr(Config.ServicePorts.MySQL);

tFileZillaName.Text := Config.ServiceNames.FileZilla;
  tFileZillaMain.Text := IntToStr(Config.ServicePorts.FileZilla);
  tFileZillaAdmin.Text := IntToStr(Config.ServicePorts.FileZillaAdmin);

tMercuryP1.Text := IntToStr(Config.ServicePorts.Mercury1);
  tMercuryP2.Text := IntToStr(Config.ServicePorts.Mercury2);
  tMercuryP3.Text := IntToStr(Config.ServicePorts.Mercury3);
  tMercuryP4.Text := IntToStr(Config.ServicePorts.Mercury4);
  tMercuryP5.Text := IntToStr(Config.ServicePorts.Mercury5);
  tMercuryP6.Text := IntToStr(Config.ServicePorts.Mercury6);
  tMercuryP7.Text := IntToStr(Config.ServicePorts.Mercury7);

tTomcatName.Text := Config.ServiceNames.Tomcat;
  tTomcatMain.Text := IntToStr(Config.ServicePorts.Tomcat);
  tTomcatHTTP.Text := IntToStr(Config.ServicePorts.TomcatHTTP);
  tTomcatAJP.Text := IntToStr(Config.ServicePorts.TomcatAJP);
end;

end.

${this.title}

Code Editor : uServiceSettings.pas