ння журналу. procedure miReopenClick (Sender: TObject); Обробник події натискання по пункту меню miReopen і кнопці spdReopen для запуску процесу повторного читання журналу. procedure spdServerWindowClick (Sender: TObject); Обробник події натискання по кнопці виклику серверного вікна. p align="justify"> Всі основні операції над даними журналу виробляються після виклику інших форм у обробниках подій натискання по кнопках панелі або вибору пунктів меню. Для здійснення цих операцій застосовується об'єкт класу TJounral, описаний в модулі Core. Він оголошений у розділі опису змінних модуля даної форми. p align="justify"> Клас даної форми реалізує базові функції по роботі з записами журналу.
3.2.3 Модуль uServer. pas форми сервера проекту програми iJournal
Даний модуль містить клас форми TfrmServer, основні поля якого відображені в таблиці 9, а методи в таблиці 10.
Таблиця 9 - Основні поля класу форми TfrmServer
ПоляНазначеніеsgLogedIn: TStringGrid; Таблиця, яка використовується для відображення записів "залогінених" (тестується на даний момент) користувачів. btnStartStop: TButton; Кнопки запуску-зупинки сервера. Timer: TTimer; Таймер. Використовується для оновлення списку тестованих на даний момент користувачів. SSocket: TServerSocket; Сокет сервера. memLog: TMemo; Багатостроковий редактор для відображення логу сервера. lbIP: TLabel; Мітка, що відображає IP адреса комп'ютера. LogedIn: TLIList; Компонент класу списку "залогінених" користувачів. p align="justify"> Таблиця 10 - Основні методи класу форми TfrmServer
МетодНазначеніеprocedure SSocketClientRead (Sender: TObject; Socket: TCustomWinSocket); Обробник події отримання даних від клієнтського сокета. procedure SSocketClientError (Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); Обробник події виникнення помилки при роботі з мережею. procedure btnStartStopClick (Sender: TObject); Обробник події натискання по кнопці остан. /Зап. сервера. procedure TimerTimer (Sender: TObject); Обробник події цокання таймера, використовується для контролю часу існування записів "залогінених" користувачів в списку тестованих користувачів. procedure RunRequest (S: String; var Answ: String); Метод, який виконує отриманий сервером від клієнта запит. Як параметр передається отриманий рядок запиту, повертає рядок відповіді на запит. procedure InitServerSocket; Метод ініціалізації сокета сервера. procedure UpdateData; Метод, відновлювальний список поточних (тестованих) користувачів в таблиці. procedure LOG (S: String); Процедура збереження рядка в лог-файл. p align="justify"> Дана форма реалізує роботу сервера системи тестування. Дозволяє запускати і зупиняти сервер, переглядати список поточних тестованих користувачів і лог роботи сервера. br/>
3.2.4 Модуль uMain. pas гол...
