<<
>>

VCL-совместимые классы

Для поддержки библиотеки компонент VCL, реализованной в Delphi Pascal, были реализованы VCL-совместимые классы. Так же как и в Delphi Pascal, они наследуются от класса TObject. Для описания таких классов в базовую объектную модель C++ были добавлены следующие средства:

- возможность объявления опубликованных и OLE-совместимых секций

в классе (__ published,_____ automated);

- группа специальных модификаторов (____ declspec);

- обеспечение совместимости по типам данных и параметров;

- совместимые средства обработки исключений.

Определение VCL-совместимого класса. На VCL-совместимые классы накладываются следующие ограничения:

1) при их объявлении не разрешается использовать множественное наследование (в том числе и виртуальные базовые классы);

2) объекты VCL-совместимых классов должны создаваться динамически с использованием оператора new, а уничтожаться delete;

3) эти классы обязательно должны иметь деструктор;

4) для таких классов компилятор автоматически не создает копирующего конструктора и не переопределяет оператор присваивания.

Определение VCL-совместимого класса в C++ Builder выглядит следующим образом:

class :

{ private:

protected: «защищенные элементы класса>

public:

__ published:

__ automated: «элементы, реализующие ОЬЕ-механизм>

};

По сравнению со стандартной моделью C++ при объявлении VCL- совместимого класса можно объявлять секции published и automated в соответствии с моделью, используемой Pascal Delphi.

Секция____ published (см. раздел 5.1) используется для свойств, которые

доступны через Инспектор объектов, если соответствующий класс включен в Палитру компонент. В остальном опубликованные свойства идентичны общедоступным. Единственное отличие опубликованных элементов от общедоступных заключается в том, что для опубликованных элементов дополнительно генерируется RTTI информация (информация о типе времени выполнения), которая позволяет приложению динамически запрашивать элементы данных, методы и свойства ранее неизвестных типов.

Опубликованные свойства могут определяться только в классе, наследуемом от TObject.

В секции опубликованных элементов не разрешается объявлять конструкторы и деструкторы. Там допустимо описывать свойства, элементы, наследуемые от объявленных в VCL (методы и указатели на них). Причем описываемые поля должны быть объектными, а свойства - простыми (не свойствами-массивами и не индексными свойствами) типов: порядковые, вещественные, строки, множества, объекты или указатели на методы.

Секция____ automated используется для описания элементов, реали

зующих OLE-механизм.

Описатель___ declspec. Он используется в C++ Builder для вызова

макроопределений поддержки VCL, описанных в sysdefs.h. Аргументы этого описателя рассмотрены ниже.

_ declspec(delphiclass) - используется для описания классов, производных от TObject (пример 6.6).

_ declspec(delphireturn) - предназначен для описания классов, созданных в C++Builder для под держки встроенных типов Delphi Pascal, которые не имеют аналогов в C++, таких как Currency, AnsiString, Variant, TDateTime, Set, и используется только VCL. Посредством этого объявления классы помечаются как VCL-совместимые при использовании в качестве параметров и возвращаемых значений функций VCL. Этот модификатор необходим, когда некая структура «по значению» передается между Delphi Pascal и C++.

_ declspec(dynamic) - используется только для объявления динамических функций (см. раздел 5.2) в классах, наследуемых от TObject.

Пример 6.6. Статические, виртуальные и динамические полиморфные методы. В классе class 1 объявляются статический statfunc(), виртуальный virtfimcO и динамический dinfuncQ полиморфные методы. Класс class2 перекрывает эти методы своими.

Описание классов выполнено в файле Object.h:

class___ declspec(delphiclass) class 1: public TObject

{ public:

char* polyfuncO; virtual char* virtfuncQ;

__ declspec(dynamic) char* dynjunc();

};

class declspec(delphiclass) class2 : public class 1

{public:

char* polyfuncO; char* virtfunc(); char* dynfuncQ;

};

Тела функций описаны в файле Object.cpp:

Mnclude "Object.h"

