Changeset 3 for trunk/MainWindow.pas

Timestamp:

Nov 27, 2008, 12:16:27 PM (15 years ago)

Author:

george

Message:

• Upraveno: Verze 1.2.

File:

• trunk/MainWindow.pas (modified) (19 diffs)

trunk/MainWindow.pas

@@ -7 +7 @@
   Dialogs, StdCtrls, ComCtrls, ShellApi, DosCommand, Registry, Menus,
   CoolTrayIcon, ExtCtrls, XPMan, magrascon, magrasedt, magrasent, SHFolder,
-  ShlObj, magrasapi, Winsock;
+  ShlObj, magrasapi, Winsock, UTextFileStream;
 
 const
@@ -14 +14 @@
   HomePage = 'http://www.zdechov.net/';
   Email = 'robie@centrum.cz';
-  Version = '1.1';
-  ReleaseDate = '24.8.2006';
+  Version = '1.2';
+  ReleaseDate = '4.9.2006';
   Creator = 'Chronosoft';
   RegistryRootKey = HKEY_LOCAL_MACHINE;
@@ -21 +21 @@
   ChangeLogFile = 'Novinky.txt';
   Licence = 'Copyleft';
+
+  DefaultLogFileName = 'DialLog.txt';
 
   BrowserHomepage = 'http://centrala.zdechov.net/';
@@ -62 +64 @@
     Timer2: TTimer;
     Label2: TLabel;
