VPF::Интерфейс из интерфейса - Форум программистов

dvamaster

Дата 6.7.2011, 07:15 (ссылка)

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

Загрузка ...

Опытный

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

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

не получает интерфейс через другой

реализация:

Код


  IIntLog = interface
    ['{1C16826C-231A-4D5C-80D8-9C1E8B63B2DE}']
    procedure Log(AStr: String);
    procedure Save;
  end;

  IExtLog = interface
    ['{B5C9F863-3B98-4666-8E1D-9637A03384BA}']
    procedure Log(AStr: String); stdcall;
    procedure Save; stdcall;
  end;

  TLog = class(TInterfacedObject, IIntLog, IExtLog)
  private
    FCS: RTL_CRITICAL_SECTION;
    FLog: TStringList;
  public
    constructor Create;
    destructor Destroy; override;
    { IIntLog }
    procedure IIntLog_Log(AStr: String);
    procedure IIntLog.Log = IIntLog_Log;
    procedure IIntLog_Save;
    procedure IIntLog.Save = IIntLog_Save;
    { IExtLog }
    procedure IExtLog_Log(AStr: String); stdcall;
    procedure IExtLog.Log = IExtLog_Log;
    procedure IExtLog_Save; stdcall;
    procedure IExtLog.Save = IExtLog_Save;
  end;

constructor TLog.Create;
begin
  inherited Create;
  InitializeCriticalSection(FCS);
  FLog := TStringList.Create
end;

destructor TLog.Destroy;
begin
  IIntLog_Save;
  FLog.Free;
  DeleteCriticalSection(FCS);
  inherited Destroy
end;

...

var
  lint: IIntLog;
  lext: IExtLog;
begin  
  lint := FLog;
  lext := lint as IExtLog; // говорит не знает интерфейс IExtLog
end;

Наверно нужно обработать QueryInterface

Это сообщение отредактировал(а) dvamaster - 6.7.2011, 07:17

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

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

dvamaster

Дата 6.7.2011, 07:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Проверил наличие интерфейсов в TLog, 2 штуки, guid`ы совпадают

Что за фигня?

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

dvamaster

Дата 6.7.2011, 09:23 (ссылка)

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

Загрузка ...

Опытный

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

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

В общем все заработало после ~ 5-го перезапуска IDE

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

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