ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Где в скомпилированном коде хранится GUID интерфейса?
29 сообщений из 29, показаны все 2 страниц
  все  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007541
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
При объявлении интерфейса программист может явно указать GUID тут же в исходном коде, как бы “подсказка” для компилятора, какое значение сохранить в скомпилированном коде. Это необходимо для связывания с внешними программами(COM-объекты, библиотеки), также это требование операторов(AS и “QI”). Здесь все логично.

Но, мой вопрос касается ситуации, когда интерфейсы работают внутри одной .exe-программы (т.е. не контактируют с внешними программами).

Вопрос: Если GUID явно НЕ указан в исходном коде, то какую “опасность” не сможет предвидеть компилятор (т.е. в скомпилированном коде появится runtime ошибка) ?

Спасибо.

P.S.
название темы - это как пытаюсь найти ответ.
...
Рейтинг: 0 / 0
12.10.2020, 05:51
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007550
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Artem.1st,

GUID сохраняется в RTTI (смотри модуль System.TypInfo и TObject.GetInterfaceEntry)
Чревато тем, что когда у тебя есть переменная общего типа, например, IInterface, ты не сможешь получить его частный случай
Частный случай находится как раз по GUID
...
Рейтинг: 0 / 0
12.10.2020, 07:05
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007552
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
SOFT FOR YOU
GUID сохраняется в RTTI

Понять помог бы самый простой пример: Когда из исходника убираем GUID, а в runtime выскакивает AV.

P.S.
Вопрос в том, чего не хватает компилятору, чтоб самому сориентироваться(по исходному коду) и правильно сгенерить GUID(там, где их программист не указал явно). М.б. требование “однопроходности” ?
...
Рейтинг: 0 / 0
12.10.2020, 07:11
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007555
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Artem.1st,

А откуда инфа, что такой сценарий получится?
Я пока слабо его представляю
Попробуй поиграться с таким сценарием
Пока я вижу, что компилятор не даёт получить интерфейс без гвида

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
type
  IMyIntf = interface(IInterface)
    // ['{A9795E4B-D739-49FA-84C1-2AC27E543797}']
    procedure DoSome;
  end;

  TMyObj = class(TInterfacedObject, IMyIntf)
    procedure DoSome;
  end;

procedure TMyObj.DoSome;
begin
  Writeln(Self.ClassName);
end;

var
  I: IInterface;
  My: IMyIntf;

begin
  I := TMyObj.Create;
  I.QueryInterface(IInterface{IMyIntf}, My);

  My.DoSome;

  Write('Press Enter to quit');
  Readln;
end.
...
Рейтинг: 0 / 0
12.10.2020, 07:19
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007556
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
SOFT FOR YOU
А откуда инфа, что такой сценарий получится?

Нет инфы, это лишь предположение.

Еще предположение:
QI - как оператор (от имени компилятора требует GUID). Нужен другой пример.
...
Рейтинг: 0 / 0
12.10.2020, 07:25
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007558
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Artem.1st,

Накатал вариант
QueryInterface возвращает результат, но код вызывает AV

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
type
  IMyIntf = interface(IInterface)
    procedure DoSome;
  end;

  IMyIntfEx = interface(IMyIntf)
    procedure DoSomeEx;
  end;

  TMyObj = class(TInterfacedObject, IMyIntf)
    procedure DoSome;
  end;

procedure TMyObj.DoSome;
begin
  Writeln(Self.ClassName);
end;

var
  I: IInterface;
  My: IMyIntfEx;

begin
  I := TMyObj.Create;
  I.QueryInterface(GetTypeData(TypeInfo(IMyIntfEx)).GUID, My);

  Writeln('My = $', IntToHex(NativeInt(My), SizeOf(Pointer) * 2));
  My.DoSomeEx;

  Write('Press Enter to quit');
  Readln;
end.
...
Рейтинг: 0 / 0
12.10.2020, 07:29
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007561
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
SOFT FOR YOU

Накатал вариант
QueryInterface возвращает результат, но код вызывает AV

И добавление GUID заставляет этот код работать правильно?
...
Рейтинг: 0 / 0
12.10.2020, 07:46
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007562
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Artem.1st
И добавление GUID заставляет этот код работать правильно?


Добавление гвида приведёт к тому, что QueryInterface ничего не найдет
Если в коде есть проверка результата QueryInterface - AV не произойдёт

Artem.1st
P.S.
Как окно консоли оставить на экране ....? сворачивается после вылета...


try/except
...
Рейтинг: 0 / 0
12.10.2020, 07:50
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007572
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
SOFT FOR YOU
Добавление гвида приведёт к тому, что QueryInterface ничего не найдет
спасибо за ответы.
Но, к сожалению, “Пример” логически неработающий в обоих случаях (задан ли GUID явным способом или это сделал компилятор неявно)
...
Рейтинг: 0 / 0
12.10.2020, 08:32
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007574
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
SOFT FOR YOU,
по логике Примера, в этой строке должен вернуться интерфейс:
SOFT FOR YOU
Код: pascal
1.
  I.QueryInterface(GetTypeData(TypeInfo(IMyIntfEx)).GUID, My);


... но, он не вернется. Не спасает даже явное GUID в декларации интерфейса.
"Ухищрения" лишь помогают получить '0' вместо random(AV), т.е. Пример логически не работает.

В любом случае, Спасибо.
...
Рейтинг: 0 / 0
12.10.2020, 08:55
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007585
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Artem.1st,

Да ладно )

Во-первых, не ясно, чего ты хочешь получить. С чего ты взял, что на практике будет AV не ясно. Тем более на уровне компилятора. На уровне компилятора ты не сможешь взять as для интерфейса без гвида. Даже QueryInterface не сможешь вызвать для интерфейса без гвида

Насчёт как может получиться вышеуказанный пример
Например, если ты разрабатываешь шаблон, где в качестве типа используется интерфейс, соответственно GetTypeKind равен tkInterface, а гвид можно получить из Rtti

Как раз QueryInterface так и принято использовать
Код: pascal
1.
if (QueryInterface(...) = 0) then ...



Может ты не вкурил пример. TMyObj не поддерживает IMyIntfEx, соответственно QueryInterface не должен вернуть ничего, но он возвращает другой интерфейс. Это происходит потому, что GetTypeData(TypeInfo(IMyIntfEx)).GUID для интерфейсов без гвида возвращает нули, что соответствует IInterface. Т.е. запрашиваешь какой-то интерфейс без гвида, а по факту получается IInterface
...
Рейтинг: 0 / 0
12.10.2020, 09:30
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007613
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
SOFT FOR YOU,

Код: pascal
1.
I.QueryInterface(IInterface{IMyIntf}, My);

Функция QueryInterface объявлена как
Код: pascal
1.
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;

Просто при вызове выше компилятор вместо IMyIntf сам подставляет его GUID. Нет GUID - нет интерфейса.
AV тут вообще не при чём.
...
Рейтинг: 0 / 0
12.10.2020, 10:48
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007615
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
alekcvp,

Я в курсе )
...
Рейтинг: 0 / 0
12.10.2020, 10:49
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007633
Barlone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Barlone
Участник
Artem.1st
SOFT FOR YOU,
по логике Примера, в этой строке должен вернуться интерфейс:
SOFT FOR YOU
Код: pascal
1.
  I.QueryInterface(GetTypeData(TypeInfo(IMyIntfEx)).GUID, My);


... но, он не вернется. Не спасает даже явное GUID в декларации интерфейса.
"Ухищрения" лишь помогают получить '0' вместо random(AV), т.е. Пример логически не работает.

В любом случае, Спасибо.
Не генерирует компилятор никаких GUID автоматически. Если вы вместо этой строки напишите
Код: pascal
1.
  writeln(GUIDToString(GetTypeData(TypeInfo(IMyIntfEx)).GUID));

то увидите {00000000-0000-0000-0000-000000000000}
...
Рейтинг: 0 / 0
12.10.2020, 11:27
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007653
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
Пост( 22212431 ) получился непонятым. Уже 3 уважаемых собеседника его неверно поняли.
Приношу извинения.
А такой вариант?
 
...
Рейтинг: 0 / 0
12.10.2020, 11:58
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007654
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
Похоже, монгольский мальчик вернулся.
...
Рейтинг: 0 / 0
12.10.2020, 11:59
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007660
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Artem.1st,

SOFT FOR YOU
Может ты не вкурил пример. TMyObj не поддерживает IMyIntfEx, соответственно QueryInterface не должен вернуть ничего, но он возвращает другой интерфейс. Это происходит потому, что GetTypeData(TypeInfo(IMyIntfEx)).GUID для интерфейсов без гвида возвращает нули, что соответствует IInterface. Т.е. запрашиваешь какой-то интерфейс без гвида, а по факту получается IInterface
...
Рейтинг: 0 / 0
12.10.2020, 12:09
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007661
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
На других IT-форумах “нарушители правил” не набирают 1000+ сообщений.
:-/
 
...
Рейтинг: 0 / 0
12.10.2020, 12:12
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007674
Mixrud
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mixrud
Гость
Тут хранится:

Код: pascal
1.
2.
3.
4.
5.
class function TRTTIExt.GetGuid<T>: TGUID;
begin
  //pTypeInfo(TypeInfo(T)).TypeData.GUID
  Result := TGUID.Create(pTypeInfo(TypeInfo(T)).TypeData.IntfGuid);
end;



Рекомендуется ограничить дженерик как-то так <T: IInterface> в объявлении
...
Рейтинг: 0 / 0
12.10.2020, 12:39
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007676
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziv-2014
Участник
Artem.1st,
Интерфейс - это указатель массив методов. У него может быть GUID, а может и не быть.
И тот и другой вариант будет работать.
GUID нужен для COM, т. к. по GUID происходит поиск нужного интерфейса.
В делфи мы создаем указатель на интерфейс при помощи класса, поэтому GUID не нужен.
В некоторых исключениях GUID все же нужен для работы с интерфейсами в Delphi.
Поэтому общим правилом будет GUID добавлять.
...
Рейтинг: 0 / 0
12.10.2020, 12:41
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007683
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziv-2014
Участник
ziv-2014
Artem.1st,
Интерфейс - это указатель массив методов. У него может быть GUID, а может и не быть.
И тот и другой вариант будет работать.
GUID нужен для COM, т. к. по GUID происходит поиск нужного интерфейса.
В делфи мы создаем указатель на интерфейс при помощи класса, поэтому GUID не нужен.
В некоторых исключениях GUID все же нужен для работы с интерфейсами в Delphi.
Поэтому общим правилом будет GUID добавлять.

