VPF::Проблемы при использовании интерфейсов

Aleks26

Дата 9.4.2012, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 12.3.2010

Репутация: нет
Всего: нет

Я смотрел в разных источниках примеры по использованию интерфейсов. Из книги Сухарева я взял приведенный там пример:

Код


unit unUsingInterfaces;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;


Type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;


 Interface1 = Interface
  procedure Int1Method;
 end;

 Interface2 = Interface
  Function Int2Method: Integer;
 end;

 InterfacedClass = Class(TObject, Interface1, Interface2)
  procedure Int1Method;
  Function Int2Method: Integer; virtual; abstract;
 end;


implementation

procedure InterfacedClass.Int1Method;
begin
 ShowMessage('Выполнен метод первого интерфейса.');
end;

Procedure UseInterface;

var
 Int: Interface1;
 IntClass: InterfacedClass;

begin
 IntClass := InterfacedClass.Create;
 Int := IntClass;
 Int.Int1Method;
 IntClass.Free;
end;

end.

Когда я запустил компиляцию, я получил ошибки, где говорится о undeclared identifier с именами функций из IInterface: _AddRef, _Release и QueryInterface. Но ведь не указывая явно родительский интерфейс, интерфейс IInterface подразумевается автоматически? В чем моя ошибка? smile

Чучмек

Дата 9.4.2012, 17:49 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Вот именно, подразумевается, а TObject не реализует _AddRef, _Release и QueryInterface.
Поэтому либо пиши реализацию этих методов в своем InterfacedClass самостоятельно, либо используй TInterfacedObject

--------------------

умную мысль держи при себе, а дурной - поделись с другими

kami

Дата 9.4.2012, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Цитата(Aleks26 @ 9.4.2012, 17:06

)

интерфейс IInterface подразумевается автоматически?

Он-то подразумевается, но ведь интерфейсы "имеют" только заголовки методов, а не их реализацию. Вот и получается, что Delphi знает, что у класса, реализующего интерфейс Iunknown и /или IInterface должны быть методы _AddRef и т.д., а их нет. Вот и вылезает ошибка.

Вместо Tobject поставь TInterfacedObject.

Aleks26

Дата 9.4.2012, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 12.3.2010

Репутация: нет
Всего: нет

Большое спасибо. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »