Листинг 1.5. Клиент, использующий сервер из листинга 1.4 для копирования файла

Листинг 1.4. Пример сервера

uses

header.pas;

var

m1, m2: TMessage; /* входящее и исходящее сообщения */

r: integer; /* код результата */

begin

while(TRUE) do /* сервер работает непрерывно */

begin

receive(FILE_SERVER, m1); /* блок ожидания сообщения */

case m1.opcode of /* в зависимости от типа запроса */

OP_CREATE: r:= do_create(m1, m2);

OP_READ: r:= do_read(m1, m2);

OP_WRITE: r:= do_write(m1, m2);

OP_DELETE: r:= do_delete(m1, m2);

else r:= E_BAD_OPER;

end;

m2.result:= r; /* вернуть результат клиенту */

send(m1.source, m2): /* послать ответ */

end

end.

uses

header.pas;

/* процедура копирования файла через сервер */

function copy(src: string, dst: string): integer;

var

m1: TMessage; /* буфер сообщения */

position: longint; /* текущая позиция в файле */

client: longint = 110; /* адрес клиента */

begin

initialize(); /* подготовиться к выполнению */

position:= 0;

repeat

m1.opcode:= OP_READ; /* операция чтения */

m1.offset:= position; /* текущая позиция в файле */

m1.count:= BUF_SIZE; /* сколько байт прочитать */

m1.name:= src; /* скопировать имя читаемого файла*/

send(FILESERVER, m1); /* послать сообщение на файловый сервер*/

receive(client, m1); /* блок ожидания ответа */

/* Записать полученные данные в файл-приемник. */

m1.opcode:= OP_WRITE; /* операция: запись */

m1.offset:= position; /* текущая позиция в файле */

m1.count:= m1.result; /* сколько байт записать */

ml.name:= dst); /* скопировать имя записываемого файла*/

send(FILE_SERVER, m1); /* послать сообщение на файловый сервер */

receive(client, m1); /* блок ожидания ответа */

position:= position + m1.result; /* в m1.result содержится количество записанных байтов */

until(m1.result <= 0); /* повторять до окончания */

/* вернуть ОК или код ошибки */

if(m1.result >= 0 then result:= OK else result:= m1.result);

end;

Разделение приложений по уровням

Модель клиент-сервер была предметом множества дебатов и споров. Один из главных вопросов состоял в том, как точно разделить клиента и сервера. Понят­но, что обычно четкого различия нет. Например, сервер распределенной базы данных может постоянно выступать клиентом, передающим запросы на различ­ные файловые серверы, отвечающие за реализацию таблиц этой базы данных. В этом случае сервер баз данных сам по себе не делает ничего, кроме обработки запросов.

Однако рассматривая множество приложений типа клиент-сервер, предна­значенных для организации доступа пользователей к базам данных, многие ре­комендовали разделять их на три уровня.

- уровень пользовательского интерфейса;

- уровень обработки;

- уровень данных.

Уровень пользовательского интерфейса содержит все необходимое для непо­средственного общения с пользователем, например, для управление дисплеем. Уровень обработки обычно содержит приложения, а уровень данных — собст­венно данные, с которыми происходит работа. В следующих пунктах мы обсу­дим каждый из этих уровней.

Дата добавления: 2014-01-13