Changeset 2 for trunk

Timestamp:

Jul 31, 2009, 3:04:35 PM (15 years ago)

Author:

george

Message:

• Added: Test telnet connection with custom class TRouterOS.

Location:

trunk

Files:

• . (modified) (1 prop)
• OpenWinBox.dpr (modified) (2 diffs)
• ULoaderForm.dfm (modified) (9 diffs)
• ULoaderForm.pas (modified) (7 diffs)
• UMainForm.dfm (added)
• UMainForm.pas (added)
• URouterOS.pas (added)

trunk

@@ -2 +2 @@
 OpenWinBox.dsk
 *.dcu
+*.~dsk

@@ -2 +2 @@
 OpenWinBox.dsk
 *.dcu
+*.~dsk

trunk/OpenWinBox.dpr

@@ -7 +7 @@
   UApplicationInfo in 'UApplicationInfo.pas',
   URegistry in 'URegistry.pas',
-  UHostAddressList in 'UHostAddressList.pas';
+  UHostAddressList in 'UHostAddressList.pas',
+  URouterOS in 'URouterOS.pas',
+  UMainForm in 'UMainForm.pas' {MainForm};
 
 {$R *.res}
@@ -15 +17 @@
   ReportMemoryLeaksOnShutdown := DebugHook <> 0;
   {$WARN SYMBOL_PLATFORM ON}
+  
   Application.Initialize;
+  Application.ShowMainForm := False;
   Application.Title := 'OpenWinBox';
   Application.CreateForm(TLoaderForm, LoaderForm);
+  Application.CreateForm(TMainForm, MainForm);
   Application.Run;
 end.

trunk/ULoaderForm.dfm

@@ -58 +58 @@
     TabOrder = 0
     Text = 'Edit1'
-    ExplicitWidth = 159
   end
   object Edit2: TEdit
@@ -68 +67 @@
     TabOrder = 1
     Text = 'Edit2'
-    ExplicitWidth = 159
   end
   object ButtonConnect: TButton
@@ -79 +77 @@
     Default = True
     TabOrder = 2
-    ExplicitLeft = 254
+    OnClick = ButtonConnectClick
   end
   object CheckBox1: TCheckBox
@@ -113 +111 @@
     TabOrder = 6
     Text = 'Edit4'
-    ExplicitWidth = 159
   end
   object Edit3: TEdit
@@ -124 +121 @@
     TabOrder = 7
     Text = 'Edit3'
-    ExplicitWidth = 159
   end
   object ListView1: TListView
@@ -152 +148 @@
     OnData = ListView1Data
     OnSelectItem = ListView1SelectItem
-    ExplicitWidth = 329
-    ExplicitHeight = 86
   end
   object ButtonSave: TButton
@@ -164 +158 @@
     TabOrder = 9
     OnClick = ButtonSaveClick
-    ExplicitLeft = 253
   end
   object ButtonRemove: TButton
@@ -176 +169 @@
     TabOrder = 10
     OnClick = ButtonRemoveClick
-    ExplicitLeft = 254
   end
   object ButtonTools: TButton
@@ -187 +179 @@
     TabOrder = 11
     OnClick = ButtonToolsClick
-    ExplicitLeft = 253
   end
   object PopupMenu1: TPopupMenu

trunk/ULoaderForm.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ComCtrls, StdCtrls, Menus, UHostAddressList;
+  Dialogs, ComCtrls, StdCtrls, Menus, UHostAddressList, IdTelnet,
+  tlntsend, ssl_openssl, ssl_openssl_lib, ssl_cryptlib;
 
 type
@@ -44 +45 @@
     procedure ImportAddresses1Click(Sender: TObject);
     procedure RemoveAllAddresses1Click(Sender: TObject);
+    procedure ButtonConnectClick(Sender: TObject);
   private
     HostAddressList: THostAddressList;
@@ -62 +64 @@
 
 uses
-  UApplicationInfo, URegistry, Registry;
+  UApplicationInfo, URegistry, Registry, IdTCPClient, IdTCPConnection,
+  UMainForm;
 
 {$R *.dfm}
@@ -112 +115 @@
   PopupPoint := ClientToScreen(PopupPoint);
   PopupMenu1.Popup(PopupPoint.X, PopupPoint.Y);
+end;
+
+procedure TLoaderForm.ButtonConnectClick(Sender: TObject);
+begin
+  MainForm.Show;
+  MainForm.RouterOS.Connect(Edit1.Text, Edit2.Text, Edit3.Text);
+  Hide;
 end;
 
@@ -201 +211 @@
 
 procedure TLoaderForm.LoadFromRegistry;
-var
-  I: Integer;
-  NewHostAddress: THostAddress;
 begin
   with TRegistryEx.Create do try
@@ -209 +216 @@
     OpenKey(RegistryKey, True);
     CheckBox3.Checked := ReadBoolWithDefault('LoadPreviousSession', True);
+    CheckBox2.Checked := ReadBoolWithDefault('SecureMode', True);
     CheckBox1.Checked := ReadBoolWithDefault('KeepPassword', False);
-    CheckBox2.Checked := ReadBoolWithDefault('SecureMode', True);
     if CheckBox3.Checked then begin
       Edit1.Text := ReadStringWithDefault('Address', '');
@@ -270 +277 @@
     if CheckBox1.Checked then WriteString('Password', Edit3.Text)
       else WriteString('Password', '');
-    WriteBool('SecureMethod', CheckBox2.Checked);
+    WriteBool('SecureMode', CheckBox2.Checked);
     WriteBool('LoadPreviouisSession', CheckBox3.Checked);
   finally

@@ -2 +2 @@
 OpenWinBox.dsk
 *.dcu
+*.~dsk