Поняття про Component Objects ModelПоняття про Component Objects Model, Детальна інформація

*- Програма..: GETCOMINSTANCE.PRG

*- Версія.....: 1.0

*- Автор......: Menachem Bazian, CPA

*- Дата.......: August 23, 1998

*- Проект.....: Using Visual FoxPro 6 Special Edition

*- Copyright (з) 1998 Menachem Bazian, CPA, All Rights Reserved.

*- Компілятор.: Visual FoxPro 06.00.8141.00 for Windows

*- Опис...:

*- Зміни..:

*- Універсальна процедура запуску сом-серверу.

-------------------------------------------------

LPARAMETERS tcCOMServerClass, tcDocumentFileName

*- Параметр tcCOMServerClass - ім'я класу СОМ-серверу

*- об'єкт якого необхідно створити.

*- Наприклад "excel.application".

*- Перевіримо, чи переданий перший параметр.

ASSERT TYPE(“tcCOMServerClass") = "С";

MESSAGE "You must provide а character parameter to

GETCOMINSTANCE. "

IF PCOUNT () = 0 OR TYPE ("tcCOMServerClass") # "c"

RETURN .NULL.

ENDIF

*- Раз ми сюди дійшли, значить параметр переданий правильно

*- і можна спробувати створити об'єкт COM-серверу.

*- Спробуємо це зробити за допомогою GETObject ()

LOCAL loCOMInstance, lcOldError

lcOldError = ON("ERROR")

*- Перевіримо, чи переданий другий параметр.

*- Якщо параметр - ім'я файлу - переданий, то потрібно сформувати

*- посилання на цей файл.