Changeset 2 for trunk/ULoaderForm.pas

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)
• ULoaderForm.pas (modified) (7 diffs)

trunk

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

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

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