char* classl::polyfimcQ{return "статический 1 ";} char* classl::virtfimcQ{return "виртуальный 1";} char*classlr.dynfuncO {return "динамический 1";} char* class2::polyfuncO{return "статический 2";} char* class2::virtfunc0{return "виртуальный 2";} char* class2::dynfunc0 {return "динамический 2";}

Затем создается динамический объект типа class2 и его адрес присваивается указателю на базовый класс:

class2 * Class2 = new class2; class 1 * Class 1 = Class2;

Теперь при обращении к каждой из трех функций будут получены следующие результаты:

Edit->Text=Classl->polyfitncO; //статический 1 (!!!) Edit->Text=Class2->polyfuncQ; // статический 2 Edit->Text=Classl->virtfuncQ; И виртуальный 2 Edit->Text=Class2->virtfunc(); // виртуальный 2 Edit->Text=Classl->dynfunc(); //динамический2 Edit->Text=Class2->dynfuncQ; // динамический 2

Как и ожидалось, по указателю на базовый класс при раннем связывании (статический полиморфный метод) вызывается функция базового класса.

Во всех остальных случаях вызов осуществлялся верно.

__ declspec(hidesbase) - используется в C++, когда необходимо указать

компилятору, что данная виртуальная функция, несмотря на то же имя и тот же список параметров, образует новое семейство виртуальных функций. Необходимость такого описания вызвана тем, что в Delphi Pascal перекрывающие аспекты виртуальных функций описываются override, в то время как повторное использование описания virtual для функции с тем же именем соответствует объявлению нового семейства виртуальных функций. Для отображения этого случая в C++ и используется описатель hidesbase.

Так, если в классе Т1 описана виртуальная функция func без аргументов, а в классе Т2 необходимо описать функцию с тем же именем и также без аргументов, которая никак не связана с fimc, то эта функция описывается HIDESBASE:

virtual void Tl: :func(void);

HIDESBASE void T2::func(void);

При отсутствии специального описателя функция T2::func() будет интерпретироваться как аспект виртуальной функции Tl::func().

__ declspec(package) - указывает, что код определения класса должен

компилироваться в пакет. Пакет представляет собой DLL специального вида, используемую приложениями C++ Builder.

__ declspec(pascalimplementation) - указывает, что код, определяющий

класс, был реализован в Delphi Pascal. Этот описатель используется в заголовочных файлах с расширением .hpp, описывающих макросы совместимости с библиотекой VCL.

__ declspec (dllimport) - применяется для описания прототипов функций

DLL.

Для статического добавления DLL к приложению C++Builder необходимо в файле проекта .Ьрг приложения внести имя импортируемой библиотеки в список библиотек, ассоциированный с переменной ALLLIB. При необходимости путь к этой библиотеке указывается в списке L опции

_ declspec(dllimport)

();

Для динамической загрузки DLL во время работы приложения используется функция Windows API LoadLibrary() и функция GetProcAddressO - для получения адреса конкретной функции.

Совместимость по типам данных. В связи с тем, что некоторые типы по-разному определены в Delphi Pascal и C++, возможно появление трудноуловимых ошибок, вызванных различием в определении типов.

Булевы типы. Значение «истина» для типов Delphi Pascal ByteBool, WordBool, и LongBool представляется минус единицей, «ложь» - нулем. Значения для типа Boolean остались традиционными «истина» - единица, а «ложь» - ноль. C++ правильно интерпретирует эти значения. Проблема возникает, если функция WinAPI или другая функция возвращает результат типа BOOL (в котором «истина» кодируется единицей). Сравнение результата с переменными указанных типов произойдет только, если оба сравниваемых значения равны 0. Вели необходимо выделить ситуации совпадения значений, то такое сравнение следует программировать как !А = !В:

Символьные типы. В C++ символьный тип - знаковый, а в Delphi Pascal - беззнаковый. Вероятность появления ошибок, вызванных этим различием, невелика.

