После того, как библиотека подключена, для работы с ней необходимо кликнуть по ней левой кнопкой мыши двойным щелчком. Откроется окно, на котором можно выбрать способ загрузки данных и параметры построения (рис. 22).
Рисунок 22 — Окно библиотеки Редуктор.
По умолчанию выбран автоматический способ загрузки данных. В этом случае данные для построения берутся из временного файла C: Results. tmp, который создается при работе программы редуктор, когда все расчеты закончены. Ниже приведен фрагмент кода, отвечающий за создание временного файла данных:
f := TFileStream. Create ('c:Results.tmp', fmCreate);
f.Write (Results, SizeOf (Results));
f.Free;
end;
В этом файле содержатся данные, полученные в результате работы модуля программы CalculateUnit. В этом модуле переменные, необходимые для построения редуктора (например, диаметры валов, межосевое расстояние передачи и пр.), имеют пользовательский тип TResults = record, что позволяет без проблем записывать и перезаписывать их значения в ходе работы программы.
Данные из файла Results используются BuilderUnit-ами — модулями, в которых описывается процесс построения редукторов, а сам процесс чтения файла является частью модуля CalcUnit2, в котором определяется тип редуктора исходя из данных, полученных в результате чтения файла данных Results.tmp. Ниже приведен фрагмент кода, отвечающий за чтение файла Results. tmp:
if FileExists ('c:Results.tmp') then
begin
f := TFileStream. Create ('c:Results.tmp', fmOpenRead);
f.Read (Results, SizeOf (Results));
f.Free;
Если же по какой-то причине (например, администратором запрещено добавление файлов на диск С:) файл Results. tmp не может быть прочитан, следует выбрать ручной способ загрузки данных.
При этом кнопка станет активной. После того, как данные загружены, для начала построения нужно нажать на кнопку «Начать построение» (рис. 23).
Рисунок 23 — Готовая к работе программа.
При нажатии на кнопку «Начать расчет» программа построит три вида чертежа рассчитываемого редуктора (рисунок 24).
Рисунок 24 — Результат работы программы.