source: trunk/UMainForm.pas

unit UMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdTelnet, URouterOS, ComCtrls;

type
  TMainForm = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure DoLineRecieve(Line: string);
    procedure DoConnectionStateChange(State: TConnectionState);
  public
    RouterOS: TRouterOS;
  end;

var
  MainForm: TMainForm;

implementation

uses IdTCPConnection, ULoaderForm;

{$R *.dfm}

{ TMainForm }

procedure TMainForm.Button1Click(Sender: TObject);
var
  Response: TStringList;
begin
  try
    Button1.Enabled := False;
    Response := RouterOS.Execute(Edit1.Text);
    Memo2.Lines.AddStrings(Response);
    Response.Free;
  finally
    Button1.Enabled := True;
  end;
end;

procedure TMainForm.DoConnectionStateChange(State: TConnectionState);
begin
  Button1.Enabled := State = csConnectedReady;
end;

procedure TMainForm.DoLineRecieve(Line: string);
begin
  Memo1.Lines.Add(RouterOS.StripControlCodes(Line));
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  LoaderForm.Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  RouterOS := TRouterOS.Create;
  RouterOS.OnLineReceive := DoLineRecieve;
  RouterOS.OnConnectionStateChange := DoConnectionStateChange;
  LoaderForm.Show;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  RouterOS.Free;
end;

end.