Improvements: address book, settings window, file modified date and o…

…ther improvements, fixes
r57zone · Sep 18, 2023 · 8920764 · 8920764
1 parent f363fd4
commit 8920764
Show file tree

Hide file tree

Showing 15 changed files with 1,032 additions and 216 deletions.
diff --git a/README.RU.md b/README.RU.md
@@ -1,18 +1,17 @@
 [![EN](https://user-images.githubusercontent.com/9499881/33184537-7be87e86-d096-11e7-89bb-f3286f752bc6.png)](https://github.com/r57zone/ShareFiles/blob/master/README.md)
 [![RU](https://user-images.githubusercontent.com/9499881/27683795-5b0fbac6-5cd8-11e7-929c-057833e01fb1.png)](https://github.com/r57zone/ShareFiles/blob/master/README.RU.md) 
 # ShareFiles
-Приложение для обмена файлами в сети.
+Приложение для обмена файлами в локальной сети.
 
 ## Скриншоты
-![](https://user-images.githubusercontent.com/9499881/71770279-521aef80-2f44-11ea-84a7-fef649cb3207.PNG)
+![](https://github.com/r57zone/ShareFiles/assets/9499881/5a8ca270-9945-417c-8300-444ee5f9401b)
 
 ## Настройка
-Для отправки файлов необходимо запустить программу на двух компьютерах. На компьютере отправителя необходимо перенести нужные файлы или папку в интерфейс программы и ввести IP адрес, после чего начнется отправка файлов.<br><br>
-Для того, чтобы не вводить IP адрес можно запускать программу с параметром.<br>
-**Пример:**
->"C:\Program Files\ShareFiles\ShareFiles.exe" 192.168.0.2
+Для отправки файлов необходимо запустить программу на двух компьютерах. На компьютере отправителя необходимо перенести нужные файлы или папку, в интерфейс программы и выбрать компьютер, с добавленным IP адресом, после чего начнется отправка файлов.<br><br>
+Для того, чтобы не выбирать IP адрес можно запускать программу с параметром:<br>
+>"C:\Program Files\ShareFiles\ShareFiles.exe" -d 192.168.0.2
 
-Для того, чтобы программа при приеме файлов не спрашивала подтверждение необходимо добавить IP адрес отправляющей стороны в файл "Allow.txt".
+Для того, чтобы программа при приеме файлов не спрашивала подтверждение необходимо добавить IP адрес в настройках программы.
 
 ## Загрузка
 >Версия для Windows XP, 7, 8.1, 10.

diff --git a/README.md b/README.md
@@ -6,15 +6,14 @@
 Application for sharing files in lan.
 
 ## Screenshots
-![](https://user-images.githubusercontent.com/9499881/71770279-521aef80-2f44-11ea-84a7-fef649cb3207.PNG)
+![](https://github.com/r57zone/ShareFiles/assets/9499881/a8764b13-3477-4674-b849-0177993a9b65)
 
 ## Setup
-To send files, you must run the program on two computers. On the computer the sender you want to moved your files to program interface (drag and drop), and enter the IP address and then begin sending files.<br><br>
-In order not to enter the IP address, you can run the program with the parameter.<br>
-**Example:**
->"C:\Program Files\ShareFiles\ShareFiles.exe" 192.168.0.2
+To send files it is necessary to run the program on two computers. On the sender's computer it is necessary to send the required files or folder to the program interface and select the computer with the added IP address, after which the sending of files will start.<br><br>
+In order not to select an IP address, you can run the program with a parameter:<br>
+>"C:\Program Files\ShareFiles\ShareFiles.exe" -d 192.168.0.2
 
-In order to file an program at the reception did not ask confirmation, you must add the IP address of the sending party to file "Allow.txt".
+In order for the program not to ask for confirmation when receiving files, it is necessary to add IP address in the program settings.
 
 ## Download
 >Version for Windows XP, 7, 8.1, 10.

diff --git a/Source/Allow.txt b/Source/Allow.txt
diff --git a/Source/Languages/English.ini b/Source/Languages/English.ini
@@ -1,16 +1,38 @@
 [Main]
-ID_ENTER_IP=Enter IP address:
+ID_FILE=File
+ID_SETTINGS=Settings
+ID_EXIT=Exit
+ID_CONNECTIONS=Connections
+ID_SELECT=Select
+ID_ABORT=Abort
+ID_HELP=Help
+ID_ABOUT_TITLE=About...
+
 ID_CONNECT=Connect
 ID_ALLOW_CONNECTION=Allow connection
 ID_NOT_ALLOW_RECEIVE_FILES=User did not approve receiving files
 ID_FAIL_CONNECT=Failed to connect
 ID_CONNECTION_LOST=Connection lost
-ID_SEND_FILES=Sending files (%d of %d)
+ID_SEND_FILES=Files sent: %d of %d
 ID_SEND_FILES_ABORTED=File sending aborted
-ID_RECEIVE_FILES=Receiving files (%d of %d)
+ID_RECEIVE_FILES=Files received: %d of %d
 ID_SUCCESS_RECEIVED_FILES=All files successfully received
-ID_SUCCESS_SENDED_FILES=All files sent successfully
+ID_SUCCESS_SENT_FILES=All files sent successfully
+
+ID_NAME=Name
+ID_IP_ADDRESS=IP address
+ID_ENTER_NAME=Enter the title:
+ID_ENTER_IP=Enter IP address:
+ID_ADD=Add
+ID_EDIT=Edit
+ID_REMOVE=Remove
+ID_SELECT=Select
+ID_CANCEL=Cancel
+
+ID_SELECT_FOLDER=Select folder
+ID_FOLDER_RECEIVING_FILES=Folder for receiving files:
+ID_PORT=Port:
+ID_IPS_WITOUT_ASKING=Receive from the following IPs without asking:
+ID_OK=OK
 
-;About
-ID_ABOUT_TITLE=About...
 ID_LAST_UPDATE=Last update:
diff --git a/Source/Languages/Russian.ini b/Source/Languages/Russian.ini
@@ -1,16 +1,39 @@
 [Main]
-ID_ENTER_IP=Введите IP адрес:
+ID_FILE=Файл
+ID_SETTINGS=Настройки
+ID_EXIT=Выход
+ID_CONNECTIONS=Подключения
+ID_SELECT=Выбрать
+ID_ABORT=Прервать
+ID_HELP=Справка
+ID_ABOUT_TITLE=О программе...
+
 ID_CONNECT=Подключение
 ID_ALLOW_CONNECTION=Разрешить подключение
 ID_NOT_ALLOW_RECEIVE_FILES=Пользователь не одобрил получение файлов
 ID_FAIL_CONNECT=Не удалось подключиться
 ID_CONNECTION_LOST=Подключение потеряно
-ID_SEND_FILES=Отправка файлов (%d из %d)
+ID_SEND_FILES=Отправлено файлов: %d из %d
 ID_SEND_FILES_ABORTED=Отправка файлов прервана
-ID_RECEIVE_FILES=Получение файлов (%d из %d)
+ID_RECEIVE_FILES=Получено файлов: %d из %d
+ID_RECEIVE_FILES_ABORTED=Получение файлов прервано
 ID_SUCCESS_RECEIVED_FILES=Все файлы успешно получены
-ID_SUCCESS_SENDED_FILES=Все файлы успешно отправлены
+ID_SUCCESS_SENT_FILES=Все файлы успешно отправлены
+
+ID_NAME=Название
+ID_IP_ADDRESS=IP адрес
+ID_ENTER_NAME=Введите название:
+ID_ENTER_IP=Введите IP адрес:
+ID_ADD=Добавить
+ID_EDIT=Изменить
+ID_REMOVE=Удалить
+ID_SELECT=Выбрать
+ID_CANCEL=Отмена
+
+ID_SELECT_FOLDER=Выберите папку
+ID_FOLDER_RECEIVING_FILES=Folder for receiving files:
+ID_PORT=Порт:
+ID_IPS_WITOUT_ASKING=Принимать со следующих IP не спрашивая:
+ID_OK=ОК
 
-;About
-ID_ABOUT_TITLE=О программе...
 ID_LAST_UPDATE=Последнее обновление:
diff --git a/Source/Project1.dpr b/Source/Project1.dpr
@@ -2,12 +2,16 @@ program Project1;
 
 uses
   Forms,
-  Unit1 in 'Unit1.pas' {Main};
+  Unit1 in 'Unit1.pas' {Main},
+  Unit2 in 'Unit2.pas' {ConnectionsForm},
+  Unit3 in 'Unit3.pas' {SettingsForm};
 
 {$R *.res}
 
 begin
   Application.Initialize;
   Application.CreateForm(TMain, Main);
+  Application.CreateForm(TConnectionsForm, ConnectionsForm);
+  Application.CreateForm(TSettingsForm, SettingsForm);
   Application.Run;
 end.
diff --git a/Source/Setup.ini b/Source/Setup.ini
@@ -1,4 +1,5 @@
 [Main]
 Port=5371
-;Если поле пустое, то по умолчанию передача файлов идет на рабочий стол.
-Path=
+Path=
+AddressBook=PC 1=192.168.0.100;PC 2=192.168.0.101;
+IPsWithoutRequest=127.0.0.1;
diff --git a/Source/Unit1.dfm b/Source/Unit1.dfm
@@ -1,6 +1,6 @@
 object Main: TMain
-  Left = 192
-  Top = 124
+  Left = 186
+  Top = 126
   BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsSingle
   Caption = 'ShareFiles current'
@@ -12,11 +12,12 @@ object Main: TMain
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
+  Menu = MainMenu
   OldCreateOrder = False
   Position = poScreenCenter
   OnClose = FormClose
+  OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
-  OnKeyDown = FormKeyDown
   PixelsPerInch = 96
   TextHeight = 13
   object DragAndDropImage: TImage
@@ -115,30 +116,71 @@ object Main: TMain
     Height = 19
     Panels = <>
     SimplePanel = True
-    OnClick = StatusBarClick
   end
   object ClientSocket: TClientSocket
     Active = False
     ClientType = ctNonBlocking
     Port = 0
+    OnConnect = ClientSocketConnect
     OnDisconnect = ClientSocketDisconnect
     OnRead = ClientSocketRead
     OnError = ClientSocketError
-    Left = 40
+    Left = 232
     Top = 8
   end
   object ServerSocket: TServerSocket
     Active = False
     Port = 0
     ServerType = stNonBlocking
     OnClientConnect = ServerSocketClientConnect
+    OnClientDisconnect = ServerSocketClientDisconnect
     OnClientRead = ServerSocketClientRead
     OnClientError = ServerSocketClientError
-    Left = 72
+    Left = 264
     Top = 8
   end
   object XPManifest: TXPManifest
-    Left = 8
+    Left = 168
     Top = 8
   end
+  object MainMenu: TMainMenu
+    Left = 200
+    Top = 8
+    object FileBtn: TMenuItem
+      Caption = #1060#1072#1081#1083
+      object SettingsBtn: TMenuItem
+        Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080
+        OnClick = SettingsBtnClick
+      end
+      object Line: TMenuItem
+        Caption = '-'
+      end
+      object ExitBtn: TMenuItem
+        Caption = #1042#1099#1093#1086#1076
+        OnClick = ExitBtnClick
+      end
+    end
+    object ConsBtn: TMenuItem
+      Caption = #1055#1086#1076#1082#1083#1102#1095#1077#1085#1080#1103
+      object ConSelBtn: TMenuItem
+        Caption = #1042#1099#1073#1088#1072#1090#1100
+        OnClick = ConSelBtnClick
+      end
+      object Line2: TMenuItem
+        Caption = '-'
+      end
+      object AbortBtn: TMenuItem
+        Caption = #1055#1088#1077#1088#1074#1072#1090#1100
+        Enabled = False
+        OnClick = N5Click
+      end
+    end
+    object HelpBtn: TMenuItem
+      Caption = #1057#1087#1088#1072#1074#1082#1072
+      object AboutBtn: TMenuItem
+        Caption = #1054' '#1087#1088#1086#1075#1088#1072#1084#1084#1077'...'
+        OnClick = AboutBtnClick
+      end
+    end
+  end
 end