Открытые массивы. Для обеспечения независимости процедур и функций с параметрами-массивами от размера этих массивов в Pascal используются «открытые массивы». В аналогичных случаях C++ передает адрес массива и значение последнего индекса (п-1).

Так, описанию

function Mean(Data: array of Double): Extended;

в C++ будет соответствовать описание

Extended _Jastcall Mean(const double * Data, const int DataJSize);

В последнем случае используется макрос АШ1АУ812Е, определенный в sysdefs.li.

Я Т ТI. Бе1рЫ Разса1 содержит конструкции, использующие МП (см. раздел 5.4). С++ВшШег предлагает в аналогичных случаях свои конструкции:

Метод TObject.ClassName, который возвращает строку, содержащую имя реального типа объекта независимо от типа используемой переменной, имеет аналог в C++ - name(). Остальные методы аналогов не имеют, но они описаны в TObject как общедоступные и потому могут вызываться напрямую (см.

раздел 5.4).

Обработка исключений VCL-совместимых классов. VCL- совместимые классы используют механизм обработки исключений Delphi Pascal. Стандартная обработка предполагает, как правило, вывод сообщений об ошибках.

C++ Builder включает классы для автоматической обработки таких исключительных ситуаций, как деление на нуль, ошибки операций с файлами, неверное преобразование типа и т.п. Все эти классы наследуются от класса Exception (см. раздел 5.8). Для перехвата этих исключений используется конструкция C++:

catch ( &)

Переменная, как это и принято в C++, используется для получения

значений полей класса и вызова его методов, например:

void__fastca.ll TForml::ThrowException(TObject *Sender)

{ try { throw Exception(“VCL component”); }

catch(const Exception &E)

{ ShowMessage(AnsiString(E.ClassName())+ E.Message);}

}

В данном примере генерируется исключение, которое тут же перехватывается и обрабатывается.

Наиболее часто используемые классы исключений перечислены в разделе

5.8.

При необходимости программист может создать собственный классисключение, например, наследуя его от одного из существующих.

Необходимо хорошо представлять себе различие между исключениями C++ и исключениями VCL:

1. Если при конструировании объекта возникает исключение, то в C++ деструкторы вызываются только для полей и базовых классов, которые были полностью сконструированы, а в VCL - в том числе и для объекта, при конструировании которого обнаружено исключение.

2. В C++ исключения могут перехватываться по ссылке, указателю или значению, а в VCL - только по ссылке или по значению. Попытки перехвата по значению приводят к синтаксической ошибке. Исключения от схем контроля или операционной системы, такие как EAccessViolation, могут перехватываться только по ссылке.

3. Для исключений, перехваченных по ссылке, нельзя повторно генерировать throw. Последнее связано с тем, что как только исключение операционной системы или VCL распознается как исключение C++, оно уже не может быть повторено в своем качестве из блока catch.

4. Программист не должен освобождать память объекта исключения VCL после обработки исключения.

5. Генерации исключений VCL выполняются «по значению».

Для обработки исключений операционной системы, таких как ошибки арифметики, переполнение стека, нарушение правил доступа и т.д., используется специальная предобработка и преобразование их к исключениям VCL. Т.е. VCL нормально обрабатывает эти исключения:

try{ char * р = 0;

*р = 0;}

catch (constEAccessViolation &е)

^обработка исключения^

В качестве примера разработки VCL-совместимого класса рассмотрим проектирование главного окна приложения.

Пример 6.7. Разработка VCL-совместимого класса для реализации главного окна приложения «Динамический массив». Главное окно приложения «Динамический массив» должно обеспечивать возможность тестирования всех предусмотренных над множеством операций (рис. 6.2).

В процессе визуального проектирования C++ Builder автоматически строит описание класса TMainForm, куда добавляются поля-указатели на визуальные компоненты и прототипы методов обработки событий, используемых программистом для реализации данного приложения. Это описание помещается в файл Main.h:

#include

^include

#include

#include

#,include

#,include class TMainForm : public TForm {

