Page 58 - 4260

2. У редакторі коду заносимо в неї код DLL. Підпрограми ті
ж, модулі Complex завдання 1. Секція begin…end –
порожня.
3. Збережемо DLL з іменем Complex2.Pas.
4. Компілюємо DLL. Підсумок Complex2.dll.
5. Т о м у щ о DLL н е е к с п о р т у є т и п і в , т о с т в о р ю є м о
допоміжний модуль Complex1, що містить тільки
інтерфейсову частину описо типу Tcomplex імен
викликуваних підпрограм DLL. Зберігаємо його під іменем
Complex1.
6. Командо Файл => Створити => Додаток створюємо
проект програми. Форму робимо аналогічної завданню 1.
7. У коді модуля форми програми додаємо:
§ У рядок uses посилання на модуль Complex1.
§ У р о з д і л var з м і н н і a, b, c, d т и п у real, Comp1, Comp2,
Comp3 типу Tcomplex.
8. Створюємо оброблювачі натискання кнопок.
9. Зберігаємо проект під унікальним іменем.

Лістинг DLL Complex2

library Complex2;
// Комплексна арифметика
uses Sysutils, Classes;

{$R *.RES}

type
Tcomplex = record
// Тип комплексного числа
Re, Im: real
end;

function Cadd(x,y:Tcomplex):Tcomplex; export; // Комплекс додавання

58