Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ошибочный импорт tlb в Delphi 7 / 3 сообщений из 3, страница 1 из 1
20.09.2018, 14:19
    #39705634
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибочный импорт tlb в Delphi 7
Есть моя idl, с кучей объявленных интерфейсов и сложной иерархией наследования.

Среди них такая иерархия
 
Код: plaintext
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.
35.
36.
37.
38.
39.
40.
  [
    uuid(F5C577DF-8A01-4F44-A66A-7D14738CF069),
    version(1.0),
    oleautomation
  ]
   interface IChildItem: IUnknown
  {
    ....................
  };

  [
    uuid(8A453698-76DF-4926-830A-F3A46CF85D5E),
    version(1.0),
    oleautomation
  ]
   interface INamedItem: IChildItem
  {
    ....................
  };

  [
    uuid(5D83E4F8-AE73-40BE-9372-E919EFAB7A8D),
    version(1.0),
    oleautomation
  ]
   interface IPropObj: INamedItem
  {
    ....................
  };

  [
    uuid(16BEDBAC-7A58-4FED-9F1C-DFA47CAA8BA8),
    version(1.0),
    oleautomation
  ]
   interface ISysObj: IPropObj
//   interface IrsSysObj: INamedItem
  {
    HRESULT _stdcall Get_ID([out] __int64 * AOut);
}



При генерации pas модулей из скомпилированной tlb утилитой tlibimp.exe от Delphi 7. В одном интерфейсе появляются фейковые методы
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
  ISysObj = interface(IPropObj)
    ['{16BEDBAC-7A58-4FED-9F1C-DFA47CAA8BA8}']
    function GhostMethod_ISysObj_0_1: HResult; stdcall;
    function GhostMethod_ISysObj_4_2: HResult; stdcall;
    function GhostMethod_ISysObj_8_3: HResult; stdcall;
    function GhostMethod_ISysObj_12_4: HResult; stdcall;
    function GhostMethod_ISysObj_16_5: HResult; stdcall;
    function GhostMethod_ISysObj_20_6: HResult; stdcall;
    function GhostMethod_ISysObj_24_7: HResult; stdcall;
    function GhostMethod_ISysObj_28_8: HResult; stdcall;
    function GhostMethod_ISysObj_32_9: HResult; stdcall;
    function GhostMethod_ISysObj_36_10: HResult; stdcall;
    function GhostMethod_ISysObj_40_11: HResult; stdcall;
    function GhostMethod_ISysObj_44_12: HResult; stdcall;
    function GhostMethod_ISysObj_48_13: HResult; stdcall;
    function GhostMethod_ISysObj_52_14: HResult; stdcall;
    function GhostMethod_ISysObj_56_15: HResult; stdcall;
    function GhostMethod_ISysObj_60_16: HResult; stdcall;
    function Get_ID(out AOut: Int64): HResult; stdcall;
end;

количество этих методов равно суммарному количеству методов во всех родительских интерфейсах, включая IUnknown

Если я этот интерфейс наследую не от IPropObj а от INamedItem методы пропадают. Если в IPropObj убрать все методы, то просто уменьшается количество фейковых методов

Если объявить копию интерфейса ISysObj
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
  [
    uuid(36740E17-768E-49D9-987B-CEB5E64AB528),
    version(1.0),
    oleautomation
  ]
   interface ISysObj2: IPropObj
  {
    HRESULT _stdcall Get_ID([out] __int64 * AOut);
  }


То в этой копии никаких дополнительных методов не появляется.

В чем может быть баг? Использование tlibimp от других версий методы также не добавляет

С уважением, Vasilisk
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2018, 14:41
    #39705646
Кроик Семён
Кроик Семён
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибочный импорт tlb в Delphi 7
Вот что нагуглилось:


здесь предполагают, что баг появился в Delphi 7 Update 1 и предлагают попробовать "tlibimp.exe and tlib70.bpl from original Delphi 7 CD"
http://borland.public.delphi.oleautomation.narkive.com/qwqnSlKz/migrating-d6-d7-major-issues-with-coms-written-in-vb

а здесь не разобрались в причинах и предлагают утилиту GhostHunter (правда там ссылка уже битая), которая удалит фейковые методы
http://www.delphigroups.info/2/9f/214719.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2018, 15:13
    #39705669
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибочный импорт tlb в Delphi 7
Кроик Семёнздесь предполагают, что баг появился в Delphi 7 Update 1 и предлагают попробовать "tlibimp.exe and tlib70.bpl from original Delphi 7 CD"Все с точностью до наоборот

Автор изначально писал на D6 и у него были эти методы. Потом он переполз на D7, методы пропали и у него все сломалось.

А ему говорят, что Ghost методы починили в D7.1 и если ему нужно их вернуть, то советуют использовать tlibimp от D7

Кроик Семёна здесь не разобрались в причинахСейчас меня интересует именно причина
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ошибочный импорт tlb в Delphi 7 / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 309ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040391]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 205ms
total:  309ms
x
x
Закрыть


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