__ published: // опубликованные компоненты класса

TLabel *MaxSizeLabel; II метка Максимальный размер массива

TEdit *MaxSizeEdit; II редактор Максимальный размер массива

TBevel *Bevell; И рамка

TButton *ModijyButton; И кнопка Изменить

TButton *InsertButton; II кнопка Вставить

TButton *DeleteButton; И кнопка Удалить

TButton *DataButton; И кнопка Изменить данные

TButton *ExitButton; И кнопка Выход

TStringGrid *DataStringGrid; И таблица для отображения вектора TLabel *IndexLabel; И метка Индекс TLabel *ValueLabel; И метка Значение

Рис. 6.2. Главное окно приложения «Динамический массив»

TEdit *IndexEdit; II редактор индекса

TEdit *ValueEdit; И редактор значения

TLabel *CommentLabel; // метка Комментарий

void_ _fastcall ExitButtonClick(TObject Sender); I* обработчик события

"Нажатие на кнопку Выход" */

void_ Jastcall ModifyButtonClick(TObject *Sender); /* обработчик

события "Нажатие на кнопку Изменить" */ void_ Jastcall DataStringGridKeyPress(TObject *Sender, char &Key); /*

обработчик события "Ввод символа" */ void_ Jastcall InsertButtonClick(TObject *Sender); /* обработчик

события "Нажатие на кнопку Вставить" */ void_ Jastcall DeleteButtonClick(TObject *Sender); /* обработчик

события "Нажатие на кнопку Удалить" */ void_ Jastcall DataButtonClick(TObject *Sender); /* обработчик

события "Нажатие на кнопку Изменить данные" */ void_ Jastcall FormActivate(TObject *Sender); /* обработчик события

"Активация формы" */

private: И внутренние компоненты класса

public: // общедоступные компоненты класса

_ Jastcall TMainForm(TComponent* Owner); // конструктор _ Jastcall ~TMainFormQ; И деструктор

};

extern PACKAGE TMainForm *MainForm;

#endif

Тела обработчиков событий программируются в файле Main.cpp. Наиболее интересные фрагменты текста программы выделены (работа с множествами Delphi Pascal, обработка исключений различных типов, проверка кода нажатой клавиши, работа со строками AnsiString, динамическая проверка типа и т.п.):

#include ttpragma hdrstop Mnclude "Array.h"

#include "Main.h"

Upragma package(smartjnit)

Upragma resource "*.djm"

TMainForm *MainForm;

TMasByte* A;

_ Jastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner)

{ A=new TMasByte(lO);}

_ Jastcall TMainForm: :~TMainForm() { delete A;}

void _ Jastcall TMainForm::ExitButtonClick(TObject *Sender) { CloseO; }

void _ Jastcall TMainForm: :ModifyButtonClick(TObject *Sender)

