COM объекты. ЛБ 1_Com. Лабораторная работа 1 часть 1 взаимодействие с унаследованным программным кодом 1 реализация внутреннего сервера com в delphi 2

• Название: Лабораторная работа 1 часть 1 взаимодействие с унаследованным программным кодом 1 реализация внутреннего сервера com в delphi 2
• Анкор: COM объекты
• Дата: 28.05.2022
• Размер: 0.79 Mb.
• Имя файла: ЛБ 1_Com.doc
• Тип: Лабораторная работа; #554589
• страница: 2 из 13

1.2. ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ

Создайте COM-объект, имеющий два интерфейса, каждый интерфейс содержит два метода:

1. 
   Работа со строками. Введите предложение. Выполните подсчет гласных и согласных букв, количества слов и количества слов, начинающихся с гласных.
   
2. 
   Работа со строками. Введите предложение. Выполните подсчет букв и знаков препинания, количества слов и количества слов, начинающихся с больших английских букв.
   
3. 
   Работа со строками. Введите предложение. Замените все маленькие буквы на большие. Замените все большие буквы на маленькие. Переверните все предложение. Переверните каждое слово.
   
4. 
   Строки. Введите предложение и определите длину самой большой цепочки идущих подряд цифр и букв, а также удалите все лишние пробелы (между каждым словом только 1 пробел) и расставьте дополнительные пробелы таким образом, чтобы длина всей строки была равна 40 символов.
   
5. 
   Геометрия. По известному радиусу окружности найдите длину окружности, площадь круга, периметр и площадь квадрата, описанного около окружности.
   
6. 
   Геометрия. Даны катеты прямоугольного треугольника, найдите гипотенузу треугольника, периметр треугольника, площадь треугольника по формуле Герона и по известной стороне и высоте треугольника.
   
7. 
   Геометрия. Даны радиус и высота цилиндра. Найдите площадь цилиндра, объем цилиндра, площадь боковой поверхности и площадь основания.
   
8. 
   Геометрия. Даны стороны прямоугольного параллелепипеда. Найдите площадь поверхности и объем параллелепипеда, а также площадь одной грани и площадь боковой поверхности.
   
9. 
   Физика. Даны три сопротивления. Найдите сопротивление соединения для случаев, когда соединение параллельное и когда последовательное. А также, значение наибольшего и наименьшего сопротивлений.
   
10. 
    Математика. Введите число и определите, является ли оно простым, найдите НОД числа, определите является ли число степенью двух и степенью трех.
    
11. 
    Булева алгебра. Введите десятичное число и переведите его в двоичное, введите двоичное число и переведите его в десятичное. Выполните аналогичный перевод десятичного числа в шестнадцатеричное и шестнадцатеричного в десятичное.
    
12. 
    Булева алгебра. Введите двоичное число и выполните операции сложения, вычитания, умножения и деления. Результат выведите в двоичной форме.
    
13. 
    Булева алгебра. Введите шестнадцатеричное число и выполните операции сложения, вычитания, умножения и деления. Результат выведите в шестнадцатеричной форме.
    
14. 
    Булева алгебра. Введите восьмеричное число и выполните операции сложения, вычитания, умножения и деления. Результат выведите в восьмеричной форме.
    

ЛАБОРАТОРНАЯ РАБОТА №1 часть 2.

РАЗРАБОТКА и ИСПОЛЬЗОВАНИЕ ActiveX ФОРМ

Цель работы: Разработка компонента ActiveX на любом языке программирования и использование его в Windows Form C#

2.1. ПРИМЕР СОЗДАНИЯ КОМПОНЕНТА ActiveX В СРЕДЕ DELPHI

Создайте элемент ActiveX, в окне которого выводится движущаяся строка. Программа должна иметь возможность изменять скорость движения.

Разрабатываемая форма ActiveX изображена на рис.1.



Рисунок -1.

Для разработки приложения выполните следующие действия:

1. 
   Создайте приложение AxtiveX Form. Для этого выполните команду File New | Other и на странице ActiveX Депозитария выбе­рите пиктограмму ActiveX Form. Будет создан новый проект, который сохраните под каким-то именем, например, ActiveMoveX.
   
2. 
   Перенесите на форму компоненты, приведенные в таблице 1.
   

Таблица 1

