Вынести guid интерфейса в константу?

[WhiskasTM]

С наступающим.

У меня фейсы в одной куче и повсюду эти синие строки, глаза просто режет. Перевел их на константы. Ну и не работает, после QueryInterface в out лежит nil. Заставить работать можно? Сам гуйд нужен, значение.

Там ещё предупреждение есть: W1025 Unsupported language feature: 'custom attribute'. И что такое 'custom attribute'?

const
  CLSID_DirectResources   : TGUID = '{463F1CE9-452C-4437-BD5D-075608A672ED}';
  CLSID_DirectResourcesEx : TGUID = '{C3E10FC8-078A-4730-97DF-E08A5733ECD4}';

type
  IDirectResources = interface(IAVX)
  [CLSID_DirectResources]
    procedure Test;
  end;

  IDirectResourcesEx = interface(IDirectResources)
  [CLSID_DirectResourcesEx]
    procedure Test;
  end;

type
  TDirectResources = class(TNonReferenceCountedInterfacedObject, IDirectResources)
    procedure Test;
  end;

  TDirectResourcesEx = class(TDirectResources, IDirectResourcesEx)
    procedure Test;
  end;

implementation

procedure TDirectResources.Test;
begin
ShowMessage('Worked');
end;

procedure TDirectResourcesEx.Test;
begin
ShowMessage('Extended Worked!');
end;


procedure Execute;
var
normal : IDirectResources;
dataex : IDirectResourcesEx;
begin
dataex := TDirectResourcesEx.Create;
dataex.QueryInterface(CLSID_DirectResources,normal);
dataex.Test;
normal.Test; //<- normal = nil 
end;

[Stilet]

Перевел их на константы.

А когда в коде были, работало?

[WhiskasTM]

Сообщение от Stilet

А когда в коде были, работало?

Да, вот так работает:

const
  CLSID_DirectResources   : TGUID = '{463F1CE9-452C-4437-BD5D-075608A672ED}';
  CLSID_DirectResourcesEx : TGUID = '{C3E10FC8-078A-4730-97DF-E08A5733ECD4}';

type
  IDirectResources = interface(IAVX)
  ['{463F1CE9-452C-4437-BD5D-075608A672ED}']
    procedure Test;
  end;

  IDirectResourcesEx = interface(IDirectResources)
  ['{C3E10FC8-078A-4730-97DF-E08A5733ECD4}']
    procedure Test;
  end;

var
normal : IDirectResources;
dataex : IDirectResourcesEx;
begin
dataex := TDirectResourcesEx.Create;
dataex.QueryInterface(CLSID_DirectResources,normal);
dataex.Test;
normal.Test;//<- 'Worked!'
end;

[evg_m]

type
  IDirectResourcesEx = interface(IDirectResources)
  ['{C3E10FC8-078A-4730-97DF-E08A5733ECD4}'] ///Эта строка ТОЖЕ ЕСТЬ объявление константы (точнее задание значения константы IDirectResourceEx)
Для использования именованного доступа (по IDirectResourceEx) в операциях приведения (получения) интерфейсов. GetInterface\QueryInterface\Supports\.... 
    procedure Test;
  end;

var
normal : IDirectResources;
dataex : IDirectResourcesEx;
begin
dataex := TDirectResourcesEx.Create;
dataex.QueryInterface(IDirectResourcesEx,normal); //

[Stilet]

Пе-е-еристый карась...
А я то думал что ты в QueryInterface подставлял константу...
Вот кстаи как раз ['{463F1CE9-452C-4437-BD5D-075608A672ED}'] и есть Custom Attribute, и скорее всего так как ты хочешь писать низзя.

[Vapaamies]

Нужно константу без TGUID описать, просто через "равно".

[WhiskasTM]

Stilet, в QueryInterface я константу посылал, CLSID_ которая, её и в фейсе пытался выставить. Двух зайцев сразу хотел, как evg_m определил: именнованный и неименнованный доступы, но с единственным const гуйдом.

Vapaamies, сработало! StringtoGUID правда придется делать. Иль два параллельных списка гуйдов. Всё, всё прощайте синие надписи...

[Stilet]

Всё, всё прощайте синие надписи...

Не оч. понимаю чем тебе не понравились "синие"... Меня как-то не парят такие... "фички".

[Vapaamies]

Сообщение от WhiskasTM

Vapaamies, сработало! StringtoGUID правда придется делать. Иль два параллельных списка гуйдов.

StringToGUID в SysUtils описана.

[evg_m]

Vapaamies, сработало! StringtoGUID правда придется делать.

В моем примере НЕТ никаких StringtoGUID и используется именованный доступ.
В качестве имени выступает имя самого интерфейса.
Еще раз повторю именно для этого и была придумана GUID строка в описании интерфейса.
чтобы было можно там где требуется GUID использовать соответствующее имя (имя интерфейса!!)

Кроме того CLSID_... не используется и его (все ваши константы) можно и нужно выкинуть.
Оставить только описания интерфейсов с указанием его GUID.
И далее для запросов интерфейсов использовать их имена (а GUID транслятор подставит сам! )