ра. FConnecting: Boolean; Прапор, який визначає чи йде зараз процес з'єднання. FRequestType: TRequestType; Поле, що б тип посланого на сервер запиту. FLogedIn: Boolean; Поле, що увійшов користувач в систему тестування (чи була реєстрація на сервері). FRootDir: String; Поточна директорія, та в якій знаходиться поточний тестовий файл. FUName, FUSurname, FUGroup: String; Поля, використовувані для зберігання імені, прізвища та імені групи поточного тестованого користувача. p align="justify"> Таблиця 6 - Основні методи класу форми TfrmMain
МетодНазначеніеprocedure CSocketError (Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); Обробник події помилки сокета клієнта. Використовується для визначення неможливості з'єднатися і продовження спроб зробити це в методі TryToConnect. procedure CSocketRead (Sender: TObject; Socket: TCustomWinSocket); Обробник події отримання сокетом клієнта відповідей сервера на його запити. procedure TimerTimer (Sender: TObject); Оброблювач цокання таймера. Використовується для посилки оновлення свого стану клієнтом на сервер. procedure CSocketConnect (Sender: TObject; Socket: TCustomWinSocket); Обробник події встановлення клієнтом з'єднання. procedure CSocketDisconnect (Sender: TObject; Socket: TCustomWinSocket); Обробник події від'єднання. procedure LOG (S: String); Метод, використовуваний для ведення логу, як параметр передається інформаційна рядок. procedure Draw (Question: TQuestion); Метод, який отримує на вході дані про поточний питанні Question. Завантажує дані питання з файлів у відповідні компоненти і розташовує їх в потрібних позиціях на екрані. procedure DrawFinal; Метод, який здійснює висновок результату на форму після закінчення тестування та збереження результату тестування в журнал сервера. procedure Answer (v: Integer); Виробляє підсвічування вибраного варіанту відповіді v, передачу відповіді в об'єкт Test і автоматичний перехід до наступного питання. procedure GoBack; Метод, який реалізує перехід класу форми до попереднього питання. procedure GoNext; Метод, який реалізує перехід класу форми до наступного питання. procedure InitClientSocket; Метод, не започатковано сокет клієнта. procedure DeInitClientSocket; Метод, деактивує сокет клієнта. procedure TryToConnect; Метод, який намагається встановити з'єднання з сервером. procedure SendLogIn (Name, SurName, Group: String); Метод, який посилає на сервер запит входу в систему, в якості параметрів передаються ім'я, прізвище та назву групи користувача відповідно. procedure SendLogOut (Name, SurName, Group: String); Метод, який посилає на сервер запит виходу, в якості параметрів передаються ім'я, прізвище та назву групи користувача відповідно. procedure SendUpdate (Name, SurName, Group: String); Метод, який посилає на сервер запит поновлення часу існування запису в списку тестованих користувачів, в якості параметрів передаються ім'я, прізвище...
