Техническое задание. По сети/интернет

← →
Beglec © (2002-08-23 08:57) [0]

Техническое задание.
Исходные данные:
Программирование на Delphi 6.0.
Рабочие станции стоят на системе Windows XP – (обязательное условие, лицензионное соглашение)
Написана программа по учету компьютерного клуба.
Подведен Интернет.
На учет компьютерного времени выделен один компьютер «Файловый сервер», потому как многое еще другое учитывается.
Под Интернет выделен другой компьютер под системой Win2000, возможно в дальнейшем использование Unix. «Интернет-Сервер». В данный момент он служит как машрутизатор. То есть, все компьютеры выходят в Интернет через него, по сетевой карте. Что бы не писать свой прокси - сервер, так как операционная система может поменяться (есть требования провайдера) я решил так, что лучше будет если Интернет будет считать сам клиент. Распределяя учет среди клиентов.
Программа-сервер, написана на Delphi 6.0 и может модернизироваться (есть программный код, сам писал).
Программа-клиент, написана на Delphi 6.0 и может модернизироваться (есть программы код, сам писал)

Задача.
Каждую минуту сервер опрашивает клиентов и дает сигнал на то чтобы они дали ему информации о рабочем состоянии рабочей станции.
В Сигнал, который идет от «клиента до сервера»

TLiveComputer=record
ID : Word; {служебная информация}
Name : string[20]; {Имя компьютера на котором сидит клиент}
IDClient : integer; {идентификационный номер клиента в базе данных}
Status : byte; {Статус компьютера, Активен, профилактика, и т.д.}
end;

В этот же запрос нужно послать информацию,
Сколько человек накачал Кб Интернета за период от предыдущего запроса сервера.

Как я это себе представляю?
Допустим:

10.00 Активировался клиент Tick0:=Internet(now,80); - начальная точка учета.
10.01 Пришел запрос от сервера Tick0:=Internet(now,80)-Tick0; - Узнаем сколько скачено информации за период в одну минуту и отправляем на сервер.
10.02 Пришел запрос от сервера Tick0:=Internet(now,80)-Tick0; - Узнаем сколько скачено информации за период в одну минуту и отправляем на сервер.
И т.д.

Вот в общем то и все.
Функция Internet(Time: TDateTime; Port: integer): LongInt; возвращает количество байт прошедших через Port. на текущее время.

Оплата 500р.
За срочность 1000р.
В обратном письме укажите обратный адрес куда перечислить деньги или до востребования.
Оплата после получения кода, а также проверки его работоспособности

← →
Beglec © (2002-09-03 13:24) [1]

http://www.orion.tyumen.ru/sdfiles/netmon.rar

Здесь есть все.
За это отдельное спосибо Malder"у

Техническое задание. По сети/интернет Найти похожие ветки