unit DConnectInfo;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, RSecuClient,
  Tocsg.Controls;

type
  TDlgConnectInfo = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edIp: TEdit;
    edPort: TEdit;
    edEmpNo: TEdit;
    btnOk: TButton;
    btnCancel: TButton;
    chAutoConn: TCheckBox;
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
    Client_: TRSecuClient;
    MgCtrls_: TManagerInputControlsData;
  public
    { Public declarations }
    Constructor Create(aOwner: TComponent; aClient: TRSecuClient);
    Destructor Destroy; override;
  end;

var
  DlgConnectInfo: TDlgConnectInfo;

implementation

uses
  Tocsg.Path, Tocsg.Network;

{$R *.dfm}

Constructor TDlgConnectInfo.Create(aOwner: TComponent; aClient: TRSecuClient);
begin
  Inherited Create(aOwner);
  Client_ := aClient;
  MgCtrls_ := TManagerInputControlsData.Create(CutFileExt(GetRunExePath) + '.ini');
  MgCtrls_.RegInputCtrl(edIp);
  MgCtrls_.RegInputCtrl(edPort);
  MgCtrls_.RegInputCtrl(edEmpNo);
  MgCtrls_.RegInputCtrl(chAutoConn);
  MgCtrls_.Load;
end;

Destructor TDlgConnectInfo.Destroy;
begin
  FreeAndNil(MgCtrls_);
  Inherited;
end;

procedure TDlgConnectInfo.btnOkClick(Sender: TObject);
var
  nPort: Integer;
begin
  edIp.Text := Trim(edIp.Text);
  edPort.Text := Trim(edPort.Text);
  edEmpNo.Text := Trim(edEmpNo.Text);

  if edIp.Text = '' then
  begin
    MessageBox(Handle, PChar('IP ÁÖ¼Ò¸¦ ÀÔ·ÂÇØ ÁֽʽÿÀ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edIp.SetFocus;
    exit;
  end;

  if not IsValidIP(edIp.Text) then
  begin
    MessageBox(Handle, PChar('À¯È¿ÇÏÁö ¾ÊÀº IP ÁÖ¼Ò ÀÔ´Ï´Ù.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edIp.SetFocus;
    exit;
  end;

  nPort := StrToIntDef(edPort.Text, -1);
  if nPort = -1 then
  begin
    MessageBox(Handle, PChar('Æ÷Æ®¸¦ ÀÔ·ÂÇØ ÁֽʽÿÀ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
  end;

  if edEmpNo.Text = '' then
  begin
    MessageBox(Handle, PChar('»ç¹øÀ» ÀÔ·ÂÇØ ÁֽʽÿÀ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edEmpNo.SetFocus;
    exit;
  end;
  MgCtrls_.Save;

  Client_.EmpNo := edEmpNo.Text;
  if Client_.Connect(edIp.Text, nPort) then
    ModalResult := mrOk
  else
    MessageBox(Handle, PChar('¼­¹ö Á¢¼Ó¿¡ ½ÇÆÐÇß½À´Ï´Ù.'+#13+#10+'Á¢¼Ó Á¤º¸¸¦ È®ÀÎ ÈÄ ´Ù½Ã ½ÃµµÇØ ÁֽʽÿÀ.'), PChar(Caption), MB_ICONWARNING or MB_OK);
end;

end.