2.9. Зовнішній сервер автоматизації

2.9.1. Основні визначення

Зовнішній сервер автоматизації являє собою окремий застосунок (для виконання якого будується окремий процес), до складу якого включено СОМ-об’єкт автоматизації.

Для використання зовнішніх СОМ-серверів необхідна наявність механізму маршалінгу даних. З автоматизацією сумісні наступні типи даних: Smallint, Integer, Single, Double, Currency, TDateTime, WideString, IDispatch, SCODE, WordBool, OleVariant, IUnknown, Shortint. Delphi забезпечує також підтримку маршалінгу зображень, наборів рядків і шрифтів за допомогою спеціальних інтерфейсів IPicture, IStrings і IFont. Використання зовнішніх серверів автоматизації доцільно в тих випадках, коли сервер повинен працювати як автономний застосунок зі своїми власними правами. Віддалений доступ, тобто доступ від клієнта, який виконується на іншому комп'ютері, можливий тільки в разі використанням зовнішнього сервера автоматизації.

Угода про безпечне викликання. Всі методи сервера автоматизації повинні повертати значення типу HResult. Значення, що повертається, є індикатором нормального завершення методу, тобто успішного виконання запрограмованої в ньому операції. Інші дані користувача, отримані в результаті роботи функції, повертаються через її параметри методу з модифікатором out. Середовище Delphi бере на себе вирішення деяких складнощів роботи із СОМ. Як правило, визначення методу інтерфейсу автоматизації має такий вигляд:

function ім'я_методу(<список вхідних параметрів>; out <список вихідних параметрів>): HResult; stdcall;

Наприклад:

function Convert(Quantity: Double; InUnit: Integer; OutUnit: Integer; out Result Double): HResult; stdcall;

Дотримання угоди про безпеку виклику дозволяє при розробці програми користувача звертатися до методу так, ніби його оголошення виглядало в іншій спосіб, а саме:

function Convert(Quantity: Double; InUnit: Integer; OutUnit: Integer): Double; safecall;

Директива safecall на стороні сервера СОМ-застосунка примушує Delphi автоматично створити навколо всіх методів свого роду оболонку у вигляді конструкції try – except. Припустимо, наприклад, розроблювач включив у сервер автоматизації такий метод:

Function TМyServer.DoSometsing:integer;

Begin

Result := SomefunctionThatReturnInteger;

end;

При компіляції Delphi створить об'єктний код, такий, начебто текст програми виглядав наступним чином:

function TMyServer.DoSpmething(out Ret: Integer): HResult;

begin

try

Ret := SomeFunctionThatReturnInteger;

Result := S_OK;

except

Result := E_UNEXPECTED;

end;

end;

Іншими словами, Delphi бере на себе турботи про те, щоб при виникненні виключення в процесі виконання сервером деякої функції, його обробка була передана застосунку-клієнту через значення типу HResult.

На стороні клієнта директива safecall приводить до того, що програма аналізує значення, що повертається, щоб з'ясувати, чи виконаний її запит та генерує виключення, якщо з'ясовується, що отримано код помилки.

Зверніть увагу на те, що сервер автоматизації може і не мати інтерфейсу з користувачем. У нього може бути сховане головне вікно або воно може бути навіть відсутнім зовсім. Якщо виникне виключення, у сервера в такому випадку немає ніякого способу сповістити про нього кінцевого користувача. Сервер може міститися навіть на іншому комп'ютері, ніж той, на якому працює застосунок-клієнт. Зрозуміло, що в цьому випадку, якщо не буде задіяний описаний вище механізм повернення виключення клієнту, останній ніколи не довідається, чому його програма не працює.