|
|
Регистрация | << Правила форума >> | 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. |