|
Программная система состоит из двух приложений. Программа «Клиент» (client.exe) и программа-сервер server.exe.
Если первое главное приложение не запущено, то сервер выдаст ошибку и не запустится. Лучше запускать сервер через программу-клиент.
С программной системой следует работать следующим образом:
• Запускаем приложение «Клиент» (client.exe);
• Запускаем сервер кнопкой «Запустить сервер»;
• Если хоти, чтобы передаваемые команды отображались на экране сервера, то ставим галочку напротив «Отображать командную строку»;
• Можем передать команду UPCASE (кнопка «Передать команду ВСЕ ЗАГЛАВНЫЕ»);
• Можем передать команду LOWCASE (кнопка «Передать команду ВСЕ ПРОПИСНЫЕ»);
• Можем передать команду NORMALCASE (кнопка «Передать команду ВСЕ ОБЫЧНЫЕ»);
• Вводим строку данных в элемент ввода и нажимаем кнопку «Передать строку»;
• Во время выполнения операций консольное серверное приложение выводить на экран некоторую информацию: переданные строки отформатированные согласно переданных команд и сами команды, если стоит галочка напротив «Отображать командную строку».
• Сервер закрывается нажатием кнопки «Завершить сервер» либо завершением работы приложения «Клиент» либо нажатием в самом приложении-сервере комбинации клавиш CTRL+C или CTRL+BREAK.
Описание функций приложений
Приложение «Клиент»
Ниже приведен исходный код модуля Unit1 с комментариями
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
CheckBox1: TCheckBox;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
|
На уровень вверх
Купить