+    OpenDialog1: TOpenDialog;
+    GroupBox2: TGroupBox;
+    CheckBox10: TCheckBox;
+    Label3: TLabel;
+    Edit1: TEdit;
+    Button4: TButton;
     procedure FormShow(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -76 +84 @@
     procedure MagRasCon1StateChanged(Sender: TObject);
     procedure Timer2Timer(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
+    procedure CheckBox10Click(Sender: TObject);
   private
     Connecting: Boolean;
@@ -93 +103 @@
     function GetNetSharedFolder: Boolean;
     procedure SetNetSharedFolder(const Value: Boolean);
-    function GetDefaultGateway: string;
   public
     DefaultGateway: string;
+    LogFileName: string;
     FirstStart: Boolean;
     LastState: Word;
@@ -104 +114 @@
     ConnectionName: string;
     NetworkTestLastUpdate: TDateTime;
+    LogFileEnabled: Boolean;
     property LocalNetworkRouting: Boolean read GetLocalNetworkRouting
       write SetLocalNetworkRouting;
@@ -122 +133 @@
     procedure AddConnection;
     procedure DeleteConnection;
+    procedure DialLog(Message: string);
   end;
 
@@ -181 +193 @@
   Buffer : Pointer; var ParamError :DWord) : Longint; stdcall; external 'netapi32.dll';
 
+
 function CommonAppDataPath: string;
 const
@@ -190 +203 @@
   SHGetFolderPath(0, CSIDL_COMMON_APPDATA, 0, SHGFP_TYPE_CURRENT, @Path[0]);
   Result := Path;
+end;
+
+function ApplicationDataFolder: string;
+begin
+  Result := CommonAppDataPath + '\' + Creator + '\' + ApplicationName;
+  if not DirectoryExists(Result) then
+    ForceDirectories(Result);
 end;
 
@@ -290 +310 @@
   ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(ConnectionName);
 
+  CheckBox10.Checked := LogFileEnabled;
+  Edit1.Text := LogFileName;
+  Edit1.Enabled := LogFileEnabled;
+  Button4.Enabled := LogFileEnabled;
+
   Label2.Caption := 'Brána: ' + DefaultGateway;
 end;
@@ -309 +334 @@
   ZdechovNetConnection := CheckBox8.Checked;
   NetSharedFolder := CheckBox9.Checked;
+  LogFileEnabled := CheckBox10.Checked;
+  LogFileName := Edit1.Text;
 
   ConnectionName := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
   CoolTrayIcon1.HideMainForm;
-end;
-
-function TMainForm.GetDefaultGateway: string;
-var
-  Command: TDosCommand;
-  I: Integer;
-  Lines2: TStringList;
-begin
-  Lines2 := TStringList.Create;
-  Result := '';
-  Command := TDosCommand.Create(nil);
-  with Command do try
-    CommandLine := 'route print';
-    OutputLines := Lines2;
-    Execute2;
-    for I := 0 to Lines2.Count - 1 do
-      if Pos('choz', Lines2[I]) > 0 then
-        Result := Trim(Copy(Lines2[I], 15, 256));
-  finally
-    Free;
-    Lines2.Free;
-  end;
 end;
 
@@ -425 +430 @@
       if ValueExists('PingTimeout') then PingTimeout := ReadInteger('PingTimeout')
         else PingTimeout := 200;
+      if ValueExists('LogFileEnabled') then LogFileEnabled := ReadBool('LogFileEnabled')
+        else LogFileEnabled := False;
+      if ValueExists('LogFileName') then LogFileName := ReadString('LogFileName')
+        else LogFileName := ApplicationDataFolder + '\' + DefaultLogFileName;
     finally
       Free;
@@ -481 +490 @@
       MagRasCon1.DisconnectEx(DialHandle, 0, 3000, False);
 
-    DialingLog.Memo1.Lines.Add('');
-    DialingLog.Memo1.Lines.Add(DateTimeToStr(Now) + ': Vytáèím pøípojení');
+    if Assigned(DialingLog) then DialLog('');
+    if Assigned(DialingLog) then DialLog(DateTimeToStr(Now) + ': Vytáèím pøípojení');
         with MagRasCon1 do begin
       GetConnections;
@@ -491 +500 @@
               PhoneNumber :=    '';
             DialHandle := 0;
-        AutoConnectEx(DialHandle);
+        if AutoConnectEx(DialHandle) <> 0 then
+          if Assigned(DialingLog) then DialLog('Dialling Failed - ' + MagRasCon1.StatusStr);
       end;
     end;
@@ -516 +526 @@
       WriteString('NetworkTestLastUpdate', DateToStr(NetworkTestLastUpdate));
       WriteInteger('PingTimeout', PingTimeout);
+      WriteBool('LogFileEnabled', LogFileEnabled);
+      WriteString('LogFileName', LogFileName);
     finally
       Free;
@@ -541 +553 @@
     bRequireMSEncryptedPassword := False;
     bSoftwareCompression := True;
+    bCustom := True;
 
     // device stuff
@@ -655 +668 @@
   // see if new event, else display it
   LastState := MagRasCon1.ConnectState ;
-  DialingLog.Memo1.Lines.Add (Info + MagRasCon1.StatusStr
+  if Assigned(DialingLog) then DialLog(Info + MagRasCon1.StatusStr
     +   ' (' + IntToStr(LastState) + ')');
 
@@ -740 +753 @@
 end;
 
+procedure TMainForm.DialLog(Message: string);
+var
+  LogFile: TTextFileStream;
+begin
+  if Assigned(DialingLog) then DialingLog.Memo1.Lines.Add(Message);
+
+  if LogFileEnabled then
+  try
+    if FileExists(LogFileName) then LogFile := TTextFileStream.Create(LogFileName, fmOpenReadWrite)
+      else LogFile := TTextFileStream.Create(LogFileName, fmCreate);
+    LogFile.Seek(0, soFromEnd);
+    LogFile.WriteLn(Message);
+  finally
+    LogFile.Free;
+  end;
+end;
+
+procedure TMainForm.Button4Click(Sender: TObject);
+begin
+  OpenDialog1.FileName := Edit1.Text;
+  if OpenDialog1.Execute then begin
+    Edit1.Text := OpenDialog1.FileName;
+  end;
+end;
+
+procedure TMainForm.CheckBox10Click(Sender: TObject);
+begin
+  Edit1.Enabled := CheckBox10.Checked;
+  Button4.Enabled := CheckBox10.Checked;
+end;
+
 end.