|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
COM Декларирование функций (пример из учебника Есенина))
Уважаемые господа
Хочу написать COM Server. Использую для этого пример из учебника Есенина DirectX и Delphi (стр. 20-27) Почти в самом начале есть строки: Код:
type TSimpleObject = class(TTypedComObject, ISimpleConfigurator, ISimpleDrawing) private FCanvas: TCanvas; FHandle: THandle; FObjectSize: integer; FBorderColor, FFillColor: integer; protected function SetObjectSize(ObjectSize: Integer): HResult; stdcall; function SetColors(BorderColor, FillColor: Integer): HResult; stdcall; function SetWindow(Handle: Integer): HResult; stdcall; При компиляции в окне выводятся ошибки: [Error] UnitMain.pas(29): Declaration of 'SetWindow' differs from declaration in interface 'ISimpleConfigurator' [Error] UnitMain.pas(29): Declaration of 'SetColors' differs from declaration in interface 'ISimpleConfigurator' [Error] UnitMain.pas(29): Declaration of 'SetObjectSize' differs from declaration in interface 'ISimpleConfigurator' Объясните, пожалуйста, что не так с декларированием? Заранее спасибо. Последний раз редактировалось Admin, 08.07.2012 в 22:38. |
#2
|
||||
|
||||
Смотри исходники где используются интерфейсы ISimpleConfigurator, ISimpleDrawing и смотри как там декларированы эти функции.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 08.07.2012 в 05:47. |
#3
|
|||
|
|||
Спасибо. Я разобрался. В учебнике не было написано о том, что как правильно декларироваться данные функции в Type Library, а для новичка это не очевидно.
|