Поняття про Component Objects Model

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

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

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

*- Інакше потрібно просто створити об'єкт серверу.

.IF PCOUNT () = 2 AND;

TYPE("tcDocumentFileName")="с" AND ;

FILE(tcDocumentFileName)

ON ERROR loCOMInstance = .NULL.

loCOMInstance=GetObject(tcDocumentFileName,

tcCOMServerClass)

ON ERROR &lcOldError

ELSE

*- В цьому випадку не було передано ім'я файлу

*- з яким повинен працювати сервер.

ON ERROR loCOMInstance = .NULL.

loCOMInstance = GetObject(, tcCOMServerClass)

ON ERROR &lc01dError

IF ISNULL(loCOMInstance)

loCOMInstance = CreateObject(tcCOMServerClass)

ON ERROR blcOldError

ENDIF

ENDIF

RETURN loCOMInstance

Для чого можна використовувати СОМ-сервер

В розділах 20 і 21 обговорювалася можливість використовування в програмі на Visual FoxPro засобів COM-серверу, як який виступали деякі додатки з комплекту Microsoft Office. Але врахуйте, це тільки початок нашого оповідання про можливості вживання ідей моделі СОМ до Visual FoxPro. За допомогою засобів Visual FoxPro можна створювати не тільки СОМ-клієнти, але і СОМ-сервери.