Компоненты, размещаемые на форме

Компонент	Класс	Описание
Label1	TLabel	Метка «Бегущая строка»
Label2	TLabel	Метка «Интервал движения»
Edit1	TEdit	Окно вывода бегущей строки
Edit2	TEdit	Окно ввода интервала времени
Button1	TButton	Кнопка «Пуск»
Button2	TButton	Кнопка «Стор»
Timer1	TTimer	Таймер, отсчитывающий интервал вывода очередного символа (Страница System палитры компонентов)

3. 
   Определение глобальных переменных. В начале программного модуля Создайте блок VAR и определите две глобальные переменные: s – бегущая строка, I – номер очередного символа бегущей строки.
   

uses ComObj, ComServ;

{$R *.DFM}

{ TActiveMoveX }
VAR s: String;

i:Integer;

4. 
   Для события OnCreate форма запишите следующий программный код:
   

procedure TActiveMoveX.ActiveFormCreate(Sender: TObject);

begin

s:='Hello World!';

i:=1;

Timer1.Enabled:=False;

Edit1.Text:='';

end;

Данный код задает начальные условия.

5. 
   Для события OnClick кнопки «Пуск» запишите следующий программный код:
   

procedure TActiveMoveX.Button1Click(Sender: TObject);

begin

Timer1.Enabled:=False;

Edit1.Text:='';

s:='Hello World!';

i:=1;

Timer1.Interval:=StrToInt(Edit2.Text);

Timer1.Enabled:=True;

end;

Данный программный код запускает таймер

6. 
   Для события OnTimer таймера запишите следующий программный код:
   

procedure TActiveMoveX.Timer1Timer(Sender: TObject);

begin

If i<=Length(s) then Edit1.Text:=s[i]+Edit1.Text

else Edit1.Text:=' '+Edit1.Text;

i:=i+1;

end;

Данный программный код выводит на экран очередной символ бегущей строки.

7. 
   Для события OnClick кнопки «Стор» запишите следующий программный код:
   

procedure TActiveMoveX.Button2Click(Sender: TObject);

begin

Timer1.Enabled:=False;

end;

Данный программный код останавливает работу таймера

8. 
   Откомпилируйте разработанное приложение. Project | Build All Projects
   
9. 
   Зарегистрируйте созданную форму ActiveX. Run | Register ActiveX Server.
   
10. 
    Проверьте работу созданного приложения, вставив его в html-страницу (данный пункт задания выполнять не обязательно, можно перейти сразу в пункту 11). Для этого выполните следующие действия:
    
    1. 
       Запустите Microsoft FrontPage
       
    2. 
       Создайте новую страницу
       
    3. 
       Вставьте разработанную форму: Вставка | Веб компонент. В появившемся диалоговом окне выберите «Дополнительные элементы», «Элемент ActiveX» (см. рис.2.)
       

Рисунок -2.

4. 
   Нажмите кнопку «Далее». В появившемся диалоговом окне (рис.3.) выберите кнопку «Настройка».
   

Рисунок -3.

5. 
   В появившемся диалоговом окне выберите созданный вами компонент ActiveX. В данном случае ActiveMoveX Control (см. рис. 4)
   

Рисунок -4

6. 
   Проверьте работу созданного компонента.
   
7. 
   Добавьте к созданному компоненту возможность изменения цвета и размера выводимых символов. А также предоставьте пользователю возможность изменять выводимую строку.
   

11. 
    Используйте разработанный компонент ActiveX в приложении, написанном на C#. Для этого выполните следующие действия:
    
    1. 
       Создайте в среде C# проект Windows Forms;
       
    2. 
       Добавьте созданный элемент управления ActiveX в панель инструментов, чтобы его можно было использовать также как элементы управления Windows (см. рисунок 5);
       

Рисунок 5- Добавление элемента управления ActiveX в панель инструментов.

3. 
   В открывшемся диалоговом окне следует выбрать в категории COM-Components элемент управления ActiveMoveX Control (рисунок 6). В итоге на панели инструментов появится новая пиктограмма.
   

4. 
   Перетащить новую пиктограмму на поле визуального конструктора Windows Forms для создания сборки-оболочки для элемента управления ActiveX/
   

Рисунок 6 – Выбор элемента управления ActiveMoveX Control