Оглавление

ОГЛАВЛЕНИЕ 1

РАБОТА С ПРИЛОЖЕНИЯМИ 2

ОПИСАНИЕ ФУНКЦИЙ ПРИЛОЖЕНИЙ 3

ПРИЛОЖЕНИЕ «КЛИЕНТ» 3

ПРИЛОЖЕНИЕ SERVER 7

ЗАКЛЮЧЕНИЕ 10

Программная система состоит из двух приложений. Программа «Клиент» (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;

Заключение

Была создана программная система из двух приложений, активно взаимодействующих одно с другим, клиента и сервера.

В их работе были использованы доступа к разделяемой памяти (filemapping-объекты) с использованием синхронизации, предоставляемой средствами ОС Windows (через event-объекты).

Программа-сервер является консольным приложением. Она запускается из программы клиента с использованием Win32API функции createprocess. Через командную строку передаются некоторые параметры, необходимые для корректной совместной работы приложений. Сервер закрывается также из программы-клиента с помощью Win32API функции terminateprocess.

Средствами ОС Windows можно легко создать корректно и быстро работающую клиент-серверную систему.

Программная система реализована в среде Borland Delphi 6. Рассчитана на работу в ОС Windows 9x/Me.

Примечаний нет.