Создание клиента СОМ

FileàNewàApplication. Сохраним сразу новый проект в «Мои документы» в папке «Client». FileàSave All.

На форме разместим два компонента TEdit и одну кнопку TButton. При нажатии на кнопку программа клиент установит связь с сервером, отправит 2 переменные и получит значение их суммы.

Для соединения c сервером СОМ у нашей программы клиента должно быть описание самого объекта и его интерфейсов (Project2_TLB.pas). Скопируем файл Project2_TLB.pas из папки «COM object» в папку «Client».Теперь необходимо прописать этот файл в проекте клиента. На вкладке «Project2» в разделе «uses» добавим строку: Project2_TLB in 'Project2_TLB.pas';

Теперь клиент знает о наличии соответствующего интерфейса.

Чтобы программа могла использовать СОМ сервер на вкладке «Unit1» в списке подключаемых модулей надо указать модуль Project2_TLB.

Опишем в разделе public 2 переменные «Bik1» и «Bik2».

Последний шаг - написание обработчика щелчка по кнопке.

Создаётся со-класс, описывающий общий интерфейс.

Вызывается нужный интерфейс с помощью стандартного метода QueryInterface.

Вычисляем сумму введённых значений путём прямого обращения к методу GetSum интерфейса, хранящегося в COM объекте bik2.

Сохраним проект ещё раз: FileàSave All и скомпилируем программу (F9).Можно запустить много копий программы и каждая из них окажется работоспособной, т.к. каждая из них содержит свою копию объекта СОМ, выполняющегося в отдельном адресном пространстве.

Удаление сервера СОМ

Откройте проект СОМ сервера в «Мои документы» в папке «COM object». FileàOpen Project.

Теперь удалим его из списка зарегистрированных СОМ объектов. RunàUnregister ActiveX Server.