{ short Ind; unsigned char Value; AnsiString Num("индекса");

TMsgDlgButtons Setl; Setl«mbOK; II объявить множество try {Ind=StrToInt(IndexEdit->Text); /* выполнить, контролируя

исключения */

Num= "элемента Value=StrToInt(ValueEdit->Text);

A->Modify(Ind, Value);

A->OutputMas(DataStringGrid,0,0); } catch (EConvertError&) /* перехватить исключение "Ошибка

преобразования" */

{AnsiString s= "Неверно введено значение MessageDlg(s+Num,mtInformation,Setl,0); } catch (char * Mes) /* перехватить исключения от операций над

динамическим массивом */

{MessageDlg(Mes,mtInformation,Setl,0); }

}

void _ Jastcall TMainForm::DataStringGridKeyPress(TObject *Sender,

char &Key)

{ if (Key=VK_RETURN) II если нажата клавиша Enter { Кеу=0;

try {A->InputMas(DataStringGrid,0,0);

TGridOptions Setl; II объявить множество

Setl-DataStringGrid->Options; Setl»goEditing»goAlwaysShowEditor»goTabs;

DataStringGrid-> Options =Set 1 ;

DataStringGrid->Enabled=false;

ModijyButton- >Enabled=true;

InsertButton->Enabled=true;

DeleteButton->Enabled=true;

DataButton-> Enabled-true;

IndexEdit->SetFocusO;

DataStringGrid->Col=0;

CommentLabel->Visible=false; } catch (char* Mes)

{ TMsgDlgButtons Set2; II объявить множество

Set2«mbOK;

MessageDlg(Mes,mtInformation,Set2,0); }

}

}

void _ Jastcall TMainForm::InsertButtonClick(TObject *Sender)

{ short Ind; unsigned char Value;

AnsiString Иит("индекса");

TMsgDlgButtons Setl;

Setl«mbOK;

try {Ind=StrToInt(IndexEdit->Text); /* выполнить, контролируя

исключния */

Num="элемента ";

Value=StrToInt(ValueEdit->Text);

A->Insert(Ind, Value);

A->OutputMas(DataStringGrid, 0,0); }

catch (EConvertError&) /* перехватить исключение "Ошибка

преобразования" */

{AnsiString s="Неверно введено значение MessageDlg(s+Num,mtInformation,Setl, 0); }

catch (char * Mes) /* перехватить исключения от операций над

динамическим массивом */

{MessageDlg(Mes,mtInformation,Setl,0); }

}

void _ Jastcall TMainForm::DeleteButtonClick(TObject *Sender)

{ short Ind; TMsgDlgButtons Setl;

Setl «mbOK;

try {Ind=StrToInt(IndexEdit->Text);

A-> Delete (Ind);

A->OutputMas(DataStringGrid,0,0); } catch (EConvertError&)

{ MessageDlg("Неверно введено значение индекса", mtlnformation, Set 1,0);

}

catch (char * Mes)

{ MessageDlg(Mes, mtlnformation,Setl, 0); }

}

void _ Jastcall TMainForm::DataButtonClick(TObject *Sender)

{ FormActivate(DataButton);} void Jastcall TMainForm::FormActivate(TObject *Sender)

{ CommentLabel->Visible=true;

if (dynamic_cast(Sender)) И если отправитель - кнопка, то {for (int i=0;iCells[i][OJ="";

TGridOptions Setl; Set 1 =DataStringGrid->Options;

Setl«goEditing«goAlwaysShowEditor«goTabs; DataStringGrid->Options=Setl;

DataStringGrid->Enabled=true;

DataStringGrid->Col=0; DataStringGrid->SetFocus(); delete A; A=new TMasByte(lO); /* пересоздать вектор */ }

6.4.

<< | >>
Источник: Г.С.Иванова, Т.Н.Ничушкина, Е.К.Пугачев. Объектно- ориентированное программирование. 2001

Еще по теме VCL-совместимые классы:

  1. СОВМЕСТИМОСТЬ ГРУППОВАЯ
  2. СОВМЕСТИМОСТЬ МЕЖЛИЧНОСТНАЯ
  3. психологическая совместимость
  4. СОВМЕСТИМОСТЬ СЕКСУАЛЬНАЯ
  5. СОВМЕСТИМОСТЬ
  6. СОВМЕСТИМОСТЬ ПО СИЛЕ СТРОК
  7. СОВМЕСТИМОСТЬ ПСИХОЛОГИЧЕСКАЯ
  8. Школьный класс
  9. Одиночки в классе
  10. ПЕРВЫЙ КЛАСС
  11. ПЯТЫЙ КЛАСС
  12. 6.3. Женщина высшего класса
  13. 5. Критическая теория и рабочий класс.
  14. Глава 13. INTJ «Компетентность + независимость = высший класс»
  15. Масса, демократия и рабочий класс
  16. СРАВНИТЕЛЬНАЯ СИСТЕМА КЛАССОВ
  17. ПОТЕНЦИАЛЬНЫЕ ВОЗМОЖНОСТИ ШКОЛЬНОГО КЛАССА КАК ГРУППЫ