Есть в Rtti TVirtualInterface, TRawVirtualClass которые позволяют создать interface при этом не создавать класс.
...
Рейтинг: 0 / 0
12.10.2020, 12:53
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007699
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziv-2014
Участник
Если вы не задаете GUID, то вы не сможете получить корректный интерфейс через QueryInterface.
Цель GUID найти нужный интерфейс через QueryInterface. Если вы не собираетесь этого делать, то можете не задавать GUID.
...
Рейтинг: 0 / 0
12.10.2020, 13:25
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007703
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
ziv-2014,

Была такая библиотека TForge, так там автор интерфейсы к recrod'ам прикручивал :)
...
Рейтинг: 0 / 0
12.10.2020, 13:30
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007704
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
12.10.2020 13:30, alekcvp пишет:
> Была такая библиотека TForge, так там автор интерфейсы к recrod'ам прикручивал :)

эммм...
зачем?!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
12.10.2020, 13:31
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007705
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
ziv-2014
Если вы не задаете GUID, то вы не сможете получить корректный интерфейс через QueryInterface.
Цель GUID найти нужный интерфейс через QueryInterface. Если вы не собираетесь этого делать, то можете не задавать GUID.


Я написал обертку к QueryInterface и получаю интерфейсы без GUID через TypeInfo
Все интерфейсы можно получать через TypeInfo...

Даже задачу сделал в QC, чтобы они изменил RTL, чтобы из коробки это работало для is/as
...
Рейтинг: 0 / 0
12.10.2020, 13:32
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007713
Artem.1st
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Artem.1st
Участник
Может ты не вкурил пример. TMyObj не поддерживает IMyIntfEx, соответственно QueryInterface не должен вернуть ничего, но он возвращает другой интерфейс. Это происходит потому, что GetTypeData(TypeInfo(IMyIntfEx)).GUID для интерфейсов без гвида возвращает нули, что соответствует IInterface. Т.е. запрашиваешь какой-то интерфейс без гвида, а по факту получается IInterface:-(
Я искренне верил, что собеседник пытается помочь, он написал "Пример”,
который к текущей теме(про GUID) никак НЕ относится.
На мой вежливый комментарий, что "Пример” не подходит(к этой теме),
быстро появляется "ъъъъъ" и пишет оскорбления. Ну, детский сад на форуме...

Ниже см. “Пример”, к нему претензий НЕТ, ну, обычная логическая ошибка(AV в обоих случаях)
procedure DoSome; не вызовется никогда!
 
...
Рейтинг: 0 / 0
12.10.2020, 13:45
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007715
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Artem.1st,

Ну ты даёшь
Вроде несколько раз сказали одно и то же
Ты так до сих пор и не понял, о чём тут речь
Ну может это тебе поможет. Я не знаю уже как и что тебе объяснять

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
type
  IMyIntf = interface(IInterface)
    procedure DoSome;
  end;

  IMyIntfEx = interface(IMyIntf)
    // ['{CD20BA92-3815-4F66-9F36-63FACEF01676}']
    procedure DoSomeEx;
  end;

  TMyObj = class(TInterfacedObject, IMyIntf)
    procedure DoSome;
  end;

procedure TMyObj.DoSome;
begin
  Writeln(Self.ClassName);
end;

var
  I: IInterface;
  My: IMyIntfEx;

begin
  I := TMyObj.Create;

  if (I.QueryInterface(GetTypeData(TypeInfo(IMyIntfEx)).GUID, My) = 0) then
  begin
    My.DoSomeEx;
  end;

  Write('Press Enter to quit');
  Readln;
end.
...
Рейтинг: 0 / 0
12.10.2020, 13:55
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007751
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Мимопроходящий

эммм...
зачем?!
А чего ты меня-то спрашиваешь?.. Подозреваю что для реализации множественного наследования, которое дельфи сама не поддерживает.
Но это не точно.
...
Рейтинг: 0 / 0
12.10.2020, 15:11
| Ответить | Цитировать | Написать  
Где в скомпилированном коде хранится GUID интерфейса?
    #40007778
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziv-2014
Участник
alekcvp
ziv-2014,

Была такая библиотека TForge, так там автор интерфейсы к recrod'ам прикручивал :)

TChromium https://github.com/salvadordf/CEF4Delphi примерно тем же занимается.
...
Рейтинг: 0 / 0
12.10.2020, 16:30
| Ответить | Цитировать | Написать  
29 сообщений из 29, показаны все 2 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Где в скомпилированном коде хранится GUID интерфейса?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=58&tid=2037938]:
 0ms
get settings:
 4ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 47ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 228ms
total:  354ms
созд. / загр.: 354ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]