Уважаемые господа
Хочу написать 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'
Объясните, пожалуйста, что не так с декларированием?
Заранее спасибо.